Sorry your browser is not supported!

autocam off
sync on
make matrix 1,50,50,20,20
make object box 1,5,5,5

do
ink rgb(0,255,0),0
set cursor 0,0
print "Use up/dow to move object"
print "Use left/right to rotate camera around object"

`positioning camera in object position x,y,z
position camera object position x(1),0,object position z(1)
`moving camera to get new x,z
move camera -20
x#=camera position x()
z#=camera position z()
`reseting camera position
move camera 20
`positioning camera in saved coords x,z   +  the height we need
position camera x#,15,z#
`forcing camera face to object
point camera object position x(1),object position y(1),object position z(1)
`rotating camera with cursor or ant other KEY
yrotate camera g#

`object movements and camera rotation
if upkey() then move object 1,0.01
if downkey() then move object 1,-0.01
if leftkey() then g#=g#-0.5
if rightkey() then g#=g#+0.5


sync
loop

function circleObject(obj, angle#, distance#)
      rem position of object we want to revolve around
      x# = object position x(obj)
      y# = object position y(obj)
      z# = object position z(obj)
      
      rem calculate new camera position based on rotation angle and distance from object
      cx# = x# + sin(angle#)*distance#
      cy# = y# + 20 `place camera 20 units above object
      cz# = z# + cos(angle#)*distance#
      
      rem position the camera
      position camera cx#, y#, cz#
      rem point camera at object as it revolves around it
      point camera x#, y#, z#
endfunction

`Constants =======================================================================================

#CONSTANT CAM_VELOCITY 0.6 `affects how much cam will move between position updates
#CONSTANT CAM_BASE_HEIGHT 0.96 `as % of anchor object height above the current ground height.

`Types ===========================================================================================

type cameraData
	tilt 	as float
	pan 	as float
	x 	as float
	y 	as float
	z 	as float
	fx 	as float
	fy 	as float
	fz 	as float
endtype

`Globals =========================================================================================

GLOBAL CAM as cameraData
	CAM.tilt = camera angle x()
	CAM.pan = camera angle y()
	
GLOBAL CAM_CONTROL_SPEED as float = 10.0 ` > value = < speed = > control. ie: when using an \'aim\' skill, raise it.

`Functions =======================================================================================

function controls_updateCamera(anchorObject)
	`get anchor
	anchorX = object position x(anchorObject)
	anchorY = object position y(anchorObject)
	anchorZ = object position z(anchorObject)
	anchorH = object size y(anchorObject)
	
	`get mouse control
	CAM.tilt = curveangle(CAM.tilt + mousemovey(), CAM.tilt, CAM_CONTROL_SPEED)
	CAM.pan = curveangle(CAM.pan + mousemovex(), CAM.pan, CAM_CONTROL_SPEED)
	position mouse 0, 0
	
	`clamp tilt
	if CAM.tilt > 85.0 and CAM.tilt < 180.0 then CAM.tilt = 85.0
	if CAM.tilt < 300.0 and CAM.tilt > 180.0 then CAM.tilt = 300.0
		
	`calc position / vectored velocity
	d# = cos(CAM.tilt) * CAM_VELOCITY
	CAM.x = anchorX + sin(CAM.pan) * d#
	CAM.y = anchorY + sin(CAM.tilt) * CAM_VELOCITY
	CAM.z = anchorZ + cos(CAM.pan) * d#

	`calc focal point
	CAM.fx = anchorX
	CAM.fy = anchorY + (anchorH * CAM_BASE_HEIGHT)
	CAM.fz = anchorZ

	`update cam
	position camera CAM.x, CAM.y + (anchorH * CAM_BASE_HEIGHT), CAM.z
	point camera CAM.fx, CAM.fy, CAM.fz
endfunction