TStkBlowBottle

type TStkBlowBottle = class(TStkControlableInstrument)

protected

  FJetTable: TStkJetTable;

  FResonator: TStkBiQuad;

  FDCBlock: TStkPoleZero;

  FNoise: TStkNoise;

  FAdsr: TStkADSR;

  FVibrato: TStkLFO;

  FMaxPressure: Single;

  FNoiseGain: Single;

  FVibratoGain: Single;

  FOutputGain: Single;

  FBaseFrequency: Single;

  procedure SetFrequency(); override;

  function GetFrequency; override;

  procedure FrequencyChanged; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Clear;

  procedure StartBlowing();

  procedure StopBlowing();

  procedure NoteOn(); override;

  procedure NoteOff(); override;

  function Tick; override;

  procedure ControlChange(); override;

end;

TStkBlowBottle

TStkControlableInstrument

TStkInstrument

TStk

TObject