TGLFireFXManager

type TGLFireFXManager = class(TGLCadenceAbleComponent)

protected

  procedure RegisterClient();

  procedure DeRegisterClient();

  procedure DeRegisterAllClients;

  procedure SetFireDir();

  procedure SetInitialDir();

  procedure SetCadencer();

  function StoreParticleSize;

  procedure SetInnerColor();

  procedure SetOuterColor();

  procedure SetReference();

  procedure SetMaxParticles();

  procedure Notification(); override;

  procedure CalcFire();

  procedure AffParticle3d();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure FireInit;

  procedure IsotropicExplosion();

  procedure RingExplosion();

  property ParticleCount: Integer; [r]

  procedure DoProgress(); override;

published

  property FireDir: TGLCoordinates; [rw]

  property InitialDir: TGLCoordinates; [rw]

  property Cadencer: TGLCadencer; [rw]

  property MaxParticles: Integer; [rw]

  property ParticleSize: Single; [rws]

  property InnerColor: TGLColor; [rw]

  property OuterColor: TGLColor; [rw]

  property FireDensity: Single; [rw]

  property FireEvaporation: Single; [rw]

  property FireCrown: Single; [rw]

  property ParticleLife: Integer; [rw]

  property FireBurst: Single; [rw]

  property FireRadius: Single; [rw]

  property Disabled: Boolean; [rw]

  property Paused: Boolean; [rw]

  property ParticleInterval: Single; [rw]

  property UseInterval: Boolean; [rw]

  property NoZWrite: Boolean; [rw]

  property Reference: TGLBaseSceneObject; [rw]

end;

TGLFireFXManager

TGLCadenceAbleComponent

TObject,IGLProgessAble