TStkFlute

type TStkFlute = class(TStkControlableInstrument)

protected

  FJetDelay: TStkDelayL;

  FBoreDelay: TStkDelayL;

  FJetTable: TStkJetTable;

  FFilter: TStkOnePole;

  FDCBlock: TStkPoleZero;

  FNoise: TStkNoise;

  FAdsr: TStkADSR;

  FVibrato: TStkLFO;

  FLength: Integer;

  FLastFrequency: Single;

  FMaxPressure: Single;

  FJetReflection: Single;

  FEndReflection: Single;

  FNoiseGain: Single;

  FVibratoGain: Single;

  FOutputGain: Single;

  FJetRatio: Single;

  procedure JetRatioChanged; virtual;

  procedure FrequencyChanged; virtual;

  procedure SetFrequency(); override;

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;

  property JetDelay: Single; [rw]

  property JetReflection: Single; [rw]

  property EndReflection: Single; [rw]

end;

TStkFlute

TStkControlableInstrument

TStkInstrument

TStk

TObject