Include "DevilPhysicEngine.bb"

Graphics3D 1024, 768, 32, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
ClsColor 0, 0, 0
HidePointer

;Camera
Global Cam = CreateCamera()
PositionEntity Cam, -10, 25, 20
RotateEntity Cam, 30, 170, 0
CameraRange Cam, .1, 10000
EntityRadius Cam, .25

;Engines
InitPhysics()
SetPhysicCamera(Cam,5000)

LoadBasicScene()

c = CreateCube()
ScaleEntity c, 150, 1, 150
PositionEntity c, 0, -1, 0
SetStaticPhysicMesh(c)

While Not KeyHit(1)

renderworld
UpdatePhysics()
Flip
Wend
End

Function LoadBasicScene()
For i = 0 To 5
   c = CreateShadowCube()
   ScaleEntity c, Rnd(4), Rnd(4), Rnd(4)
   RotateEntity c, 0, i * 90, 0
   MoveEntity c, 0, 30, 15
   x=SetPhysicMesh(c);, 0, True)
   SetPhysicMeshPosition(x,Rnd(50),50,Rnd(50))
Next
End Function