Sorry your browser is not supported!

sync on: sync rate 60
autocam off
cls

For N=-2 to 2
  Make Object Cube N+3,10
  Position Object N+3,N*15,0,0
Next N
Position Camera 0,20,-60
Point Camera 0,0,0

do
  Mx=MouseX(): My=MouseY(): Mc=MouseClick()
  If Mc=1
    Hide Mouse
    Selected=Select3DObj(Mx,My)
    Color Object Selected,RGB(255,0,0)
    ObjPosX=Object Position X(Selected): ObjPosY=Object Position Y(Selected): ObjPosZ=Object Position Z(Selected)
    Repeat
      MMx=MouseMoveX()/5: MMy=MouseMoveY()/5
      If ShiftKey()=1
        Position Object Selected,ObjPosX,ObjPosY-MMy,ObjPosZ
      Else
        Position Object Selected,ObjPosX+MMx,ObjPosY,ObjPosZ-MMy
      Endif
      ObjPosX=Object Position X(Selected): ObjPosY=Object Position Y(Selected): ObjPosZ=Object Position Z(Selected)
      Sync
    Until MouseClick()=0
    Color Object Selected,RGB(255,255,255)
    Show Mouse
  Endif
  sync
  Center Text 320,0,"Object Selected: "+Str$(Selected)
loop

function Select3DObj(Mx,My)
  Closest=10000
  For N=1 to 5
    objx=Object Screen X(N): objy=Object Screen Y(N)
    Dist=sqrt((mx-objx)^2+(my-objy)^2)
    If Dist < Closest
      Closest = Dist
      ObjSelected = N
    Endif
  Next N
endfunction ObjSelected

rem ---------C o n t r o l s:----------
rem ---    Select:   Left Click   -----
rem ---    Deselect: Right Click  -----
rem ---     Rotate: Both Click    -----
rem ---   Rotate Type: C, V and F ----


Sync On
Sync Rate 60
MouseX=MouseX()
MouseY=MouseY()
BoxXPos=0
BoxYPos=0
BoxZPos=200
BoxXAxi=0
BoxYAxi=0
BoxZAxi=0
Rem Misc
#RotateXSpeed=0.2
#RotateYSpeed=1.0

Make object box 1,100,100,100
Do	
	Position object 1,BoxXPos,BoxYPos,BoxZPos
	Rotate object 1,BoxXAxi,BoxYAxi,BoxZAxi
	Sync

	Rem Selection with Mouse
	If MOUSECLICK()=1 and Select=0 then Select=1
	If MOUSECLICK()=2 and Select=1 then Select=0
	If MOUSECLICK()=3 and Select=0 then Select=2
	If MOUSECLICK()=3 and Select=1 then Select=2
	If MOUSECLICK()=0 and Select=2 then Select=0

	rem Rotate Axis (all combinations)
	If Inkey$()="c" and axMove=1 then axMove=0
	If Inkey$()="c" and axMove=2 then axMove=0
	If Inkey$()="v" and axMove=0 then axMove=1
	If Inkey$()="v" and axMove=2 then axMove=1
	If Inkey$()="f" and axMove=1 then axMove=2
	If Inkey$()="f" and axMove=0 then axMove=2

	rem Move Box with Mouse XY or XZ
	If Inkey$()="z" and Zmove=1 then Zmove=0
	If Inkey$()="x" and Zmove=0 then Zmove=1

	rem DEBUG: Print MouseX and Y
	Set Cursor 0,0	
	Print "MouseX:"
	Print MouseX
	Print "MouseY:"
	Print MouseY
	Set Cursor 0,65
	If axMove=0 then Print "Rotate Axis X"
	If axMove=1 then Print "Rotate Axis Y"
	If axMove=2 then Print "Rotate Axis Z"

		Rem ---------------------Move X Y and Z----------------------
		If Select=1
			MouseMoveX=MouseMoveX()*-2
			MouseMoveY=MouseMoveY()
			BoxXPos=BoxXPos-MouseMoveX
			If Zmove=1 then BoxYPos=BoxYPos-MouseMoveY
			If Zmove=0 then BoxZPos=BoxZPos-MouseMoveY
			Set Cursor 0,85
			Print MouseMoveX
			Print MouseMoveY
				ObjectScreenY=Object Screen Y(1)
				ObjectScreenX=Object Screen X(1)
				Ellipse ObjectScreenX,ObjectScreenY,30,30
		Endif
		Rem ---------------------Rotate Y and X-----------------------
		If Select=2
			MouseMoveX=MouseMoveX()*-2
			MouseMoveY=MouseMoveY()
			If axMove=2 then BoxZAxi=Wrapvalue(BoxZaxi-(MouseMoveX*0.2)*-2)
			If axMove=1 then BoxYAxi=Wrapvalue(BoxYAxi-(MouseMoveX*0.2)*-2)
			If axMove=0 then BoxXAxi=Wrapvalue(BoxXAxi-MouseMoveY)
			Set Cursor 0,200
			Print "Mouse Velocity X:"
		 	Print MouseMoveX
			Print "Mouse Velocity Y:" 
			Print MouseMoveY
				ObjectScreenY=Object Screen Y(1)
				ObjectScreenX=Object Screen X(1)
				Ellipse ObjectScreenX,ObjectScreenY,30,30
		Endif
	Set Cursor 0,135
	Print BoxXPos
	Print BoxYPos
Loop

  Closest=100000
  For N=1 to 5
    objx=Object Screen X(N): objy=Object Screen Y(N)
    Dist=(mx-objx)^2+(my-objy)^2
    If Dist < Closest
      Closest = Dist
      ObjSelected = N
    Endif
  Next N