Sorry your browser is not supported!

set display mode 1024, 768, 32
sync on
sync rate 60
set camera FOV 45
autocam off
backdrop on
color backdrop rgb(0, 0, 0)

make object cube 1, 5

ink rgb(255, 255, 255), rgb(255, 255, 255)

distance# = 0.0
xMove# = 0.0
yMove# = 0.0
zMove# = 0.0
angleX# = 0.0
angleY# = 0.0

position camera 0, 0, -20
rotate camera 0, 0, 0

do
   text 0, 0, "Camera angle y :" + str$(camera angle y())
   text 0, 20, "Camera angle x :" + str$(camera angle x())
   
   angleX# = mousex()
   angleY# = mousey()
   
   distance# = 0.0
   
   if mouseclick() = 1 then distance# = 1
   if mouseclick() = 2 then distance# = -1
   
   angleX# = 0 - camera angle x()
   angleY# = camera angle y()
   
   xMove# = (sin(angleY#) * cos(angleX#)) * distance#
   yMove# = sin(angleX#) * distance#
   zMove# = (cos(angleY#) * cos(angleX#)) * distance#
   
   position camera 0, xMove# + camera position x(), yMove# + camera position y(), zMove# + camera position z()
   
   xrotate camera 0, mousey()
   yrotate camera 0, mousex()
   
   sync
loop

function RotateCamera()
	MX# as float
	MX#=MOUSEMOVEX()
	MY# as float
	MY#=MOUSEMOVEY()
	AngleY#=wrapvalue(AngleY#+(MX#/5.0))
	AngleX#=(AngleX#+(MY#/5.0))
	if AngleX#>70.0 then AngleX#=70.0
	if AngleX#<-70.0 then AngleX#=-70.0
	CameraDistance#=CameraDistance#-MOUSEMOVEZ()/10.0
	if CameraDistance#>1000.0 then CameraDistance#=1000.0
	if CameraDistance#<10.0 then CameraDistance#=10.0
	position camera 1,CameraX#,CameraY#,CameraZ# `the lookat point
	rotate camera 1,AngleX#,AngleY#,0.0
	move camera 1,-CameraDistance#
endfunction

set display mode 1024, 768, 32
sync on
sync rate 60
set camera FOV 45
autocam off : hide mouse
backdrop on
color backdrop rgb(0, 0, 0)

make object cube 1, 5

ink rgb(255, 255, 255), rgb(255, 255, 255)

distance# = 0.0
xMove# = 0.0
yMove# = 0.0
zMove# = 0.0
angleX# = 0.0
angleY# = 0.0

position camera 0, 0, -120
rotate camera 0,0,0
do
   cay# = camera angle y() : cax# = camera angle x()
   CamX# = camera position x() : CamY# = camera position y() : CamZ# = camera position z()
   text 0, 0, "Camera angle y :" + str$(cay#,0)
   text 0, 20, "Camera angle x :" + str$(cax#,0)
   mc = mouseclick() : sv# = 0.0
   cay# = cay# + (mousemovex() * 0.3) : yrotate camera cay#
   cax# = cax# + (mousemovey() * 0.3) : xrotate camera cax#
   if mc = 1 then sv# = 1.0
   if mc = 2 then sv# = -1.0
   if mc = 1 or mc = 2
     CamX# = newxvalue(CamX#,cay#,sv#)
     CamZ# = newzvalue(CamZ#,cay#,sv#)
     position camera CamX#,CamY#,CamZ#
   endif
   sync
loop