TStkPlucked

type TStkPlucked = class(TStkInstrument)

protected

  FDelayLine: TStkDelayA;

  FLoopFilter: TStkOneZero;

  FPpickFilter: TStkOnePole;

  FNoise: TStkNoise;

  FLength: Integer;

  FLoopGain: Single;

  FBaseFrequency: Single;

  procedure SetFrequency(); override;

  function GetFrequency; override;

  procedure FrequencyChanged; virtual;

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Clear;

  procedure Pluck();

  procedure NoteOn(); override;

  procedure NoteOff(); override;

  function Tick; override;

end;

TStkPlucked

TStkInstrument

TStk

TObject