Graphics3D 800,600,16,2
SETBUFFER BACKBUFFER()

cube1=CREATECUBE()
ENTITYPICKMODE cube1,2,0
NAMEENTITY cube1,"Cube1"

cube2=CREATECUBE()
ENTITYPICKMODE cube2,2,0
NAMEENTITY cube2,"Cube2"

sphere=CREATESPHERE(8)
ENTITYPICKMODE sphere,2,0
TURNENTITY sphere,0,-90,0 ;<--- DREHEN!!!

camera=CREATECAMERA()
POSITIONENTITY camera,0,20,-20
POINTENTITY camera,sphere

light=CREATELIGHT(1)
TURNENTITY light,45,45,45

WHILE NOT KEYHIT(1)
   count#=count#+1
   POSITIONENTITY cube1,10,0,SIN#(count)*10
   POSITIONENTITY cube2,20,0,COS#(count)*10
   picked=ENTITYPICK(sphere,100)
   IF picked THEN
      txt$=ENTITYNAME$(picked)
   ELSE
      txt$="nichts"
   ENDIF
   UPDATEWORLD
   RENDERWORLD
   TEXT 10,10,txt$
   FLIP
WEND
End