TStkBlowHole

type TStkBlowHole = class(TStkControlableInstrument)

protected

  FDelays: array [0..2] of TStkDelayL;

  FReedTable: TStkReedTable;

  FFilter: TStkOneZero;

  FTonehole: TStkPoleZero;

  FVent: TStkPoleZero;

  FEnvelope: TStkEnvelope;

  FNoise: TStkNoise;

  FVibrato: TStkLFO;

  FLength: Integer;

  FScatter: Single;

  FThCoeff: Single;

  FRth: Single;

  FRhCoeff: Single;

  FRhGain: Single;

  FOutputGain: Single;

  FNoiseGain: Single;

  FVibratoGain: Single;

  FBaseFrequency: Single;

  procedure SetFrequency(); override;

  function GetFrequency; override;

  procedure FrequencyChanged; virtual;

  procedure SetTonehole();

  procedure SetVent();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Clear;

  procedure StartBlowing();

  procedure StopBlowing();

  procedure NoteOn(); override;

  procedure NoteOff(); override;

  function Tick; override;

  procedure ControlChange(); override;

end;

TStkBlowHole

TStkControlableInstrument

TStkInstrument

TStk

TObject