TStkBandedWG

type TStkBandedWG = class(TStkInstrument)

protected

  FDoPluck: Boolean;

  FTrackVelocity: Boolean;

  FNModes: Integer;

  FPresetModes: Integer;

  FBowTabl: TBowTable;

  FADSR: TAdsr;

  FBandpass: array [0..CMaxBandedModes-1] of TBiquad;

  FDelay: array [0..CMaxBandedModes-1] of TDelayl;

  FFreakency: Single;

  FBaseGain: Single;

  FMaxVelocity: Single;

  FGains: Single;

  FBaseGains: Single;

  FExcitation: array [0..CMaxBandedModes-1] of Single;

  FModes: array [0..CMaxBandedModes-1] of Single;

  FIntegrationConstant: Single;

  FVelocityInput: Single;

  FBowVelocity: Single;

  FBowTarget: Single;

  FStrikeAmp: Single;

  FBowPosition: Single;

  FStrikePosition: Integer;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Clear;

  procedure setStrikePosition();

  procedure setPreset();

  procedure setFrequency();

  procedure startBowing();

  procedure stopBowing();

  procedure pluck();

  procedure noteOn();

  procedure noteOff();

  function Tick;

  procedure controlChange();

end;

TStkBandedWG

TStkInstrument

TStk

TObject