Graphics3D 1280,1024,32,1
SetBuffer BackBuffer()

AppTitle "LCARS MENUE SYSTEM"

;l=CreateLight()

Type round
   Field roundp
End Type

AmbientLight 255,255,255

cam=CreateCamera()PositionEntity cam,-2,0,-68

For i=1 To 18
r.round=New round
r\roundp=LoadMesh("Lcarscontrols/round"+i+".b3d")PositionEntity r\roundp,-32,-27,0
t=LoadTexture("lcarscontrols/round"+i+".tga",2)
EntityTexture r\roundp,t
RotateEntity r\roundp,0,180,0
EntityPickMode r\roundp,1,0
Next

While Not KeyHit(1)

;TurnEntity top,0,.1,0

If KeyDown(208) Then MoveEntity cam,0,0,-1

UpdateWorld
RenderWorld

DrawImage mouse,MouseX(),MouseY()

For r.round= Each round
If MouseHit(1) Then CameraPick(cam,MouseX(),MouseY())
Text 0,0,PickedEntity()
Next

Flip 0
Wend

EntityPickMode r\roundp,2,0