rem Several cameras: drive each camera - OpenDBC tutorial (DarkBASIC Professional)
sync on : sync rate 60
autocam off
color backdrop rgb(120, 160, 210)

make object box 1, 300, 1, 300
color object 1, rgb(60, 110, 60)
make object box 2, 10, 4, 16
color object 2, rgb(230, 80, 60)
for n = 3 to 12
   make object cube n, 12
   position object n, rnd(240) - 120, 6, rnd(240) - 120
next n

make camera 1
set camera view 1, screen width() - 220, 20, screen width() - 20, 170
color backdrop 1, rgb(20, 20, 40)

do
   t = wrapvalue(t + 0.6)
   position object 2, sin(t) * 90, 2.5, cos(t) * 90
   yrotate object 2, wrapvalue(t + 90)
   set camera to follow 0, object position x(2), 2, object position z(2), object angle y(2), 40, 18, 10, 0
   position camera 1, object position x(2), 140, object position z(2)
   point camera 1, object position x(2), 0, object position z(2) + 0.1
   sync
loop