rem 3D primitives - OpenDBC tutorial (DarkBASIC Classic)
sync on : sync rate 60
autocam off
color backdrop rgb(20, 24, 40)

rem Every object gets a number you choose: 1, 2, 3...
make object cube 1, 10
make object sphere 2, 10
make object cone 3, 10
make object cylinder 4, 10
make object box 5, 14, 6, 6
make object plain 6, 80, 40

rem Line them up and give each one a colour
for n = 1 to 5
   position object n, -28 + (n - 1) * 14, 0, 0
next n
color object 1, rgb(255, 90, 90)
color object 2, rgb(90, 200, 255)
color object 3, rgb(255, 210, 80)
color object 4, rgb(130, 255, 130)
color object 5, rgb(220, 140, 255)

rem The plain is flat and faces the camera: lay it down as a floor
position object 6, 0, -6, 0
xrotate object 6, 90
color object 6, rgb(60, 70, 100)

position camera 0, 18, -50
point camera 0, 0, 0

do
   for n = 1 to 5
      yrotate object n, wrapvalue(object angle y(n) + n)
   next n
   sync
loop