gl: rotate shots

[d2df-sdl.git] / src / engine / e_soundfile.pas

diff --git a/src/engine/e_soundfile.pas b/src/engine/e_soundfile.pas
index 919715c5dea3dc3da6a7a9242748b10e5af7f87a..c508593235bc070b10a2d348efcc7942131e4885 100644 (file)
--- a/src/engine/e_soundfile.pas
+++ b/src/engine/e_soundfile.pas
@@ -2,8 +2,7 @@
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
  *
  * This program is free software: you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by

- * the Free Software Foundation, either version 3 of the License, or
- * (at your option) any later version.
+ * the Free Software Foundation, version 3 of the License ONLY.

  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  *
  * This program is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of


@@ -36,14 +35,13 @@ type
     FStreaming: Boolean;
 
   public
     FStreaming: Boolean;
 
   public

-    function Load(Data: Pointer; Len: LongWord; SStreaming: Boolean): Boolean; virtual; abstract; overload;
-    function Load(FName: string; SStreaming: Boolean): Boolean; virtual; abstract; overload;
+    function Load(Data: Pointer; Len: LongWord; Loop: Boolean): Boolean; virtual; abstract; overload;
+    function Load(FName: string; Loop: Boolean): Boolean; virtual; abstract; overload;

 
 

-    function SetPosition(Pos: LongWord): Boolean; virtual; abstract;
+    function Finished(): Boolean; virtual; abstract;
+    function Restart(): Boolean; virtual; abstract;

     function FillBuffer(Buf: Pointer; Len: LongWord): LongWord; virtual; abstract;
 
     function FillBuffer(Buf: Pointer; Len: LongWord): LongWord; virtual; abstract;
 

-    function GetAll(var OutPtr: Pointer): LongWord; virtual; abstract;
-

     procedure Free(); virtual; abstract;
 
     property Format: TSoundFormat read FFormat;
     procedure Free(); virtual; abstract;
 
     property Format: TSoundFormat read FFormat;


@@ -51,6 +49,7 @@ type
   end;
 
   TSoundLoaderFactory = class
   end;
 
   TSoundLoaderFactory = class

+  public

     function MatchHeader(Data: Pointer; Len: LongWord): Boolean; virtual; abstract;
     function MatchExtension(FName: string): Boolean; virtual; abstract;
     function GetLoader(): TSoundLoader; virtual; abstract;
     function MatchHeader(Data: Pointer; Len: LongWord): Boolean; virtual; abstract;
     function MatchExtension(FName: string): Boolean; virtual; abstract;
     function GetLoader(): TSoundLoader; virtual; abstract;