Sorry your browser is not supported!

Rem Project: Dark Basic Pro Project
Rem Created: Sunday, August 29, 2010

Rem ***** Main Source File *****
set display mode 800,600,32,1
sync on: sync rate 60
begin:
gosub start
goto begin
start:
` Create the ODE World
ode start
ode set world gravity 0,-20,0
ode set world step 0.05
ode set world erp (0.2)*2.5
ode set world cfm (10^-5)*2.5

` Create a static floor.  Implement in Dark Basic Professional first, 
` and then ask ODE to do the same...
make object box 1,200,10,200
color object 1, rgb(128,255,128)
ode create static box 1
` Create 4 dynamic objects
` Implement in Dark Basic Professional first
` and then ask ODE to do the same...

make object box 2,10,5,8
make object sphere 3,12,16,16
make object cone 4, 10 : xrotate object 4, 90
make object box 5,8,0.1,10 : xrotate object 5, 90

position object 2, -5,20,0
position object 3, 3,40,3
position object 4, 0,60,-3
position object 5, 0,80,5

ode create dynamic box 2
ode create dynamic sphere 3
ode create dynamic triangle mesh 4
ode create dynamic box 5

` continued… 
` Add friction to our objects
ode set contact fdir1 1, 20.0
ode set contact fdir1 2, 20.0
ode set contact fdir1 3, 20.0
ode set contact fdir1 4, 20.0
ode set contact fdir1 5, 20.0

` Position the camera, and watch what happens...
position camera 0, 50, -120
point camera 0,20,0

while inkey$() = ""
    control camera using arrowkeys 0,3,4
    ode update
    sync
endwhile

ode end

for n=1 to 5
    delete object n
NEXT n

return
` Tidy up... 

end

backdrop on
color backdrop 0
disable escapekey 
autocam off

position camera 0,600,-200
`make object cube 1,10
make object sphere 1,10
color object 1,rgb(255,0,0)
position object 1,0,680,0
for n= 2 to 12
make object box n,200,10,200
position object n,0,(50)*n,0
next n
ODE start

ode create dynamic sphere 1
for n= 2 to 12
ode create static box n
ode set contact fdir1 n, 20.0
next n
`ode set world gravity 0,-1,0
`ode set world step 1
`ode set world quick step num iterations 100
`ode set gravity 1,1
`ode set gravity 2,1
`ode set body mass 1,1
`ode setsurface mode 2,0,0
`ode set contact 1,1,1
repeat  
position camera camera position x(),object position y(1),camera position z()
ode set angular velocity 1,.001,0,0
inc y#,.00000000001
ode add force 1,0,0,0,0,0,0
ODE update 
UNTIL escapekey()=1

ODE end
end