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

light = CreateLight()
RotateEntity light,255,255,255


cam=CreateCamera()
EntityType cam 1
PositionEntity cam, 10,8, 10
sphere = CreateSphere()

EntityType sphere, 1

PositionEntity sphere, 10,8, 10
ScaleEntity sphere, 2, 2, 2

cube = CreateCube()
EntityType cube, 2
EntityColor cube, 0, 255, 0
PositionEntity cube, 1, 1, 1
ScaleEntity cube, 1000, 1, 1000

cylinder = CreateCylinder(32)
EntityType cylinder, 2
EntityColor cylinder, 255, 0, 0
PositionEntity cylinder, 0, 6, 0
ScaleEntity cylinder, 2, 2, 2

 
   
While Not KeyDown(1)
   x# = 0
   y# = 0
   z# = 0
  If KeyDown(32)=1 Then TurnEntity cam,0,-1,0
   If KeyDown(30)=1 Then TurnEntity cam,0,1,0
   If KeyDown(31)=1 Then MoveEntity cam,0,0,-1
   If KeyDown(17)=1 Then MoveEntity cam,0,0,1

    MoveEntity cam, x#, - 0.1, z#
   Collisions 1, 2, 2, 2
   UpdateWorld
   
   col1= CountCollisions(cam)
   Text 0, 0, "Kollision(en):"
   For i = 1 To col1
     Text 000, i * 20, "Entity=" + CollisionEntity(cam, i)
     Text 150, i * 20, "Surface=" + CollisionSurface(cam, i)
     Text 300, i * 20, "Triangle=" + CollisionTriangle(cam, i)
  Next
       
   x# = 0
   y# = 0
   z# = 0
   If KeyDown(32)=1 Then TurnEntity sphere,0,-1,0
   If KeyDown(30)=1 Then TurnEntity sphere,0,1,0
   If KeyDown(31)=1 Then MoveEntity sphere,0,0,-1
   If KeyDown(17)=1 Then MoveEntity sphere,0,0,1
MoveEntity sphere, x#, - 0.1, z#

   Collisions 1, 2, 2, 2
      UpdateWorld
   
   col = CountCollisions(sphere)
   Text 0, 0, "Kollision(en):"
   For i = 1 To col
      Text 000, i * 20, "Entity=" + CollisionEntity(sphere, i)
     Text 150, i * 20, "Surface=" + CollisionSurface(sphere, i)
     Text 300, i * 20, "Triangle=" + CollisionTriangle(sphere, i)
   Next
RenderWorld

 
   Flip
Wend
End

EntityType cam 1

EntityType cam,1

EntityType cam, 1

EntityType cam 1