; Particle and Box3D collision
; Press Space to throw sparks at the floor. No external media is required.

Graphics3D 1024,768,0,2
SetBuffer BackBuffer()
AppTitle "Blitz3D Colliding Sparks"

Const PHYSICS_STATIC=0
world=CreatePhysicsWorld()
PhysicsGravity world,0,-9.81,0

floor=CreateCube()
ScaleEntity floor,5,.25,5
PositionEntity floor,0,-.25,0
EntityColor floor,55,60,72
floor_body=CreatePhysicsBody(world,floor,PHYSICS_STATIC)
floor_shape=PhysicsBodyBox(floor_body,10,.5,10,0)

camera=CreateCamera()
PositionEntity camera,0,3,-8
PointEntity camera,floor
CameraClsColor camera,8,12,24

sparks=CreateParticleEmitter(600)
ParticlePreset sparks,4
PositionEntity sparks,0,2,0
ParticleCollision sparks,world,.04,.65,.15

While Not KeyHit(1)
    If KeyHit(57) Then EmitParticles sparks,100
    UpdateWorld
    RenderWorld
    Color 255,255,255
    Text 20,20,"Space: burst   Esc: quit"
    Text 20,42,"Live: "+CountParticles(sparks)+"   collisions: "+ParticleCollisionCount(sparks)
    Flip
Wend

FreePhysicsWorld world
End