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

camera=CreateCamera()
PositionEntity camera,0,200,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)
EntityColor mesh,Rand(0,255),Rand(0,255),Rand(0,255)
v0=AddVertex(surface,+50,400,50)
v1=AddVertex(surface,-50,400,50)
v2=AddVertex(surface,-50,400,-50)
v3=AddVertex(surface,50,400,-50)

AddTriangle(surface,v0,v1,v2)
AddTriangle(surface,v0,v2,v3)
UpdateNormals mesh
EntityType mesh,2

cube=CreateCube()
ScaleEntity cube,40,40,40
PositionEntity cube,0,0,0
EntityType cube,2

Collisions 1,2,2,2




;HAUPTSCHLEIFE
While Not KeyHit(1)

 ;Mauskoordinaten
 mx=MouseXSpeed()
 my=MouseYSpeed()
 MoveMouse 400,300

 MoveEntity sphere,mx,my,0
 UpdateWorld
 RenderWorld

 Text 0,500,"Anzahl Kollisionen:"
 If CountCollisions(sphere) Text 200,500,CountCollisions(sphere)

 Delay 10
 Flip
Wend
End

   ; Ausrichtungs Sytem für landung
   mode=0
   If kugelcol>0
      kollision.col=Object.col(kugelcol)
      kolent=EntityCollided (kollision\handler,1)
      
      If kolent>0
         co=CountCollisions(kollision\handler)
         If co>0
            For i = 1 To co
               If ly<0 Then mode=1
               If ly>0 Then mode=2
               If kd200 Or kd208 Or landen=1
                  
                  su=GetSurface(kolent,1)
                  
                  ve=CountVertices(su)
                  tr=CountTriangles(su)
                  
                  cc=CountCollisions(kolent)
                  
                  If cc
                     
                     kst=CollisionTriangle(kolent,1)
                     ksk=CollisionSurface(kolent,1)
                     
                     AlignToTriangle(objcol,kolent,ksk,kst,0.01,mode)
                  Else
                     
                     ;LinePick(EntityX(camp),EntityY(camp),EntityY(camp),EntityX(kolent),EntityY(kolent),EntityY(kolent))
                     ;ksk=PickedSurface ()
                     ;kst=PickedTriangle ()
                     ;AlignToTriangle(objcol,kolent,ksk,kst,0.01,mode)

                     
                  EndIf
               EndIf
            Next
         EndIf
      EndIf
   EndIf

      kolent=EntityCollided (kollision\handler,1)
     
      If kolent>0