rem Moving the camera: place or aim - OpenDBC tutorial (DarkBASIC Classic)
sync on : sync rate 60
color backdrop rgb(150, 190, 230)

autocam off
position camera 0, 10, -120
yrotate camera 45
move camera 2

rem A floor and a few pillars to look at
make object plain 1, 400, 400
xrotate object 1, 90
color object 1, rgb(70, 120, 70)
for n = 2 to 21
   make object cylinder n, 8
   scale object n, 100, 400, 100
   position object n, rnd(300) - 150, 16, rnd(300) - 150
   color object n, rgb(200, 180, 150)
next n

do
   text 10, 10, "X " + str$(int(camera position x())) + "  Z " + str$(int(camera position z()))
   text 10, 30, "Heading " + str$(int(camera angle y()))
   sync
loop