TDspEnvelopeFollower

type TDspEnvelopeFollower = class(TDspBaseComponent)

protected

  FLastOutputSingle: TDAVSingleDynarray;

  FLastOutputDouble: TDAVDoubleDynArray;

  FInternalAttack: Single;

  FInternalRelease: Single;

  FAttack: Single;

  FRelease: Single;

  procedure SetAttack();

  procedure SetRelease();

  procedure BeforeDestroy; override;

  procedure SampleRateChanged; override;

  procedure ChannelsChanged; override;

  procedure Process();

public

  procedure Init; override;

  procedure Reset; override;

published

  property Attack: Single; [rw]

  property Release: Single; [rw]

end;

TDspEnvelopeFollower

TDspBaseComponent

TDAVProcessingComponent

TObject