Sorry your browser is not supported!

dim camX(2) as float
dim camY(2) as float
dim camZ(2) as float
dim camA(2) as float
dim camB(2) as float
dim camC(2) as float
camera=1
global saveCamera as integer

do
   rem Main Loop Here

   rem To move camera 1
   setCamera(1)
   move camera 50

   rem To display from camera 2
   setCamera(2)
   sync
loop

function setCamera(camera)
   saveCamera=camera+1
   if saveCamera=3 then saveCamera=1
   camX(saveCamera)=camera position x()
   camY(saveCamera)=camera position y()
   camZ(saveCamera)=camera position z()
   camA(saveCamera)=camera angle x()
   camB(saveCamera)=camera angle y()
   camC(saveCamera)=camera angle z()

   position camera camX(camera),camY(camera),camZ(camera)
   rotate camera camA(camera),camB(camera),camC(camera)
endfunction