experimental positioning support added

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@753 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 15 insertions, 2 deletions

diff --git a/Game/Code/Classes/UAudioPlayback_Portaudio.pas b/Game/Code/Classes/UAudioPlayback_Portaudio.pas
index 36bebc8a..c2694e6d 100644
--- a/Game/Code/Classes/UAudioPlayback_Portaudio.pas
+++ b/Game/Code/Classes/UAudioPlayback_Portaudio.pas
@@ -46,9 +46,12 @@ type
       function GetLength(): real;           override;
       function GetStatus(): TStreamStatus;  override;
 
-      function ReadData(Buffer: PChar; BufSize: integer): integer;
-
       function IsLoaded(): boolean;
+
+      // functions delegated to the decode stream
+      function GetPosition: real;
+      procedure SetPosition(Time: real);
+      function ReadData(Buffer: PChar; BufSize: integer): integer;
   end;
 
 type
@@ -269,6 +272,16 @@ begin
   end;
 end;
 
+function TPortaudioPlaybackStream.GetPosition: real;
+begin
+  result := decodeStream.Position;
+end;
+
+procedure TPortaudioPlaybackStream.SetPosition(Time: real);
+begin
+  decodeStream.Position := Time;
+end;
+
 
 { TAudioPlayback_Portaudio }