Sorry your browser is not supported!

sync on
sync rate 30
make object cube 1,5
do
x# = object position x(1)
y# = object position y(1)
z# = object position z(1)
angle# = wrapvalue(angle# + 1)
set camera to follow x#,y#,z#,angle#,15,y#+5.5,4,0
point camera x#,y#,z#
rem it should work :)
sync
loop

sync on
sync rate 30
hide mouse
autocam off

rem To get some scale
make matrix 1,1000,1000,5,5

rem Put your own object in here
make object box 1,100,100,100
position object 1,500,0,500

do
rem Control the angle here
a#=wrapvalue(a#+1)

position camera 500+(cos(a#)*500),200,500+(sin(a#)*500)
point camera 500,0,500
sync
loop

ox#=object position x(1): oy#=object position y(1): oz#=object position z(1)
ang#=object angle y(1)

`d is the distance camera should be from the object

position camera newxvalue(ox#,ang#,d#),oy#,newzvalue(oz#,ang#,d#)

rem Standard Setup Code
sync on : sync rate 60
color backdrop rgb(0,0,128) : hide mouse
set text font "arial" : set text size 12 : set text transparent

rem Make Matrix
make matrix 1,100,100,30,30

rem Make Cube and Position in center of matrix
make object cube 1,2
position object 1,50,1,50

rem DO!!
do

rem Increment a variable each loop in this case the variable 'i'.
   inc i

rem Orbit the cam around the object no matter where the object is
   position camera object position x(1)+sin(i)*10,5,object position z(1)+cos(i)*10

rem Point camera at the object
   point camera object position x(1),0,object position z(1)

rem Control cube with arrow keys
   if upkey()=1 then move object 1,+0.3
   if downkey()=1 then move object 1,-0.3

rem My own cheesy text
   center text screen width()/2,460,"Rotating camera around an object using sin and cos     -Epidemicz"

rem SINK!!!
   sync

loop