sync on : sync rate 60 : backdrop off
REM COMMENT THE NEXT LINE TO DISABLE IMAGES
#constant USE_IMAGES 1
if USE_IMAGES
load image "Crate.png",1,1
sprite 1,-100,-100,1
set sprite 1,0,0
offset sprite 1,25,25
endif
b2SetUnits 0.1,0.017453292519943295769236907684886
myworld = b2CreateWorld(-2000,-2000,2000,2000,0,500,1)
floorbody = b2CreateBoxBody(myworld,800,20,0,0,0.5)
b2PositionBody floorbody,512,700
BodyCount = 1
dim Bodies(-1) as integer
ink rgb(200,200,200),0
do
if rnd(20) = 1
newbox = b2CreateBoxBody(myworld,50,50,1,0.2,0.5)
b2PositionBody newbox,rnd(500)+400,rnd(200)
inc BodyCount
array insert at bottom Bodies(0)
Bodies(BodyCount-2) = newbox
endif
b2Step myworld
if USE_IMAGES
for i = 0 to BodyCount-2
if b2GetBodyY(Bodies(i)) > 800
b2DeleteBody myworld,Bodies(i)
array delete element Bodies(0),i
dec i
dec BodyCount
else
rotate sprite 1,b2GetBodyAngle(Bodies(i))
paste sprite 1,b2GetBodyX(Bodies(i)),b2GetBodyY(Bodies(i))
endif
next i
else
b2DrawDebugInfo myworld,0,0,1,1
endif
box 112,690,912,710
text 0,0,str$(screen fps())
text 0,20,"Body count: "+str$(BodyCount)
sync
cls 0
loop