Graphics3D 1024,768,32,2
SetBuffer BackBuffer()
cam=CreateCamera()
MoveEntity cam,0,0,-30
light=CreateLight()
cube=CreateCube()
EntityPickMode cube,2
For i=1 To 10
cube=CopyMesh(cube)
MoveEntity cube,Rnd(-10,10),Rnd(-10,10),Rnd(-10,10)
EntityPickMode cube,2
Next
Repeat
If MouseHit(1)
pick=CameraPick(cam,MouseX(),MouseY())
shit=EntityDistance(cam,pick)
EndIf
Flip
UpdateWorld
RenderWorld
Text 20,20,"picked: "+pick
Text 20,40,"distance: "+shit
Until KeyHit(1)
End