rem Moving the camera: stay on the ground - OpenDBC tutorial (DarkBASIC Classic)
sync on : sync rate 60
autocam off
color backdrop rgb(150, 190, 230)

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

rem The camera looks a little down, so MOVE CAMERA alone would sink into the floor
position camera 0, 10, -120
xrotate camera 15

do
   move camera 1
   yrotate camera wrapvalue(camera angle y() + 0.5)
   position camera camera position x(), 10, camera position z()
   text 10, 10, "Eye height: " + str$(camera position y())
   sync
loop