Graphics3D 800,600,0,2
SetBuffer BackBuffer()
HidePointer

camera=CreateCamera()
PositionEntity camera,400,300,400
RotateEntity camera,180,0,0

light=CreateLight()
RotateEntity light,-120,0,0

sphere=CreateSphere(16)
ScaleEntity sphere,20,20,20
EntityRadius sphere,20
EntityType sphere,1

mesh=CreateMesh()
brush=CreateBrush(96,96,96)
surface=CreateSurface(mesh,brush)
v0=AddVertex(surface,100,100,0)
v1=AddVertex(surface,200,100,0)
v2=AddVertex(surface,100,200,0)
v3=AddVertex(surface,200,200,0)
AddTriangle(surface,v0,v1,v2)
AddTriangle(surface,v1,v3,v2)
UpdateNormals mesh
EntityType mesh,2




;HAUPTSCHLEIFE
While Not KeyHit(1)

 ;Mauskoordinaten
 mx=mx+MouseXSpeed()
 my=my+MouseYSpeed()
 MoveMouse 400,300
 If mx<0 Then mx=800
 If mx>800 Then mx=0
 If my<0 Then my=600
 If my>600 Then my=0
 PositionEntity sphere,mx,my,0

 Collisions 1,2,2,2
 UpdateWorld
 RenderWorld

 Text 0,0,"Anzahl Kollisionen: "+CountCollisions(sphere)
 Flip
Wend
End