TStkSingWave

type TStkSingWave = class(TStk)

protected

  FWave: TStkWavePlayer;

  FModulator: TStkModulate;

  FEnvelope: TStkEnvelope;

  FPitchEnvelope: TStkEnvelope;

  FRate: Single;

  FSweepRate: Single;

  FLastOutput: Single;

  procedure SetFrequency();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure Reset;

  procedure NoteOn;

  procedure NoteOff;

  function LastOut;

  function Tick;

  property VibratoRate: Single; [rw]

  property VibratoGain: Single; [rw]

  property RandomGain: Single; [rw]

  property SweepRate: Single; [rw]

  property GainRate: Single; [rw]

  property GainTarget: Single; [rw]

end;

TStkSingWave

TStk

TObject