rem Physics: static and dynamic - OpenDBC tutorial (DarkBASIC Professional)
sync on : sync rate 60
autocam off
color backdrop rgb(18, 20, 34)

rem Object 1 is the ground, object 10 a ball above it
make object box 1, 120, 2, 80
position object 1, 0, -1, 0
color object 1, rgb(70, 80, 110)
make object sphere 10, 8
position object 10, 0, 40, 0
color object 10, rgb(255, 200, 90)

ode start
ode set world gravity 0, -20, 0
ode create static box 1
ode create dynamic sphere 10

position camera 0, 30, -90
point camera 0, 10, 0

do
   ode update
   text 10, 10, "Ball height: " + str$(object position y(10), 1)
   sync
loop