TLeslieRotator

type TLeslieRotator = class(TDspSampleRatePersistent)

protected

  FGainFactor: Single;

  FFilo: Single;

  FLoWid: Single;

  FLowLevel: Single;

  FHiWid: Single;

  FHDep: Single;

  FHighLevel: Single;

  FHiMom: Single;

  FLoMom: Single;

  FHiSet: Single;

  FLoSet: Single;

  FHMom: Single;

  FLMom: Single;

  FHSet: Single;

  FLSet: Single;

  FLoSpd: Single;

  FHiSpd: Single;

  FLoPhi: Single;

  FHiPhi: Single;

  FSpd: Single;

  FHiPos: Integer;

  FDelayBuffer: PDAVSingleFixedArray;

  FState: array [0..1] of Single;

  procedure CrossoverChanged; virtual;

  procedure GainChanged; virtual;

  procedure HighDepthChanged; virtual;

  procedure HighThrobChanged; virtual;

  procedure HighWidthChanged; virtual;

  procedure LeslieSpeedChanged; virtual;

  procedure LowThrobChanged; virtual;

  procedure LowWidthChanged; virtual;

  procedure MomChanged; virtual;

  procedure OutputGainChanged; virtual;

  procedure SampleRateChanged; override;

  procedure SpeedChanged; virtual;

  procedure SpeedParametersChanged; virtual;

public

  constructor Create; override;

  destructor Destroy; override;

  procedure ProcessSample();

  property Crossover: Single; [rw]

  property LeslieSpeed: TLeslieSpeed; [rw]

  property LowThrob: Single; [rw]

  property LowWidth: Single; [rw]

  property HighThrob: Single; [rw]

  property HighDepth: Single; [rw]

  property HighWidth: Single; [rw]

  property OutputGain: Single; [rw]

  property Speed: Single; [rw]

end;

TLeslieRotator

TDspSampleRatePersistent

TDspPersistent

TNotifiablePersistent

TObject