Dim obj(100)
Dim rb(100)

Graphics3D 800,600,32,2
SetBuffer BackBuffer()

Kamera = CreateCamera()
MoveEntity Kamera, 0, 36, -100

Licht=CreateLight()

TOKSIM_CreateSimulator(100, 100, 0, -10, 0)

;**************************************

Boden = CreateCube()
EntityColor Boden,255,0,0
ScaleEntity Boden,50,1,50
PositionEntity Boden,0,0,0

;***

ABBoden = TOKAB_Create()
TOKAB_AddBox(ABBoden,100.0,2.0,100.0)
TOKAB_SetPosition(ABBoden,0.0,0.0,0.0)

;**************************************


For i=1 To 100

   obj(i) = CreateSphere()
   MoveEntity obj(i), 0, Rand(10,200),Rand(10,20)
   
   rb(i) = TOKRB_Create()
   TOKRB_AddSphere rb(i),1.8
   TOKRB_SetPosition(rb(i),EntityX(obj(i)),EntityY(obj(i)),EntityZ(obj(i)))
   TOKRB_SetLinearDamping rb(i),0.001
   TOKRB_SetAngularDamping rb(i),0.02
   TOKRB_SetMass rb(i),2.0
   TOKRB_SetSphereInertiaTensor rb(i),1.8,2.0
   
   EntityColor obj(i),Rnd(100,230),Rnd(100,230),Rnd(100,230)

Next



While Not KeyHit(1)

   If KeyDown(200) Then
      TurnEntity Boden, 1, 0, 0
      
   EndIf
   
   If KeyDown(208) Then
      TurnEntity Boden, -1, 0, 0
      
   EndIf
   
   
   For i=1 To 100
      If TOKRB_IsIdle(rb(i)) Then
         EntityAlpha obj(i),0.5
      Else
         EntityAlpha obj(i),1.0
      EndIf
      
      PositionEntity obj(i),TOKRB_GetX#(rb(i)),TOKRB_GetY#(rb(i)),TOKRB_GetZ#(rb(i))
      RotateEntity obj(i),TOKRB_GetPitch#(rb(i)),TOKRB_GetYaw#(rb(i)),TOKRB_GetRoll#(rb(i)),False
   Next



   TOKAB_SetRotation(ABBoden, EntityPitch(Boden), EntityYaw(Boden), 0)

   TOKSIM_Advance((1.5/60),1)
   UpdateWorld()
   RenderWorld()
   
   Text 0, 0, "Tokamak Physics Time: " + TOKSIM_GetPhysicsTime()
   
   Flip()
Wend

TOKSIM_DestroySimulator()

ClearWorld()
End

TOKAB_SetRotation(ABBoden, EntityPitch(Boden), EntityYaw(Boden), 0)