TStkRagamat

type TStkRagamat = class(TStkControlableInstrument)

protected

  FPport: Integer;

  FRagaStep: Integer;

  FRagaPoint: Integer;

  FVoiceNote: Integer;

  FT60: Single;

  FDrone_prob: Single;

  FNote_prob: Single;

  FDrum_prob: Single;

  FVoic_prob: Single;

  FDroneFreqs: array [0..2] of Single;

  FTempo: Integer;

  FCounter: Integer;

  FKey: Integer;

  FDrones: array [0..2] of TStkDrone;

  FTabla: TStkTabla;

  FVoicdrums: TStkVoiceDrum;

  FSitar: TStkSitar;

  FReverbs: array [0..1] of TStkJCReverb;

  procedure SetFrequency(); override;

  function GetFrequency; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure NoteOn(); override;

  procedure ControlChange(); override;

  procedure Tick();

end;

TStkRagamat

TStkControlableInstrument

TStkInstrument

TStk

TObject