#Include "Ninfa3d.bi"

dim Shared camera as nCAMERA
dim light01 As nLIGHT

Dim As nPARTICLE fairy01,fairy02,font01
Dim As nEMITTER emitter01,emitter02,emitter03

Dim tex As nTEXTURE
Dim pivot As nMESH

Dim sprite As nSPRITE

'Enable vertical synch.
EnableVsync()

'Starts the Ninfa3D Engine
InitEngine(1280,1024,32,1)
  BackGroundColor(0,0,0)'Background color
  AmbientLight(16,16,16)'Ambient color

'Create a camera
camera = CreateCamera()
CameraRange(camera,1,10000)
  PositionEntity(camera,0,3050,0)'Position
    CameraTarget(camera,0,0,0)
     
'Creates the light
light01 = CreateLight(LGT_POINT)
  LightRadius(light01,128)
  PositionEntity(light01,0,196,0)'Position

sprite = LoadSprite("media/glow.bmp")
  EntityParent(sprite,light01)
  ScaleSprite(sprite,64,64)

pivot = CreateMeshNull()'Creates an empty mesh is used as the pivot.

tex = LoadTexture("media/glow.BMP") 'Load the texture.

Dim As I i,r,g,b

For i = 1 To 100
   
  'Random!!!
  r = Rand(0,255)
  g = Rand(0,255)
  b = Rand(0,255)
   
  'Create the particles, in this case to create fire type 1.
  fairy01 = CreateParticle()'Creates particles
   EntityParent(fairy01,pivot)
   PositionEntity(fairy01,100*(i/6),32*(i/2),0)'Position
   ParticleEndSize(fairy01,-40,-40)'Size of the final particles
   EntityTexture(fairy01,tex,0)'Texture
    
  emitter01 = CreateBoxEmitter(fairy01,500,4000)'Creates the emitter.
   BoxEmitterSize(emitter01,4,4,4)'Box emitter size.
   EmitterDirection(emitter01,0,-0.06,0) 'Direction of emitter.
   EmitterPPS(emitter01,60,80)'Particles per second to be emitt by the emitter.
   EmitterStartColor(emitter01,r,g,b,255,255,255)'Color of the minimum and maximum particle.
   EmitterStartSize(emitter01,5,5,30,30)'Minimum and maximum size of the particle.
   
  fairy02 = CreateParticle()'Creates particles
   EntityParent(fairy02,pivot)
   PositionEntity(fairy02,-100*(i/6),32*(i/2),0)'Position
   ParticleEndSize(fairy02,-40,-40)'Size of the final particles
   EntityTexture(fairy02,tex,0)'Texture
   
  emitter02 = CreateBoxEmitter(fairy02,500,4000)'Creates the emitter.
   BoxEmitterSize(emitter02,4,4,4)'Box emitter size.
   EmitterDirection(emitter02,0,-0.06,0) 'Direction of emitter.
   EmitterPPS(emitter02,60,80)'Particles per second to be emitt by the emitter.
   EmitterStartColor(emitter02,0,r,g,b,255,255)'Color of the minimum and maximum particle.
   EmitterStartSize(emitter02,5,5,30,30)'Minimum and maximum size of the particle.
Next

   
While(EngineRun)
   
  HideMouse()
   
  'Begins scene
  BeginScene()
   
   
  If KeyHit(KEY_ESCAPE) Then CloseEngine()
   
   
  UpdateEngine(0)

  TurnEntity(pivot,0,1,0)

   
  'End the scene
  EndScene()
   
Wend

'Ends Ninfa3D Engine
EndEngine()