raphics3D 800,600,32,2


Timer=CreateTimer(60)

Light=CreateLight()
TurnEntity(Light,-45,0,0)

CamPiv=CreatePivot()
Camera=CreateCamera(CamPiv)
TurnEntity(CamPiv,45,0,0)
MoveEntity(Camera,0,0,-100)

Plane=CreateCube()
EntityColor(Plane,0,100,0)
ScaleEntity(Plane,50,.1,50)

EntityPickMode(Plane,2)

TestCube=CreateCube()

SetBuffer BackBuffer()

Repeat
   If KeyDown(200) Then TurnEntity(CamPiv, 1,0,0)
   If KeyDown(208) Then TurnEntity(CamPiv,-1,0,0)
   If KeyDown(203) Then MoveEntity(Camera, 0,0,-1)
   If KeyDown(205) Then MoveEntity(Camera, 0,0,+1)

   X=MouseX() : Y=MouseY()
 
   CameraPick(Camera,X,Y)
   OX#=PickedX#() : OZ#=PickedZ#()
   PositionEntity(TestCube,OX,0,OZ)


   RenderWorld()

   Text 10,10,OX#+" "+X
   Text 10,40,OZ#+" "+Y
   Flip(0) : WaitTimer(Timer)
Until KeyDown(1)=1:End