TStkModulate

type TStkModulate = class(TStk)

protected

  FVibrato: TStkLFO;

  FNoise: TStkSubNoise;

  FFilter: TStkOnePole;

  FVibratoGain: Single;

  FRandomGain: Single;

  FLastOutput: Single;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Reset;

  function Tick();

published

  property VibratoRate: Single; [rw]

  property VibratoGain: Single; [rw]

  property RandomGain: Single; [rw]

  property LastOutput: Single; [r]

end;

TStkModulate

TStk

TObject