Sorry your browser is not supported!

cX#=Camera Position X()
cY#=Camera Position Y()
cZ#=Camera Position Z()

a#=wrapvalue(a#+1)
   If InKey$()="w" Then Position Camera cX#,PosY#+(Sin(a#)*PosY#),cZ#
   If InKey$()="s" Then Position Camera cX#,PosY#-(Sin(a#)*PosY#),cZ#
   If InKey$()="a" Then Position Camera PosX#+(Sin(a#)*PosX#),cY#,PosZ#-(Sin(a#)*PosZ#)
   If InKey$()="d" Then Position Camera PosX#-(Sin(a#)*PosX#),cY#,PosZ#+(Sin(a#)*PosZ#)
Point Camera PosX#,PosY#,PosZ#

ox#=object position x('object to rotate around')
oy#=object position y('object to rotate around')
oz#=object position z('object to rotate around')

`position the camera on the object
position camera ox#,oy#,oz#

`rotate the camera on the variables cax#,cay#,caz#
rotate camera cax#,cay#,caz#

move camera -('distance away from object')

sync on
sync rate 30
hide mouse
autocam off

make matrix 1,1000,1000,5,5
make object box 1,100,100,100
position object 1,500,50,500

do
a#=wrapvalue(a#+mousemovex())
b#=wrapvalue(b#+mousemovey())

position camera 500+(sin(a#)*cos(b#)*500),50+(sin(b#)*500),500+(cos(a#)*cos(b#)*500)
point camera 500,50,500
sync
loop