TStkSimple

type TStkSimple = class(TStkControlableInstrument)

protected

  FADSR: TStkADSR;

  FLoop: TStkWavePlayer;

  FFilter: TStkOnePole;

  FBiQuad: TStkBiQuad;

  FNoise: TStkNoise;

  FBaseFrequency: Single;

  FLoopGain: Single;

  procedure SetFrequency(); override;

  function GetFrequency; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure KeyOn;

  procedure KeyOff;

  procedure NoteOn(); override;

  procedure NoteOff(); override;

  function Tick; override;

  procedure ControlChange(); override;

end;

TStkSimple

TStkControlableInstrument

TStkInstrument

TStk

TObject