TStkVoiceFormant

type TStkVoiceFormant = class(TStkInstrument)

protected

  FVoiced: TStkSingWave;

  FPhonemes: TStkPhonemes;

  FNoise: TStkNoise;

  FNoiseEnv: TStkEnvelope;

  FFilters: array [0..3] of TStkFormantSweep;

  FOnePole: TStkOnePole;

  FOneZero: TStkOneZero;

  FBaseFrequency: Single;

  procedure SetFrequency(); override;

  procedure FrequencyChanged; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Clear;

  function SetPhoneme();

  procedure SetVoiced();

  procedure SetUnVoiced();

  procedure SetFilterSweepRate();

  procedure SetPitchSweepRate();

  procedure Speak;

  procedure Quiet;

  procedure NoteOn(); override;

  procedure NoteOff(); override;

  function Tick; override;

  procedure ControlChange();

end;

TStkVoiceFormant

TStkInstrument

TStk

TObject