TParticleEngine

type TParticleEngine = class

  pCount: Integer;

  tCount: Integer;

  ptCount: Integer;

  lCount: Integer;

  pt: array of TParticle;

  trail: array of TTrail;

  pTypes: array of TParticleType;

  launcher: array of TParticleLauncher;

public

  destructor Destroy; override;

  function AddLauncher();

  function AddParticle();

  function AddPType();

  function AddTrail();

  procedure ApplyForce();

  procedure Clear;

  procedure ClearLaunchers;

  procedure ClearParticles;

  procedure ClearPTypes;

  procedure ClearTrails;

  function CloneLauncher();

  procedure Draw2D;

  procedure Draw2DParticles();

  procedure Draw2DTrails();

  procedure Draw3D;

  procedure Draw3DParticles();

  procedure Draw3DTrails();

  function IndexOf();

  procedure Launch2D();

  procedure Launch3D();

  procedure Move2D();

  procedure Move3D();

  procedure ReadMatrix;

  procedure RemoveParticle();

  procedure SetLauncherColor();

  procedure SetLauncherPos();

  procedure SetParticleColor();

  procedure SetTrailColor();

  procedure SetTrailPos();

end;

TParticleEngine

TObject