zglTEmitter2D

type zglTEmitter2D = record

  _private: record

    pengine: zglPPEngine2D;

    particle: array [0..EMITTER_MAX_PARTICLES-1] of zglTParticle2D;

    list: array [0..EMITTER_MAX_PARTICLES-1] of zglPParticle2D;

    parCreated: Integer;

    texFile: UTF8String;

    texHash: LongWord;

  end;

  ID: Integer;

  Type_: Byte;

  Params: record

    Layer: Integer;

    LifeTime: Integer;

    Loop: Boolean;

    Emission: Integer;

    Position: zglTPoint2D;

  end;

  ParParams: zglTParticleParams;

  Life: Single;

  Time: Double;

  LastSecond: Double;

  Particles: Integer;

  BBox: record

    MinX: Single;

    MaxX: Single;

    MinY: Single;

    MaxY: Single;

  end;

  case Byte of

    EMITTER_POINT: (

        AsPoint: zglTEmitterPoint;

      );

    EMITTER_LINE: (

        AsLine: zglTEmitterLine;

      );

    EMITTER_RECTANGLE: (

        AsRect: zglTEmitterRect;

      );

    EMITTER_CIRCLE: (

        AsCircle: zglTEmitterCircle;

      );

    EMITTER_RING: (

        AsRing: zglTEmitterRing;

      );

end;