rem Loading models - OpenDBC tutorial (DarkBASIC Classic)
rem Media: imp_idle.x, imp_walk.x and imp.jpg from examples/dbc/tutorials/3d
sync on : sync rate 60
autocam off
color backdrop rgb(50, 60, 80)
set ambient light 60

rem Load the imp twice: the .x file finds imp.jpg by itself
load object "imp_idle.x", 1
load object "imp_walk.x", 2
scale object 1, 200, 200, 200
scale object 2, 200, 200, 200
position object 1, -6, 0, 0
position object 2, 6, 0, 0

rem Play their animations forever, the walker a little faster
loop object 1
loop object 2
set object speed 2, 140

make object plain 3, 60, 30
xrotate object 3, 90
color object 3, rgb(70, 80, 100)

position camera 0, 6, -22
point camera 0, 3, 0

do
   yrotate object 2, wrapvalue(object angle y(2) + 0.5)
   text 10, 10, "Frames: " + str$(total object frames(1)) + " / " + str$(total object frames(2))
   sync
loop