; Mesh particles use one batched draw, even though every particle is a 3D object.

Graphics3D 1024,768,0,2
SetBuffer BackBuffer()
AppTitle "Blitz3D Mesh Particles"

camera=CreateCamera()
PositionEntity camera,0,2,-7
CameraClsColor camera,8,12,24

light=CreateLight()
RotateEntity light,45,-30,0

source=CreateCone(4)
HideEntity source

emitter=CreateParticleEmitter(400)
ParticleMesh emitter,source
ParticleEmissionRate emitter,45
ParticleLifetime emitter,2,3
ParticleEmitterShape emitter,3,1.5,1.5,1.5
ParticleVelocity emitter,0,1.8,0,.6,.4,.6
ParticleGravity emitter,0,-.45,0
ParticleDrag emitter,.15
ParticleColor emitter,80,160,255,1,255,80,200,0
ParticleSize emitter,.16,.03,.4
ParticleRotation emitter,0,360,-180,180

While Not KeyHit(1)
    TurnEntity emitter,0,.5,0
    UpdateWorld
    RenderWorld
    Color 255,255,255
    Text 20,20,"Batched mesh particles   Esc: quit"
    Text 20,42,"Live particles: "+CountParticles(emitter)
    Flip
Wend
End