TNXSoundSource

type TNXSoundSource = class

  name: string;

  index: Integer;

  source: TALuint;

  buffer: TNXSoundBuffer;

  position: TVector;

  velocity: TVector;

  loaded: Boolean;

public

  constructor Create();

  destructor Destroy; override;

  procedure Pause;

  procedure Play;

  procedure SetBuffer();

  procedure SetLooping();

  procedure Stop;

  procedure Update;

end;

TNXSoundSource

TObject