Sorry your browser is not supported!

Sync On: Sync Rate 60
Backdrop On
Color Backdrop 0
NumSpheres=5
FirstObjNum=1

For N=1 To NumSpheres
  Make Object Sphere N,3
  Position Object N,N*6,0,0
Next N

Position Camera 18,10,-20
Point Camera 18,0,0

Do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  ObjNum = PICK OBJECT(Mx, My, FirstObjNum, NumSpheres)
  If Mc=1 And ObjNum<>0
    MMy#=MouseMoveY(): MMx#=MouseMoveX()
    For N=1 To NumSpheres
      Color Object N,RGB(255,255,255)
    Next N
    Color Object ObjNum,RGB(255,0,0)
    Hide Mouse
    Repeat
      MMy#=MouseMoveY()/8.0: MMx#=MouseMoveX()/8.0
      ObjPosX# = Object Position X(ObjNum)+MMx#
      ObjPosY# = Object Position Y(ObjNum)-MMy#
      ObjPosZ# = Object Position Z(ObjNum)
      Position Object ObjNum,ObjPosX#,ObjPosY#,ObjPosZ#
      Sync
    Until MouseClick()=0
    Show Mouse
  Endif
  Sync
  Text 0,0,"Mouse Over Object: "+Str$(ObjNum)+"  "
  Center Text 320,460,"Click On A Sphere And Drag It!"
Loop