* synchronize with JEDI-SDL release

git-svn-id: trunk@7899 -

packages/extra/sdl/jedi-sdl.inc

@@ -1,5 +1,5 @@
 {
-  $Id: jedi-sdl.inc,v 1.9 2004/12/23 23:42:17 savage Exp $
+  $Id: jedi-sdl.inc,v 1.15 2007/05/29 21:30:48 savage Exp $
 }
 {******************************************************************************}
 {                                                                              }
@@ -74,6 +74,24 @@
 {                                                                              }
 (*
   $Log: jedi-sdl.inc,v $
+  Revision 1.15  2007/05/29 21:30:48  savage
+  Changes as suggested by Almindor for 64bit compatibility.
+
+  Revision 1.14  2007/05/20 20:29:11  savage
+  Initial Changes to Handle 64 Bits
+
+  Revision 1.13  2007/01/21 15:51:45  savage
+  Added Delphi 2006 support
+
+  Revision 1.12  2006/11/19 18:41:01  savage
+  removed THREADING ON flag as it is no longer needed in latest versions of FPC.
+
+  Revision 1.11  2006/01/04 00:52:41  drellis
+  Updated to include defined for ENDIAN values, SDL_BYTEORDER should now be correctly defined depending onthe platform. Code taken from sdl_mixer
+
+  Revision 1.10  2005/05/22 18:42:31  savage
+  Changes as suggested by Michalis Kamburelis. Thanks again.
+
   Revision 1.9  2004/12/23 23:42:17  savage
   Applied Patches supplied by Michalis Kamburelis ( THANKS! ), for greater FreePascal compatability.
 
@@ -103,6 +121,199 @@
 
 {.$define Debug}           { uncomment for debugging }
 
+{$IFNDEF FPC}
+  {$IFDEF __GPC__}
+    {$I-}
+    {$W-} // turn off GPC warnings
+    {$X+}
+  {$ELSE} {__GPC__}
+    {$IFDEF Debug}
+      {$F+,D+,Q-,L+,R+,I-,S+,Y+,A+}
+    {$ELSE}
+      {$F+,Q-,R-,S-,I-,A+}
+    {$ENDIF}
+  {$ENDIF} {__GPC__}
+{$ELSE}  {FPC}
+  //{$M+}
+{$ENDIF} {FPC}
+
+{$IFDEF LINUX}
+{$DEFINE UNIX}
+{$ENDIF}
+
+{$IFDEF ver70}
+   {$IFDEF Windows}
+     {$DEFINE Win16}
+   {$ENDIF Windows}
+   {$IFDEF MSDOS}
+     {$DEFINE NO_EXPORTS}
+   {$ENDIF MSDOS}
+   {$IFDEF DPMI}
+     {$DEFINE BP_DPMI}
+   {$ENDIF}
+   {$DEFINE OS_16_BIT}
+   {$DEFINE __OS_DOS__}
+{$ENDIF ver70}
+
+{$IFDEF ver80}
+   {$DEFINE Delphi}      {Delphi 1.x}
+   {$DEFINE Delphi16}
+   {$DEFINE Win16}
+   {$DEFINE OS_16_BIT}
+   {$DEFINE __OS_DOS__}
+{$ENDIF ver80}
+
+{$IFDEF ver90}
+   {$DEFINE Delphi}      {Delphi 2.x}
+   {$DEFINE Delphi32}
+   {$DEFINE WIN32}
+   {$DEFINE WINDOWS}
+{$ENDIF ver90}
+
+{$IFDEF ver100}
+   {$DEFINE Delphi}      {Delphi 3.x}
+   {$DEFINE Delphi32}
+   {$DEFINE WIN32}
+   {$DEFINE WINDOWS}
+{$ENDIF ver100}
+
+{$IFDEF ver93}
+   {$DEFINE Delphi}      {C++ Builder 1.x}
+   {$DEFINE Delphi32}
+   {$DEFINE WINDOWS}
+{$ENDIF ver93}
+
+{$IFDEF ver110}
+   {$DEFINE Delphi}      {C++ Builder 3.x}
+   {$DEFINE Delphi32}
+   {$DEFINE WINDOWS}
+{$ENDIF ver110}
+
+{$IFDEF ver120}
+   {$DEFINE Delphi}      {Delphi 4.x}
+   {$DEFINE Delphi32}
+   {$DEFINE Delphi4UP}
+   {$DEFINE Has_Int64}
+   {$DEFINE WINDOWS}
+{$ENDIF ver120}
+
+{$IFDEF ver130}
+   {$DEFINE Delphi}      {Delphi 5.x}
+   {$DEFINE Delphi32}
+   {$DEFINE Delphi4UP}
+   {$DEFINE Delphi5UP}
+   {$DEFINE Has_Int64}
+   {$DEFINE WINDOWS}
+{$ENDIF ver130}
+
+{$IFDEF ver140}
+   {$DEFINE Delphi}      {Delphi 6.x}
+   {$DEFINE Delphi32}
+   {$DEFINE Delphi4UP}
+   {$DEFINE Delphi5UP}
+   {$DEFINE Delphi6UP}
+   {$DEFINE Has_Int64}
+   {$DEFINE HAS_TYPES}
+{$ENDIF ver140}
+
+{$IFDEF ver150}
+   {$DEFINE Delphi}      {Delphi 7.x}
+   {$DEFINE Delphi32}
+   {$DEFINE Delphi4UP}
+   {$DEFINE Delphi5UP}
+   {$DEFINE Delphi6UP}
+   {$DEFINE Delphi7UP}
+   {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types in Delphi 7}
+   {$DEFINE Has_Int64}
+   {$DEFINE HAS_TYPES}
+{$ENDIF ver150}
+
+{$IFDEF ver160}
+   {$DEFINE Delphi}      {Delphi 8}
+   {$DEFINE Delphi32}
+   {$DEFINE Delphi4UP}
+   {$DEFINE Delphi5UP}
+   {$DEFINE Delphi6UP}
+   {$DEFINE Delphi7UP}
+   {$DEFINE Delphi8UP}
+   {$DEFINE Has_Int64}
+   {$DEFINE HAS_TYPES}
+{$ENDIF ver160}
+
+{$IFDEF ver170}
+   {$DEFINE Delphi}      {Delphi 2005}
+   {$DEFINE Delphi32}
+   {$DEFINE Delphi4UP}
+   {$DEFINE Delphi5UP}
+   {$DEFINE Delphi6UP}
+   {$DEFINE Delphi7UP}
+   {$DEFINE Delphi8UP}
+   {$DEFINE Delphi9UP}
+   {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types in Delphi 7}
+   {$DEFINE Has_Int64}
+   {$DEFINE HAS_TYPES}
+{$ENDIF ver170}
+
+{$IFDEF ver180}
+   {$DEFINE Delphi}      {Delphi 2006}
+   {$DEFINE Delphi32}
+   {$DEFINE Delphi4UP}
+   {$DEFINE Delphi5UP}
+   {$DEFINE Delphi6UP}
+   {$DEFINE Delphi7UP}
+   {$DEFINE Delphi8UP}
+   {$DEFINE Delphi9UP}
+   {$DEFINE Delphi10UP}
+   {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types in Delphi 7}
+   {$DEFINE Has_Int64}
+   {$DEFINE HAS_TYPES}
+{$ENDIF ver180}
+
+{$IFDEF ver185}
+   {$DEFINE Delphi}      {Delphi 2007}
+   {$DEFINE Delphi32}
+   {$DEFINE Delphi4UP}
+   {$DEFINE Delphi5UP}
+   {$DEFINE Delphi6UP}
+   {$DEFINE Delphi7UP}
+   {$DEFINE Delphi8UP}
+   {$DEFINE Delphi9UP}
+   {$DEFINE Delphi10UP}
+   {$WARN UNSAFE_TYPE OFF} {Disable warning for unsafe types in Delphi 7}
+   {$DEFINE Has_Int64}
+   {$DEFINE HAS_TYPES}
+{$ENDIF ver180}
+
+{$IFDEF UNIX}
+  {$ifdef VER140}    // Kylix 1 & 2
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+    {$DEFINE KYLIX2UP}
+    {$DEFINE HAS_TYPES}
+  {$endif}
+
+  {$ifdef VER150}   // Kylix 3
+    {$DEFINE KYLIX}
+    {$DEFINE KYLIX1UP}
+    {$DEFINE KYLIX2UP}
+    {$DEFINE KYLIX3UP}
+    {$DEFINE HAS_TYPES}
+  {$endif}
+{$ENDIF UNIX}
+
+{$IFDEF VirtualPascal} {  Virtual Pascal 2.x }
+   {$DEFINE Delphi}    {  Use Delphi Syntax }
+   {$DEFINE VP2}
+   {&Delphi+}
+{$ENDIF VirtualPascal}
+
+{$IFDEF Delphi}
+  {$DEFINE Windows}
+  {$DEFINE USE_STDCALL}
+  //{$ALIGN ON}
+{$ENDIF Delphi}
+
+{$IFDEF FPC}
   {$MODE Delphi}          { use Delphi compatibility mode }
   {$H+}
   {$PACKRECORDS C}        // Added for record
@@ -114,14 +325,20 @@
   {$DEFINE NO_EXPORTS}
   {$DEFINE Has_Int64}
   {$DEFINE NOCRT}
-  {$IFDEF unix}
+  {$IFDEF UNIX}
      {$DEFINE fpc_unix}
   {$ELSE}
      {$DEFINE __OS_DOS__}
   {$ENDIF}
-  {$IFDEF windows}
+  {$IFDEF WIN32}
    {$DEFINE UseWin}
   {$ENDIF}
+  {$DEFINE HAS_TYPES}
+{$ENDIF FPC}
+
+{$IFDEF Win16}
+  {$K+}   {smart callbacks}
+{$ENDIF Win16}
 
  {$IFDEF OS2}
     {$UNDEF Windows}
@@ -129,13 +346,45 @@
     {$DEFINE OS_BigMem}
  {$ENDIF OS2}
 
-{$IFDEF windows}
+{$IFDEF __GPC__}
+  {$UNDEF UseWin}
+  {$UNDEF USE_STDCALL}
+  {$DEFINE OS_BigMem}
+  {$DEFINE NO_EXPORTS}
+  {$DEFINE NOCRT}
+  {$DEFINE cdecl attribute(cdecl)}
+{$ENDIF}
+
+{$IFDEF __TMT__}
+  {$DEFINE OS_BigMem}
+  {$DEFINE NO_EXPORTS}
+  {$DEFINE __OS_DOS__}
+  {$DEFINE UseAT}
+  {$IFNDEF MSDOS}
+    {$DEFINE USE_STDCALL}
+  {$ENDIF}
+
+  {$IFDEF __WIN32__}
+    {$DEFINE Win32}
+    {$DEFINE UseWin}
+    {$DEFINE NOCRT}
+    {$DEFINE Win32}
+    {$IFNDEF __CON__}
+      {$DEFINE Windows}
+    {$ENDIF}
+  {$ENDIF}
+
+  {$A+}  // Word alignment data
+  {$OA+} // Objects and structures align
+{$ENDIF}
+
+{$IFDEF Win32}
   {$DEFINE OS_BigMem}
-{$ELSE windows}
+{$ELSE Win32}
   {$IFDEF ver70}
     {$DEFINE assembler}
   {$ENDIF} { use 16-bit assembler! }
-{$ENDIF windows}
+{$ENDIF Win32}
 
 { ************************** dos/dos-like platforms **************}
 {$IFDEF Windows}
@@ -166,3 +415,24 @@
      {$DEFINE BY_NAME}
    {$ENDIF}
 {$ENDIF}
+
+{$IFNDEF ver70}
+  {$UNDEF assembler}
+{$ENDIF}
+
+{*************** define LITTLE ENDIAN platforms ********************}
+
+
+{$IFDEF Delphi}
+{$DEFINE IA32}
+{$ENDIF}
+
+{$IFDEF KYLIX}
+{$DEFINE IA32}
+{$ENDIF}
+
+{$IFDEF FPC}
+{$IFDEF FPC_LITTLE_ENDIAN}
+{$DEFINE IA32}
+{$ENDIF}
+{$ENDIF}

packages/extra/sdl/logger.pas

@@ -1,6 +1,6 @@
 unit logger;
 {
-  $Id: logger.pas,v 1.1 2004/02/05 00:08:20 savage Exp $
+  $Id: logger.pas,v 1.2 2006/11/26 16:58:04 savage Exp $
 
 }
 {******************************************************************************}
@@ -63,6 +63,9 @@ unit logger;
 {******************************************************************************}
 {
   $Log: logger.pas,v $
+  Revision 1.2  2006/11/26 16:58:04  savage
+  Modifed to create separate log files. Therefore each instance running from the same directory will have their own individual log file, prepended with a number.
+
   Revision 1.1  2004/02/05 00:08:20  savage
   Module 1.0 release
 
@@ -107,10 +110,20 @@ implementation
 
 { TLogger }
 constructor TLogger.Create;
+var
+  FileName : string;
+  FileNo : integer;
 begin
   FApplicationName := ExtractFileName( ParamStr(0) );
   FApplicationPath := ExtractFilePath( ParamStr(0) );
-  AssignFile( FFileHandle, FApplicationPath + ChangeFileExt( FApplicationName, '.log' ) );
+  FileName := FApplicationPath + ChangeFileExt( FApplicationName, '.log' );
+  FileNo := 0;
+  while FileExists( FileName ) do
+  begin
+    inc( FileNo );
+    FileName := FApplicationPath + IntToStr( FileNo ) + ChangeFileExt( FApplicationName, '.log' )
+  end;
+  AssignFile( FFileHandle, FileName );
   ReWrite( FFileHandle );
   (*inherited Create( FApplicationPath + ChangeFileExt( FApplicationName, '.log' ),
                     fmCreate {$IFNDEF FPC}or fmShareExclusive{$ENDIF} );*)

packages/extra/sdl/moduleloader.pas

@@ -59,7 +59,7 @@ interface
 
 // each OS gets its own IFDEFed complete code block to make reading easier
 
-{$IFDEF windows}
+{$IFDEF WIN32}
 uses
   Windows;
 

packages/extra/sdl/sdl_gfx.pas

@@ -1,685 +1,691 @@
-unit sdl_gfx;
-{
-  $Id: sdl_gfx.pas,v 1.1 2005/01/03 19:08:32 savage Exp $
-
-}
-{
-  $Log: sdl_gfx.pas,v $
-  Revision 1.1  2005/01/03 19:08:32  savage
-  Header for the SDL_Gfx library.
-
-
-
-}
-
-{$I jedi-sdl.inc}
-
-interface
-
-uses
-  sdl;
-
-const
-{$IFDEF windows}
-  SDLgfxLibName = 'SDL_gfx.dll';
-{$ENDIF}
-
-{$IFDEF UNIX}
-{$IFDEF DARWIN}
-  SDLgfxLibName = 'libSDL_gfx.dylib';
-{$ELSE}
-  SDLgfxLibName = 'libSDL_gfx.so';
-{$ENDIF}
-{$ENDIF}
-
-{$IFDEF MACOS}
-  SDLgfxLibName = 'SDL_gfx';
-{$ENDIF}
-
-  // Some rates in Hz
-  FPS_UPPER_LIMIT	= 200;
-  FPS_LOWER_LIMIT	= 1;
-  FPS_DEFAULT     = 30;
-
-// ---- Defines
-
-  SMOOTHING_OFF   = 0;
-  SMOOTHING_ON    = 1;
-
-
-
-type
-  PFPSmanager = ^TFPSmanager;
-  TFPSmanager = packed record
-    framecount : Uint32;
-    rateticks : single;
-    lastticks : Uint32;
-    rate : Uint32;
-  end;
-
-// ---- Structures
-  PColorRGBA = ^TColorRGBA;
-  TColorRGBA = packed record
-    r : Uint8;
-    g : Uint8;
-    b : Uint8;
-    a : Uint8;
-  end;
-
-  PColorY = ^TColorY;
-  TColorY = packed record
-    y :	Uint8;
-  end;
-
-{
-
- SDL_framerate: framerate manager
-
- LGPL (c) A. Schiffler
-
-}
-
-procedure SDL_initFramerate( manager : PFPSmanager );
-cdecl; external {$IFDEF __GPC__}name 'SDL_initFramerate'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_initFramerate}
-
-function SDL_setFramerate( manager : PFPSmanager; rate : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_setFramerate'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_setFramerate}
-
-function SDL_getFramerate( manager : PFPSmanager ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_getFramerate'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_getFramerate}
-
-procedure SDL_framerateDelay( manager : PFPSmanager );
-cdecl; external {$IFDEF __GPC__}name 'SDL_framerateDelay'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_framerateDelay}
-
-{
-
- SDL_gfxPrimitives: graphics primitives for SDL
-
- LGPL (c) A. Schiffler
-
-}
-
-// Note: all ___Color routines expect the color to be in format 0xRRGGBBAA 
-
-// Pixel 
-
-function pixelColor( dst : PSDL_Surface; x : Sint16; y : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'pixelColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM pixelColor}
-
-function pixelRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'pixelRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM pixelRGBA}
-
-// Horizontal line 
-
-function hlineColor( dst : PSDL_Surface; x1: Sint16; x2 : Sint16; y : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'hlineColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM hlineColor}
-
-function hlineRGBA( dst : PSDL_Surface; x1: Sint16; x2 : Sint16; y : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'hlineRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM hlineRGBA}
-
-// Vertical line 
-
-function vlineColor( dst : PSDL_Surface; x : Sint16; y1 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'vlineColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM vlineColor}
-
-function vlineRGBA( dst : PSDL_Surface; x : Sint16; y1 : Sint16; y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'vlineRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM vlineRGBA}
-
-// Rectangle 
-
-function rectangleColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'rectangleColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM rectangleColor}
-
-function rectangleRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16;
-				   x2 : Sint16; y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'rectangleRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM rectangleRGBA}
-
-// Filled rectangle (Box) 
-
-function boxColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'boxColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM boxColor}
-
-function boxRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16;
-			     y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'boxRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM boxRGBA}
-
-// Line 
-
-function lineColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'lineColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM lineColor}
-
-function lineRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16;
-			      x2 : Sint16; y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'lineRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM lineRGBA}
-
-// AA Line 
-function aalineColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aalineColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aalineColor}
-
-function aalineRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16;
-				x2 : Sint16; y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aalineRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aalineRGBA}
-
-// Circle 
-
-function circleColor( dst : PSDL_Surface; x : Sint16; y : Sint16; r : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'circleColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM circleColor}
-
-function circleRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'circleRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM circleRGBA}
-
-// AA Circle 
-
-function aacircleColor( dst : PSDL_Surface; x : Sint16; y : Sint16; r : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aacircleColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aacircleColor}
-
-function aacircleRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
-				  rad : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aacircleRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aacircleRGBA}
-
-// Filled Circle 
-
-function filledCircleColor( dst : PSDL_Surface; x : Sint16; y : Sint16; r : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledCircleColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledCircleColor}
-
-function filledCircleRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
-				      rad : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledCircleRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledCircleRGBA}
-
-// Ellipse 
-
-function ellipseColor( dst : PSDL_Surface; x : Sint16; y : Sint16; rx : Sint16; ry : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'ellipseColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM ellipseColor}
-
-function ellipseRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
-				 rx : Sint16; ry : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'ellipseRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM ellipseRGBA}
-
-// AA Ellipse 
-
-function aaellipseColor( dst : PSDL_Surface; xc : Sint16; yc : Sint16; rx : Sint16; ry : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aaellipseColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aaellipseColor}
-
-function aaellipseRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
-				   rx : Sint16; ry : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aaellipseRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aaellipseRGBA}
-
-// Filled Ellipse 
-
-function filledEllipseColor( dst : PSDL_Surface; x : Sint16; y : Sint16; rx : Sint16; ry : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledEllipseColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledEllipseColor}
-
-function filledEllipseRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
-				       rx : Sint16; ry : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledEllipseRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledEllipseRGBA}
-
-// Pie
-
-function pieColor( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16;
-			      start : Sint16; finish : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'pieColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM pieColor}
-
-function pieRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16;
-			     start : Sint16; finish : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'pieRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM pieRGBA}
-
-// Filled Pie
-
-function filledPieColor( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16;
-				    start : Sint16; finish : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledPieColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledPieColor}
-
-function filledPieRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16;
-				   start : Sint16; finish : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledPieRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledPieRGBA}
-
-// Trigon
-
-function trigonColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'trigonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM trigonColor}
-
-function trigonRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16;
-				 r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'trigonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM trigonRGBA}
-
-// AA-Trigon
-
-function aatrigonColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aatrigonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aatrigonColor}
-function aatrigonRGBA( dst : PSDL_Surface;  x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16;
-				   r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aatrigonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aatrigonRGBA}
-
-// Filled Trigon
-
-function filledTrigonColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledTrigonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledTrigonColor}
-
-function filledTrigonRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16;
-				       r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledTrigonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledTrigonRGBA}
-
-// Polygon
-
-function polygonColor( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16; n : integer; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'polygonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM polygonColor}
-
-function polygonRGBA( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16;
-				 n : integer; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'polygonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM polygonRGBA}
-
-// AA-Polygon
-
-function aapolygonColor( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16; n : integer; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aapolygonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aapolygonColor}
-
-function aapolygonRGBA( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16;
-				   n : integer; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'aapolygonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM aapolygonRGBA}
-
-// Filled Polygon
-
-function filledPolygonColor( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16; n : integer; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledPolygonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledPolygonColor}
-
-function filledPolygonRGBA( dst : PSDL_Surface; const vx : PSint16;
-				       const vy : PSint16; n : integer; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'filledPolygonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM filledPolygonRGBA}
-
-// Bezier
-// s = number of steps
-
-function bezierColor( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16; n : integer; s : integer; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'bezierColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM bezierColor}
-
-function bezierRGBA( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16;
-				 n : integer; s : integer; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'bezierRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM bezierRGBA}
-
-
-// Characters/Strings
-
-function characterColor( dst : PSDL_Surface; x : Sint16; y : Sint16; c : char; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'characterColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM characterColor}
-
-function characterRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; c : char; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'characterRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM characterRGBA}
-
-function stringColor( dst : PSDL_Surface; x : Sint16; y : Sint16; const c : PChar; color : Uint32 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'stringColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM stringColor}
-
-function stringRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; const c : PChar; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'stringRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM stringRGBA}
-
-procedure gfxPrimitivesSetFont(const fontdata : Pointer; cw : integer; ch : integer );
-cdecl; external {$IFDEF __GPC__}name 'gfxPrimitivesSetFont'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM gfxPrimitivesSetFont}
-
-{
-
- SDL_imageFilter - bytes-image "filter" routines
- (uses inline x86 MMX optimizations if available)
-
- LGPL (c) A. Schiffler
-
-}
-
-{ Comments:                                                                           }
-{  1.) MMX functions work best if all data blocks are aligned on a 32 bytes boundary. }
-{  2.) Data that is not within an 8 byte boundary is processed using the C routine.   }
-{  3.) Convolution routines do not have C routines at this time.                      }
-
-// Detect MMX capability in CPU
-function SDL_imageFilterMMXdetect : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMMXdetect'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMMXdetect}
-
-// Force use of MMX off (or turn possible use back on)
-procedure SDL_imageFilterMMXoff;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMMXoff'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMMXoff}
-
-procedure SDL_imageFilterMMXon;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMMXon'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMMXon}
-
-//
-// All routines return:
-//   0   OK
-//  -1   Error (internal error, parameter error)
-//
-
-//  SDL_imageFilterAdd: D = saturation255(S1 + S2)
-function SDL_imageFilterAdd(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imaSDL_imageFilterAddgeFilterMMXon'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterAdd}
-
-//  SDL_imageFilterMean: D = S1/2 + S2/2
-function SDL_imageFilterMean(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMean'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMean}
-
-//  SDL_imageFilterSub: D = saturation0(S1 - S2)
-function SDL_imageFilterSub(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSub'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterSub}
-
-//  SDL_imageFilterAbsDiff: D = | S1 - S2 |
-function SDL_imageFilterAbsDiff(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAbsDiff'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterAbsDiff}
-
-//  SDL_imageFilterMult: D = saturation(S1 * S2)
-function SDL_imageFilterMult(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMult'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMult}
-
-//  SDL_imageFilterMultNor: D = S1 * S2   (non-MMX)
-function SDL_imageFilterMultNor(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultNor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMultNor}
-
-//  SDL_imageFilterMultDivby2: D = saturation255(S1/2 * S2)
-function SDL_imageFilterMultDivby2(Src1 : PChar; Src2 : PChar; Dest : PChar;
-					       length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultDivby2'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMultDivby2}
-
-//  SDL_imageFilterMultDivby4: D = saturation255(S1/2 * S2/2)
-function SDL_imageFilterMultDivby4(Src1 : PChar; Src2 : PChar; Dest : PChar;
-					       length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultDivby4'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMultDivby4}
-
-//  SDL_imageFilterBitAnd: D = S1 & S2
-function SDL_imageFilterBitAnd(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitAnd'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterBitAnd}
-
-//  SDL_imageFilterBitOr: D = S1 | S2
-function SDL_imageFilterBitOr(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitOr'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterBitOr}
-
-//  SDL_imageFilterDiv: D = S1 / S2   (non-MMX)
-function SDL_imageFilterDiv(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterDiv'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterDiv}
-
-//  SDL_imageFilterBitNegation: D = !S
-function SDL_imageFilterBitNegation(Src1 : PChar; Dest : PChar; length : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitNegation'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterBitNegation}
-
-//  SDL_imageFilterAddByte: D = saturation255(S + C)
-function SDL_imageFilterAddByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterAddByte}
-
-//  SDL_imageFilterAddUint: D = saturation255(S + (uint)C)
-function SDL_imageFilterAddUint(Src1 : PChar; Dest : PChar; length : integer; C : Cardinal ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterAddUint}
-
-//  SDL_imageFilterAddByteToHalf: D = saturation255(S/2 + C)
-function SDL_imageFilterAddByteToHalf(Src1 : PChar; Dest : PChar; length : integer;
-						  C : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddByteToHalf'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterAddByteToHalf}
-
-//  SDL_imageFilterSubByte: D = saturation0(S - C)
-function SDL_imageFilterSubByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSubByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterSubByte}
-
-//  SDL_imageFilterSubUint: D = saturation0(S - (uint)C)
-function SDL_imageFilterSubUint(Src1 : PChar; Dest : PChar; length : integer; C : Cardinal ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSubUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterSubUint}
-
-//  SDL_imageFilterShiftRight: D = saturation0(S >> N)
-function SDL_imageFilterShiftRight(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterShiftRight}
-
-//  SDL_imageFilterShiftRightUint: D = saturation0((uint)S >> N)
-function SDL_imageFilterShiftRightUint(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRightUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterShiftRightUint}
-
-//  SDL_imageFilterMultByByte: D = saturation255(S * C)
-function SDL_imageFilterMultByByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultByByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterMultByByte}
-
-//  SDL_imageFilterShiftRightAndMultByByte: D = saturation255((S >> N) * C)
-function SDL_imageFilterShiftRightAndMultByByte(Src1 : PChar; Dest : PChar; length : integer;
-							     N : char; C : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRightAndMultByByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterShiftRightAndMultByByte}
-
-//  SDL_imageFilterShiftLeftByte: D = (S << N)
-function SDL_imageFilterShiftLeftByte(Src1 : PChar; Dest : PChar; length : integer;
-						   N : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeftByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterShiftLeftByte}
-
-//  SDL_imageFilterShiftLeftUint: D = ((uint)S << N)
-function SDL_imageFilterShiftLeftUint(Src1 : PChar; Dest : PChar; length : integer;
-						   N : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeftUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterShiftLeftUint}
-
-//  SDL_imageFilterShiftLeft: D = saturation255(S << N)
-function SDL_imageFilterShiftLeft(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeft'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterShiftLeft}
-
-//  SDL_imageFilterBinarizeUsingThreshold: D = S >= T ? 255:0
-function SDL_imageFilterBinarizeUsingThreshold(Src1 : PChar; Dest : PChar; length : integer;
-							   T : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBinarizeUsingThreshold'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterBinarizeUsingThreshold}
-
-//  SDL_imageFilterClipToRange: D = (S >= Tmin) & (S <= Tmax) 255:0
-function SDL_imageFilterClipToRange(Src1 : PChar; Dest : PChar; length : integer;
-						Tmin : Byte; Tmax : Byte ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterClipToRange'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterClipToRange}
-
-//  SDL_imageFilterNormalizeLinear: D = saturation255((Nmax - Nmin)/(Cmax - Cmin)*(S - Cmin) + Nmin)
-function SDL_imageFilterNormalizeLinear(Src1 : PChar; Dest : PChar; length : integer; Cmin : integer;
-						    Cmax : integer; Nmin : integer; Nmax : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterClipToRange'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterClipToRange}
-
-{ !!! NO C-ROUTINE FOR THESE FUNCTIONS YET !!! }
-
-//  SDL_imageFilterConvolveKernel3x3Divide: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel3x3Divide(Src : PChar; Dest : PChar; rows : integer;
-							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel3x3Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterConvolveKernel3x3Divide}
-
-//  SDL_imageFilterConvolveKernel5x5Divide: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel5x5Divide(Src : PChar; Dest : PChar; rows : integer;
-							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel5x5Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterConvolveKernel5x5Divide}
-
-//  SDL_imageFilterConvolveKernel7x7Divide: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel7x7Divide(Src : PChar; Dest : PChar; rows : integer;
-							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel7x7Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterConvolveKernel7x7Divide}
-
-//  SDL_imageFilterConvolveKernel9x9Divide: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel9x9Divide(Src : PChar; Dest : PChar; rows : integer;
-							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel9x9Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterConvolveKernel9x9Divide}
-
-//  SDL_imageFilterConvolveKernel3x3ShiftRight: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel3x3ShiftRight(Src : PChar; Dest : PChar; rows : integer;
-								columns : integer; Kernel : PShortInt;
-								 NRightShift : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel3x3ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterConvolveKernel3x3ShiftRight}
-
-//  SDL_imageFilterConvolveKernel5x5ShiftRight: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel5x5ShiftRight(Src : PChar; Dest : PChar; rows : integer;
-								columns : integer; Kernel : PShortInt;
-								 NRightShift : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel5x5ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterConvolveKernel5x5ShiftRight}
-
-//  SDL_imageFilterConvolveKernel7x7ShiftRight: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel7x7ShiftRight(Src : PChar; Dest : PChar; rows : integer;
-								columns : integer; Kernel : PShortInt;
-								 NRightShift : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel7x7ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterConvolveKernel7x7ShiftRight}
-
-//  SDL_imageFilterConvolveKernel9x9ShiftRight: Dij = saturation0and255( ... )
-function SDL_imageFilterConvolveKernel9x9ShiftRight(Src : PChar; Dest : PChar; rows : integer;
-								columns : integer; Kernel : PShortInt;
-								 NRightShift : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel9x9ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterConvolveKernel9x9ShiftRight}
-
-//  SDL_imageFilterSobelX: Dij = saturation255( ... )
-function SDL_imageFilterSobelX(Src : PChar; Dest : PChar; rows : integer; columns : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSobelX'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterSobelX}
-
-//  SDL_imageFilterSobelXShiftRight: Dij = saturation255( ... )
-function SDL_imageFilterSobelXShiftRight(Src : PChar; Dest : PChar; rows : integer; columns : integer;
-						      NRightShift : char ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSobelXShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterSobelXShiftRight}
-
-// Align/restore stack to 32 byte boundary -- Functionality untested! --
-procedure SDL_imageFilterAlignStack;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAlignStack'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterAlignStack}
-
-procedure SDL_imageFilterRestoreStack;
-cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterRestoreStack'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM SDL_imageFilterRestoreStack}
-
-{
-
- SDL_rotozoom - rotozoomer
-
- LGPL (c) A. Schiffler
-
-}
-
-{ 
- 
- rotozoomSurface()
-
- Rotates and zoomes a 32bit or 8bit 'src' surface to newly created 'dst' surface.
- 'angle' is the rotation in degrees. 'zoom' a scaling factor. If 'smooth' is 1
- then the destination 32bit surface is anti-aliased. If the surface is not 8bit
- or 32bit RGBA/ABGR it will be converted into a 32bit RGBA format on the fly.
-
-}
-
-function rotozoomSurface( src : PSDL_Surface; angle : double; zoom : double; smooth : integer ) : PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'rotozoomSurface'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM rotozoomSurface}
-
-function rotozoomSurfaceXY( src : PSDL_Surface; angle : double; zoomx : double; zoomy : double; smooth : integer ) : PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'rotozoomSurfaceXY'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM rotozoomSurfaceXY}
-
-{ Returns the size of the target surface for a rotozoomSurface() call }
-
-procedure rotozoomSurfaceSize( width : integer; height : integer; angle : double; zoom : double; var dstwidth : integer;
-					  var dstheight : integer );
-cdecl; external {$IFDEF __GPC__}name 'rotozoomSurfaceSize'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM rotozoomSurfaceSize}
-
-procedure rotozoomSurfaceSizeXY
-    ( width : integer; height : integer; angle : double; zoomx : double; zoomy : double;
-     var dstwidth : integer; var dstheight : integer );
-cdecl; external {$IFDEF __GPC__}name 'rotozoomSurfaceSizeXY'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM rotozoomSurfaceSizeXY}
-
-{
-
- zoomSurface()
-
- Zoomes a 32bit or 8bit 'src' surface to newly created 'dst' surface.
- 'zoomx' and 'zoomy' are scaling factors for width and height. If 'smooth' is 1
- then the destination 32bit surface is anti-aliased. If the surface is not 8bit
- or 32bit RGBA/ABGR it will be converted into a 32bit RGBA format on the fly.
-
-}
-
-function zoomSurface(src : PSDL_Surface; zoomx : double; zoomy : double; smooth : integer ) : PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'zoomSurface'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM zoomSurface}
-
-{ Returns the size of the target surface for a zoomSurface() call }
-
-procedure zoomSurfaceSize( width : integer; height : integer; zoomx : double; zoomy : double; var dstwidth : integer; var dstheight : integer );
-cdecl; external {$IFDEF __GPC__}name 'zoomSurfaceSize'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
-{$EXTERNALSYM zoomSurfaceSize}
-
-implementation
-
-end.
+unit sdl_gfx;
+{
+  $Id: sdl_gfx.pas,v 1.3 2007/05/29 21:31:04 savage Exp $
+
+}
+{
+  $Log: sdl_gfx.pas,v $
+  Revision 1.3  2007/05/29 21:31:04  savage
+  Changes as suggested by Almindor for 64bit compatibility.
+
+  Revision 1.2  2007/05/20 20:30:18  savage
+  Initial Changes to Handle 64 Bits
+
+  Revision 1.1  2005/01/03 19:08:32  savage
+  Header for the SDL_Gfx library.
+
+
+
+}
+
+{$I jedi-sdl.inc}
+
+interface
+
+uses
+  sdl;
+
+const
+{$IFDEF WINDOWS}
+  SDLgfxLibName = 'SDL_gfx.dll';
+{$ENDIF}
+
+{$IFDEF UNIX}
+{$IFDEF DARWIN}
+  SDLgfxLibName = 'libSDL_gfx.dylib';
+{$ELSE}
+  SDLgfxLibName = 'libSDL_gfx.so';
+{$ENDIF}
+{$ENDIF}
+
+{$IFDEF MACOS}
+  SDLgfxLibName = 'SDL_gfx';
+{$ENDIF}
+
+  // Some rates in Hz
+  FPS_UPPER_LIMIT	= 200;
+  FPS_LOWER_LIMIT	= 1;
+  FPS_DEFAULT     = 30;
+
+// ---- Defines
+
+  SMOOTHING_OFF   = 0;
+  SMOOTHING_ON    = 1;
+
+
+
+type
+  PFPSmanager = ^TFPSmanager;
+  TFPSmanager = packed record
+    framecount : Uint32;
+    rateticks : single;
+    lastticks : Uint32;
+    rate : Uint32;
+  end;
+
+// ---- Structures
+  PColorRGBA = ^TColorRGBA;
+  TColorRGBA = packed record
+    r : Uint8;
+    g : Uint8;
+    b : Uint8;
+    a : Uint8;
+  end;
+
+  PColorY = ^TColorY;
+  TColorY = packed record
+    y :	Uint8;
+  end;
+
+{
+
+ SDL_framerate: framerate manager
+
+ LGPL (c) A. Schiffler
+
+}
+
+procedure SDL_initFramerate( manager : PFPSmanager );
+cdecl; external {$IFDEF __GPC__}name 'SDL_initFramerate'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_initFramerate}
+
+function SDL_setFramerate( manager : PFPSmanager; rate : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_setFramerate'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_setFramerate}
+
+function SDL_getFramerate( manager : PFPSmanager ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_getFramerate'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_getFramerate}
+
+procedure SDL_framerateDelay( manager : PFPSmanager );
+cdecl; external {$IFDEF __GPC__}name 'SDL_framerateDelay'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_framerateDelay}
+
+{
+
+ SDL_gfxPrimitives: graphics primitives for SDL
+
+ LGPL (c) A. Schiffler
+
+}
+
+// Note: all ___Color routines expect the color to be in format 0xRRGGBBAA 
+
+// Pixel 
+
+function pixelColor( dst : PSDL_Surface; x : Sint16; y : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'pixelColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM pixelColor}
+
+function pixelRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'pixelRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM pixelRGBA}
+
+// Horizontal line 
+
+function hlineColor( dst : PSDL_Surface; x1: Sint16; x2 : Sint16; y : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'hlineColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM hlineColor}
+
+function hlineRGBA( dst : PSDL_Surface; x1: Sint16; x2 : Sint16; y : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'hlineRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM hlineRGBA}
+
+// Vertical line 
+
+function vlineColor( dst : PSDL_Surface; x : Sint16; y1 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'vlineColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM vlineColor}
+
+function vlineRGBA( dst : PSDL_Surface; x : Sint16; y1 : Sint16; y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'vlineRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM vlineRGBA}
+
+// Rectangle 
+
+function rectangleColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'rectangleColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM rectangleColor}
+
+function rectangleRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16;
+				   x2 : Sint16; y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'rectangleRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM rectangleRGBA}
+
+// Filled rectangle (Box) 
+
+function boxColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'boxColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM boxColor}
+
+function boxRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16;
+			     y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'boxRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM boxRGBA}
+
+// Line 
+
+function lineColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'lineColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM lineColor}
+
+function lineRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16;
+			      x2 : Sint16; y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'lineRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM lineRGBA}
+
+// AA Line 
+function aalineColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aalineColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aalineColor}
+
+function aalineRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16;
+				x2 : Sint16; y2 : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aalineRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aalineRGBA}
+
+// Circle 
+
+function circleColor( dst : PSDL_Surface; x : Sint16; y : Sint16; r : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'circleColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM circleColor}
+
+function circleRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'circleRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM circleRGBA}
+
+// AA Circle 
+
+function aacircleColor( dst : PSDL_Surface; x : Sint16; y : Sint16; r : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aacircleColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aacircleColor}
+
+function aacircleRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
+				  rad : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aacircleRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aacircleRGBA}
+
+// Filled Circle 
+
+function filledCircleColor( dst : PSDL_Surface; x : Sint16; y : Sint16; r : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledCircleColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledCircleColor}
+
+function filledCircleRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
+				      rad : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledCircleRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledCircleRGBA}
+
+// Ellipse 
+
+function ellipseColor( dst : PSDL_Surface; x : Sint16; y : Sint16; rx : Sint16; ry : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'ellipseColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM ellipseColor}
+
+function ellipseRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
+				 rx : Sint16; ry : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'ellipseRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM ellipseRGBA}
+
+// AA Ellipse 
+
+function aaellipseColor( dst : PSDL_Surface; xc : Sint16; yc : Sint16; rx : Sint16; ry : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aaellipseColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aaellipseColor}
+
+function aaellipseRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
+				   rx : Sint16; ry : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aaellipseRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aaellipseRGBA}
+
+// Filled Ellipse 
+
+function filledEllipseColor( dst : PSDL_Surface; x : Sint16; y : Sint16; rx : Sint16; ry : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledEllipseColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledEllipseColor}
+
+function filledEllipseRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16;
+				       rx : Sint16; ry : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledEllipseRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledEllipseRGBA}
+
+// Pie
+
+function pieColor( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16;
+			      start : Sint16; finish : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'pieColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM pieColor}
+
+function pieRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16;
+			     start : Sint16; finish : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'pieRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM pieRGBA}
+
+// Filled Pie
+
+function filledPieColor( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16;
+				    start : Sint16; finish : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledPieColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledPieColor}
+
+function filledPieRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; rad : Sint16;
+				   start : Sint16; finish : Sint16; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledPieRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledPieRGBA}
+
+// Trigon
+
+function trigonColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'trigonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM trigonColor}
+
+function trigonRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16;
+				 r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'trigonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM trigonRGBA}
+
+// AA-Trigon
+
+function aatrigonColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aatrigonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aatrigonColor}
+function aatrigonRGBA( dst : PSDL_Surface;  x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16;
+				   r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aatrigonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aatrigonRGBA}
+
+// Filled Trigon
+
+function filledTrigonColor( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledTrigonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledTrigonColor}
+
+function filledTrigonRGBA( dst : PSDL_Surface; x1 : Sint16; y1 : Sint16; x2 : Sint16; y2 : Sint16; x3 : Sint16; y3 : Sint16;
+				       r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledTrigonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledTrigonRGBA}
+
+// Polygon
+
+function polygonColor( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16; n : integer; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'polygonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM polygonColor}
+
+function polygonRGBA( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16;
+				 n : integer; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'polygonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM polygonRGBA}
+
+// AA-Polygon
+
+function aapolygonColor( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16; n : integer; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aapolygonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aapolygonColor}
+
+function aapolygonRGBA( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16;
+				   n : integer; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'aapolygonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM aapolygonRGBA}
+
+// Filled Polygon
+
+function filledPolygonColor( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16; n : integer; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledPolygonColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledPolygonColor}
+
+function filledPolygonRGBA( dst : PSDL_Surface; const vx : PSint16;
+				       const vy : PSint16; n : integer; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'filledPolygonRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM filledPolygonRGBA}
+
+// Bezier
+// s = number of steps
+
+function bezierColor( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16; n : integer; s : integer; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'bezierColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM bezierColor}
+
+function bezierRGBA( dst : PSDL_Surface; const vx : PSint16; const vy : PSint16;
+				 n : integer; s : integer; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'bezierRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM bezierRGBA}
+
+
+// Characters/Strings
+
+function characterColor( dst : PSDL_Surface; x : Sint16; y : Sint16; c : char; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'characterColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM characterColor}
+
+function characterRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; c : char; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'characterRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM characterRGBA}
+
+function stringColor( dst : PSDL_Surface; x : Sint16; y : Sint16; const c : PChar; color : Uint32 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'stringColor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM stringColor}
+
+function stringRGBA( dst : PSDL_Surface; x : Sint16; y : Sint16; const c : PChar; r : Uint8; g : Uint8; b : Uint8; a : Uint8 ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'stringRGBA'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM stringRGBA}
+
+procedure gfxPrimitivesSetFont(const fontdata : Pointer; cw : integer; ch : integer );
+cdecl; external {$IFDEF __GPC__}name 'gfxPrimitivesSetFont'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM gfxPrimitivesSetFont}
+
+{
+
+ SDL_imageFilter - bytes-image "filter" routines
+ (uses inline x86 MMX optimizations if available)
+
+ LGPL (c) A. Schiffler
+
+}
+
+{ Comments:                                                                           }
+{  1.) MMX functions work best if all data blocks are aligned on a 32 bytes boundary. }
+{  2.) Data that is not within an 8 byte boundary is processed using the C routine.   }
+{  3.) Convolution routines do not have C routines at this time.                      }
+
+// Detect MMX capability in CPU
+function SDL_imageFilterMMXdetect : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMMXdetect'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMMXdetect}
+
+// Force use of MMX off (or turn possible use back on)
+procedure SDL_imageFilterMMXoff;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMMXoff'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMMXoff}
+
+procedure SDL_imageFilterMMXon;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMMXon'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMMXon}
+
+//
+// All routines return:
+//   0   OK
+//  -1   Error (internal error, parameter error)
+//
+
+//  SDL_imageFilterAdd: D = saturation255(S1 + S2)
+function SDL_imageFilterAdd(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imaSDL_imageFilterAddgeFilterMMXon'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterAdd}
+
+//  SDL_imageFilterMean: D = S1/2 + S2/2
+function SDL_imageFilterMean(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMean'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMean}
+
+//  SDL_imageFilterSub: D = saturation0(S1 - S2)
+function SDL_imageFilterSub(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSub'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterSub}
+
+//  SDL_imageFilterAbsDiff: D = | S1 - S2 |
+function SDL_imageFilterAbsDiff(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAbsDiff'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterAbsDiff}
+
+//  SDL_imageFilterMult: D = saturation(S1 * S2)
+function SDL_imageFilterMult(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMult'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMult}
+
+//  SDL_imageFilterMultNor: D = S1 * S2   (non-MMX)
+function SDL_imageFilterMultNor(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultNor'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMultNor}
+
+//  SDL_imageFilterMultDivby2: D = saturation255(S1/2 * S2)
+function SDL_imageFilterMultDivby2(Src1 : PChar; Src2 : PChar; Dest : PChar;
+					       length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultDivby2'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMultDivby2}
+
+//  SDL_imageFilterMultDivby4: D = saturation255(S1/2 * S2/2)
+function SDL_imageFilterMultDivby4(Src1 : PChar; Src2 : PChar; Dest : PChar;
+					       length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultDivby4'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMultDivby4}
+
+//  SDL_imageFilterBitAnd: D = S1 & S2
+function SDL_imageFilterBitAnd(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitAnd'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterBitAnd}
+
+//  SDL_imageFilterBitOr: D = S1 | S2
+function SDL_imageFilterBitOr(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitOr'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterBitOr}
+
+//  SDL_imageFilterDiv: D = S1 / S2   (non-MMX)
+function SDL_imageFilterDiv(Src1 : PChar; Src2 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterDiv'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterDiv}
+
+//  SDL_imageFilterBitNegation: D = !S
+function SDL_imageFilterBitNegation(Src1 : PChar; Dest : PChar; length : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBitNegation'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterBitNegation}
+
+//  SDL_imageFilterAddByte: D = saturation255(S + C)
+function SDL_imageFilterAddByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterAddByte}
+
+//  SDL_imageFilterAddUint: D = saturation255(S + (uint)C)
+function SDL_imageFilterAddUint(Src1 : PChar; Dest : PChar; length : integer; C : Cardinal ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterAddUint}
+
+//  SDL_imageFilterAddByteToHalf: D = saturation255(S/2 + C)
+function SDL_imageFilterAddByteToHalf(Src1 : PChar; Dest : PChar; length : integer;
+						  C : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAddByteToHalf'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterAddByteToHalf}
+
+//  SDL_imageFilterSubByte: D = saturation0(S - C)
+function SDL_imageFilterSubByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSubByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterSubByte}
+
+//  SDL_imageFilterSubUint: D = saturation0(S - (uint)C)
+function SDL_imageFilterSubUint(Src1 : PChar; Dest : PChar; length : integer; C : Cardinal ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSubUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterSubUint}
+
+//  SDL_imageFilterShiftRight: D = saturation0(S >> N)
+function SDL_imageFilterShiftRight(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterShiftRight}
+
+//  SDL_imageFilterShiftRightUint: D = saturation0((uint)S >> N)
+function SDL_imageFilterShiftRightUint(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRightUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterShiftRightUint}
+
+//  SDL_imageFilterMultByByte: D = saturation255(S * C)
+function SDL_imageFilterMultByByte(Src1 : PChar; Dest : PChar; length : integer; C : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterMultByByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterMultByByte}
+
+//  SDL_imageFilterShiftRightAndMultByByte: D = saturation255((S >> N) * C)
+function SDL_imageFilterShiftRightAndMultByByte(Src1 : PChar; Dest : PChar; length : integer;
+							     N : char; C : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftRightAndMultByByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterShiftRightAndMultByByte}
+
+//  SDL_imageFilterShiftLeftByte: D = (S << N)
+function SDL_imageFilterShiftLeftByte(Src1 : PChar; Dest : PChar; length : integer;
+						   N : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeftByte'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterShiftLeftByte}
+
+//  SDL_imageFilterShiftLeftUint: D = ((uint)S << N)
+function SDL_imageFilterShiftLeftUint(Src1 : PChar; Dest : PChar; length : integer;
+						   N : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeftUint'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterShiftLeftUint}
+
+//  SDL_imageFilterShiftLeft: D = saturation255(S << N)
+function SDL_imageFilterShiftLeft(Src1 : PChar; Dest : PChar; length : integer;  N : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterShiftLeft'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterShiftLeft}
+
+//  SDL_imageFilterBinarizeUsingThreshold: D = S >= T ? 255:0
+function SDL_imageFilterBinarizeUsingThreshold(Src1 : PChar; Dest : PChar; length : integer;
+							   T : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterBinarizeUsingThreshold'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterBinarizeUsingThreshold}
+
+//  SDL_imageFilterClipToRange: D = (S >= Tmin) & (S <= Tmax) 255:0
+function SDL_imageFilterClipToRange(Src1 : PChar; Dest : PChar; length : integer;
+						Tmin : Byte; Tmax : Byte ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterClipToRange'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterClipToRange}
+
+//  SDL_imageFilterNormalizeLinear: D = saturation255((Nmax - Nmin)/(Cmax - Cmin)*(S - Cmin) + Nmin)
+function SDL_imageFilterNormalizeLinear(Src1 : PChar; Dest : PChar; length : integer; Cmin : integer;
+						    Cmax : integer; Nmin : integer; Nmax : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterClipToRange'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterClipToRange}
+
+{ !!! NO C-ROUTINE FOR THESE FUNCTIONS YET !!! }
+
+//  SDL_imageFilterConvolveKernel3x3Divide: Dij = saturation0and255( ... )
+function SDL_imageFilterConvolveKernel3x3Divide(Src : PChar; Dest : PChar; rows : integer;
+							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel3x3Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterConvolveKernel3x3Divide}
+
+//  SDL_imageFilterConvolveKernel5x5Divide: Dij = saturation0and255( ... )
+function SDL_imageFilterConvolveKernel5x5Divide(Src : PChar; Dest : PChar; rows : integer;
+							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel5x5Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterConvolveKernel5x5Divide}
+
+//  SDL_imageFilterConvolveKernel7x7Divide: Dij = saturation0and255( ... )
+function SDL_imageFilterConvolveKernel7x7Divide(Src : PChar; Dest : PChar; rows : integer;
+							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel7x7Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterConvolveKernel7x7Divide}
+
+//  SDL_imageFilterConvolveKernel9x9Divide: Dij = saturation0and255( ... )
+function SDL_imageFilterConvolveKernel9x9Divide(Src : PChar; Dest : PChar; rows : integer;
+							    columns : integer; Kernel : PShortInt; Divisor : Byte ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel9x9Divide'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterConvolveKernel9x9Divide}
+
+//  SDL_imageFilterConvolveKernel3x3ShiftRight: Dij = saturation0and255( ... )
+function SDL_imageFilterConvolveKernel3x3ShiftRight(Src : PChar; Dest : PChar; rows : integer;
+								columns : integer; Kernel : PShortInt;
+								 NRightShift : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel3x3ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterConvolveKernel3x3ShiftRight}
+
+//  SDL_imageFilterConvolveKernel5x5ShiftRight: Dij = saturation0and255( ... )
+function SDL_imageFilterConvolveKernel5x5ShiftRight(Src : PChar; Dest : PChar; rows : integer;
+								columns : integer; Kernel : PShortInt;
+								 NRightShift : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel5x5ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterConvolveKernel5x5ShiftRight}
+
+//  SDL_imageFilterConvolveKernel7x7ShiftRight: Dij = saturation0and255( ... )
+function SDL_imageFilterConvolveKernel7x7ShiftRight(Src : PChar; Dest : PChar; rows : integer;
+								columns : integer; Kernel : PShortInt;
+								 NRightShift : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel7x7ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterConvolveKernel7x7ShiftRight}
+
+//  SDL_imageFilterConvolveKernel9x9ShiftRight: Dij = saturation0and255( ... )
+function SDL_imageFilterConvolveKernel9x9ShiftRight(Src : PChar; Dest : PChar; rows : integer;
+								columns : integer; Kernel : PShortInt;
+								 NRightShift : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterConvolveKernel9x9ShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterConvolveKernel9x9ShiftRight}
+
+//  SDL_imageFilterSobelX: Dij = saturation255( ... )
+function SDL_imageFilterSobelX(Src : PChar; Dest : PChar; rows : integer; columns : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSobelX'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterSobelX}
+
+//  SDL_imageFilterSobelXShiftRight: Dij = saturation255( ... )
+function SDL_imageFilterSobelXShiftRight(Src : PChar; Dest : PChar; rows : integer; columns : integer;
+						      NRightShift : char ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterSobelXShiftRight'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterSobelXShiftRight}
+
+// Align/restore stack to 32 byte boundary -- Functionality untested! --
+procedure SDL_imageFilterAlignStack;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterAlignStack'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterAlignStack}
+
+procedure SDL_imageFilterRestoreStack;
+cdecl; external {$IFDEF __GPC__}name 'SDL_imageFilterRestoreStack'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM SDL_imageFilterRestoreStack}
+
+{
+
+ SDL_rotozoom - rotozoomer
+
+ LGPL (c) A. Schiffler
+
+}
+
+{ 
+ 
+ rotozoomSurface()
+
+ Rotates and zoomes a 32bit or 8bit 'src' surface to newly created 'dst' surface.
+ 'angle' is the rotation in degrees. 'zoom' a scaling factor. If 'smooth' is 1
+ then the destination 32bit surface is anti-aliased. If the surface is not 8bit
+ or 32bit RGBA/ABGR it will be converted into a 32bit RGBA format on the fly.
+
+}
+
+function rotozoomSurface( src : PSDL_Surface; angle : double; zoom : double; smooth : integer ) : PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'rotozoomSurface'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM rotozoomSurface}
+
+function rotozoomSurfaceXY( src : PSDL_Surface; angle : double; zoomx : double; zoomy : double; smooth : integer ) : PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'rotozoomSurfaceXY'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM rotozoomSurfaceXY}
+
+{ Returns the size of the target surface for a rotozoomSurface() call }
+
+procedure rotozoomSurfaceSize( width : integer; height : integer; angle : double; zoom : double; var dstwidth : integer;
+					  var dstheight : integer );
+cdecl; external {$IFDEF __GPC__}name 'rotozoomSurfaceSize'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM rotozoomSurfaceSize}
+
+procedure rotozoomSurfaceSizeXY
+    ( width : integer; height : integer; angle : double; zoomx : double; zoomy : double;
+     var dstwidth : integer; var dstheight : integer );
+cdecl; external {$IFDEF __GPC__}name 'rotozoomSurfaceSizeXY'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM rotozoomSurfaceSizeXY}
+
+{
+
+ zoomSurface()
+
+ Zoomes a 32bit or 8bit 'src' surface to newly created 'dst' surface.
+ 'zoomx' and 'zoomy' are scaling factors for width and height. If 'smooth' is 1
+ then the destination 32bit surface is anti-aliased. If the surface is not 8bit
+ or 32bit RGBA/ABGR it will be converted into a 32bit RGBA format on the fly.
+
+}
+
+function zoomSurface(src : PSDL_Surface; zoomx : double; zoomy : double; smooth : integer ) : PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'zoomSurface'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM zoomSurface}
+
+{ Returns the size of the target surface for a zoomSurface() call }
+
+procedure zoomSurfaceSize( width : integer; height : integer; zoomx : double; zoomy : double; var dstwidth : integer; var dstheight : integer );
+cdecl; external {$IFDEF __GPC__}name 'zoomSurfaceSize'{$ELSE} SDLgfxLibName{$ENDIF __GPC__};
+{$EXTERNALSYM zoomSurfaceSize}
+
+implementation
+
+end.

packages/extra/sdl/sdl_image.pas

@@ -1,285 +1,345 @@
-unit sdl_image;
-{
-  $Id: sdl_image.pas,v 1.7 2005/01/01 02:03:12 savage Exp $
-  
-}
-{******************************************************************************}
-{                                                                              }
-{       Borland Delphi SDL_Image - An example image loading library for use    }
-{                                  with SDL                                    }
-{       Conversion of the Simple DirectMedia Layer Image Headers               }
-{                                                                              }
-{ Portions created by Sam Lantinga <[email protected]> are                }
-{ Copyright (C) 1997, 1998, 1999, 2000, 2001  Sam Lantinga                     }
-{ 5635-34 Springhouse Dr.                                                      }
-{ Pleasanton, CA 94588 (USA)                                                   }
-{                                                                              }
-{ All Rights Reserved.                                                         }
-{                                                                              }
-{ The original files are : SDL_image.h                                         }
-{                                                                              }
-{ The initial developer of this Pascal code was :                              }
-{ Matthias Thoma <[email protected]>                                             }
-{                                                                              }
-{ Portions created by Matthias Thoma are                                       }
-{ Copyright (C) 2000 - 2001 Matthias Thoma.                                    }
-{                                                                              }
-{                                                                              }
-{ Contributor(s)                                                               }
-{ --------------                                                               }
-{ Dominique Louis <[email protected]>                            }
-{                                                                              }
-{ Obtained through:                                                            }
-{ Joint Endeavour of Delphi Innovators ( Project JEDI )                        }
-{                                                                              }
-{ You may retrieve the latest version of this file at the Project              }
-{ JEDI home page, located at http://delphi-jedi.org                            }
-{                                                                              }
-{ The contents of this file are used with permission, subject to               }
-{ the Mozilla Public License Version 1.1 (the "License"); you may              }
-{ not use this file except in compliance with the License. You may             }
-{ obtain a copy of the License at                                              }
-{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
-{                                                                              }
-{ Software distributed under the License is distributed on an                  }
-{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               }
-{ implied. See the License for the specific language governing                 }
-{ rights and limitations under the License.                                    }
-{                                                                              }
-{ Description                                                                  }
-{ -----------                                                                  }
-{   A simple library to load images of various formats as SDL surfaces         }
-{                                                                              }
-{ Requires                                                                     }
-{ --------                                                                     }
-{   SDL.pas in your search path.                                               }
-{                                                                              }
-{ Programming Notes                                                            }
-{ -----------------                                                            }
-{   See the Aliens Demo on how to make use of this libaray                     }
-{                                                                              }
-{ Revision History                                                             }
-{ ----------------                                                             }
-{   April    02 2001 - MT : Initial Translation                                }
-{                                                                              }
-{   May      08 2001 - DL : Added ExternalSym derectives and copyright header  }
-{                                                                              }
-{   April   03 2003 - DL : Added jedi-sdl.inc include file to support more     }
-{                          Pascal compilers. Initial support is now included   }
-{                          for GnuPascal, VirtualPascal, TMT and obviously     }
-{                          continue support for Delphi Kylix and FreePascal.   }
-{                                                                              }
-{   April   08 2003 - MK : Aka Mr Kroket - Added Better FPC support            }
-{                                                                              }
-{   April   24 2003 - DL : under instruction from Alexey Barkovoy, I have added}
-{                          better TMT Pascal support and under instruction     }
-{                          from Prof. Abimbola Olowofoyeku (The African Chief),}
-{                          I have added better Gnu Pascal support              }
-{                                                                              }
-{   April   30 2003 - DL : under instruction from David Mears AKA              }
-{                          Jason Siletto, I have added FPC Linux support.      }
-{                          This was compiled with fpc 1.1, so remember to set  }
-{                          include file path. ie. -Fi/usr/share/fpcsrc/rtl/*   }
-{                                                                              }
-{
-  $Log: sdl_image.pas,v $
-  Revision 1.7  2005/01/01 02:03:12  savage
-  Updated to v1.2.4
-
-  Revision 1.6  2004/08/14 22:54:30  savage
-  Updated so that Library name defines are correctly defined for MacOS X.
-
-  Revision 1.5  2004/05/10 14:10:04  savage
-  Initial MacOS X support. Fixed defines for MACOS ( Classic ) and DARWIN ( MacOS X ).
-
-  Revision 1.4  2004/04/13 09:32:08  savage
-  Changed Shared object names back to just the .so extension to avoid conflicts on various Linux/Unix distros. Therefore developers will need to create Symbolic links to the actual Share Objects if necessary.
-
-  Revision 1.3  2004/04/01 20:53:23  savage
-  Changed Linux Shared Object names so they reflect the Symbolic Links that are created when installing the RPMs from the SDL site.
-
-  Revision 1.2  2004/03/30 20:23:28  savage
-  Tidied up use of UNIX compiler directive.
-
-  Revision 1.1  2004/02/14 23:35:42  savage
-  version 1 of sdl_image, sdl_mixer and smpeg.
-
-
-}  
-{******************************************************************************}
-
-{$I jedi-sdl.inc}
-
-interface
-
-uses
-{$IFDEF __GPC__}
-  gpc,
-{$ENDIF}
-  sdl;
-
-const
-{$IFDEF windows}
-  SDL_ImageLibName =  'SDL_Image.dll';
-{$ENDIF}
-
-{$IFDEF UNIX}
-{$IFDEF DARWIN}
-  SDL_ImageLibName = 'libSDL_image.dylib';
-{$ELSE}
-  SDL_ImageLibName =  'libSDL_image.so';
-{$ENDIF}
-{$ENDIF}
-
-{$IFDEF MACOS}
-  SDL_ImageLibName = 'SDL_image';
-{$ENDIF}
-
-  // Printable format: "%d.%d.%d", MAJOR, MINOR, PATCHLEVEL
-  SDL_IMAGE_MAJOR_VERSION = 1;
-{$EXTERNALSYM SDL_IMAGE_MAJOR_VERSION}
-  SDL_IMAGE_MINOR_VERSION = 2;
-{$EXTERNALSYM SDL_IMAGE_MINOR_VERSION}
-  SDL_IMAGE_PATCHLEVEL    = 4;
-{$EXTERNALSYM SDL_IMAGE_PATCHLEVEL}
-
-{ This macro can be used to fill a version structure with the compile-time
-  version of the SDL_image library. }
-procedure SDL_IMAGE_VERSION( var X : TSDL_Version );
-{$EXTERNALSYM SDL_IMAGE_VERSION}
-
-{ This function gets the version of the dynamically linked SDL_image library.
-   it should NOT be used to fill a version structure, instead you should
-   use the SDL_IMAGE_VERSION() macro.
- }
-function IMG_Linked_Version : PSDL_version;
-external {$IFDEF __GPC__}name 'IMG_Linked_Version'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_Linked_Version}
-
-{ Load an image from an SDL data source.
-   The 'type' may be one of: "BMP", "GIF", "PNG", etc.
-
-   If the image format supports a transparent pixel, SDL will set the
-   colorkey for the surface.  You can enable RLE acceleration on the
-   surface afterwards by calling:
-        SDL_SetColorKey(image, SDL_RLEACCEL, image.format.colorkey);
-}
-function IMG_LoadTyped_RW(src: PSDL_RWops; freesrc: Integer; _type: PChar): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadTyped_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadTyped_RW}
-{ Convenience functions }
-function IMG_Load(const _file: PChar): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_Load'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_Load}
-function IMG_Load_RW(src: PSDL_RWops; freesrc: Integer): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_Load_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_Load_RW}
-
-{ Invert the alpha of a surface for use with OpenGL
-  This function is now a no-op, and only provided for backwards compatibility. }
-function IMG_InvertAlpha(_on: Integer): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_InvertAlpha'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_InvertAlpha}
-
-{ Functions to detect a file type, given a seekable source }
-function IMG_isBMP(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isBMP'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isBMP}
-function IMG_isPNM(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isPNM'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isPNM}
-function IMG_isXPM(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isXPM'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isXPM}
-function IMG_isXCF(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isXCF'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isXCF}
-function IMG_isPCX(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isPCX'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isPCX}
-function IMG_isGIF(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isGIF'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isGIF}
-function IMG_isJPG(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isJPG'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isJPG}
-function IMG_isTIF(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isTIF'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isTIF}
-function IMG_isPNG(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isPNG'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isPNG}
-function IMG_isLBM(src: PSDL_RWops): Integer;
-cdecl; external {$IFDEF __GPC__}name 'IMG_isLBM'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_isLBM}
-
-{ Individual loading functions }
-function IMG_LoadBMP_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadBMP_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadBMP_RW}
-function IMG_LoadPNM_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadPNM_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadPNM_RW}
-function IMG_LoadXPM_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadXPM_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadXPM_RW}
-function IMG_LoadXCF_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadXCF_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadXCF_RW}
-function IMG_LoadPCX_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadPCX_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadPCX_RW}
-function IMG_LoadGIF_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadGIF_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadGIF_RW}
-function IMG_LoadJPG_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadJPG_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadJPG_RW}
-function IMG_LoadTIF_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadTIF_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadTIF_RW}
-function IMG_LoadPNG_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadPNG_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadPNG_RW}
-function IMG_LoadTGA_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadTGA_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadTGA_RW}
-function IMG_LoadLBM_RW(src: PSDL_RWops): PSDL_Surface;
-cdecl; external {$IFDEF __GPC__}name 'IMG_LoadLBM_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-{$EXTERNALSYM IMG_LoadLBM_RW}
-
-{ used internally, NOT an exported function }
-//function IMG_string_equals( const str1 : PChar; const str2 : PChar ) : integer;
-//cdecl; external {$IFDEF __GPC__}name 'IMG_string_equals'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
-//{ $ EXTERNALSYM IMG_string_equals}
-
-{ Error Macros }
-{ We'll use SDL for reporting errors }
-procedure IMG_SetError( fmt : PChar );
-
-function IMG_GetError : PChar;
-
-implementation
-
-{$IFDEF __GPC__}
-  {$L 'sdl_image'}  { link sdl_image.dll.a or libsdl_image.so or libsdl_image.a }
-{$ENDIF}
-
-procedure SDL_IMAGE_VERSION( var X : TSDL_Version );
-begin
-  X.major := SDL_IMAGE_MAJOR_VERSION;
-  X.minor := SDL_IMAGE_MINOR_VERSION;
-  X.patch := SDL_IMAGE_PATCHLEVEL;
-end;
-
-procedure IMG_SetError( fmt : PChar );
-begin
-  SDL_SetError( fmt );
-end;
-
-function IMG_GetError : PChar;
-begin
-  result := SDL_GetError;
-end;
-
-end.
+unit sdl_image;
+{
+  $Id: sdl_image.pas,v 1.14 2007/05/29 21:31:13 savage Exp $
+  
+}
+{******************************************************************************}
+{                                                                              }
+{       Borland Delphi SDL_Image - An example image loading library for use    }
+{                                  with SDL                                    }
+{       Conversion of the Simple DirectMedia Layer Image Headers               }
+{                                                                              }
+{ Portions created by Sam Lantinga <[email protected]> are                }
+{ Copyright (C) 1997, 1998, 1999, 2000, 2001  Sam Lantinga                     }
+{ 5635-34 Springhouse Dr.                                                      }
+{ Pleasanton, CA 94588 (USA)                                                   }
+{                                                                              }
+{ All Rights Reserved.                                                         }
+{                                                                              }
+{ The original files are : SDL_image.h                                         }
+{                                                                              }
+{ The initial developer of this Pascal code was :                              }
+{ Matthias Thoma <[email protected]>                                             }
+{                                                                              }
+{ Portions created by Matthias Thoma are                                       }
+{ Copyright (C) 2000 - 2001 Matthias Thoma.                                    }
+{                                                                              }
+{                                                                              }
+{ Contributor(s)                                                               }
+{ --------------                                                               }
+{ Dominique Louis <[email protected]>                            }
+{                                                                              }
+{ Obtained through:                                                            }
+{ Joint Endeavour of Delphi Innovators ( Project JEDI )                        }
+{                                                                              }
+{ You may retrieve the latest version of this file at the Project              }
+{ JEDI home page, located at http://delphi-jedi.org                            }
+{                                                                              }
+{ The contents of this file are used with permission, subject to               }
+{ the Mozilla Public License Version 1.1 (the "License"); you may              }
+{ not use this file except in compliance with the License. You may             }
+{ obtain a copy of the License at                                              }
+{ http://www.mozilla.org/MPL/MPL-1.1.html                                      }
+{                                                                              }
+{ Software distributed under the License is distributed on an                  }
+{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               }
+{ implied. See the License for the specific language governing                 }
+{ rights and limitations under the License.                                    }
+{                                                                              }
+{ Description                                                                  }
+{ -----------                                                                  }
+{   A simple library to load images of various formats as SDL surfaces         }
+{                                                                              }
+{ Requires                                                                     }
+{ --------                                                                     }
+{   SDL.pas in your search path.                                               }
+{                                                                              }
+{ Programming Notes                                                            }
+{ -----------------                                                            }
+{   See the Aliens Demo on how to make use of this libaray                     }
+{                                                                              }
+{ Revision History                                                             }
+{ ----------------                                                             }
+{   April    02 2001 - MT : Initial Translation                                }
+{                                                                              }
+{   May      08 2001 - DL : Added ExternalSym derectives and copyright header  }
+{                                                                              }
+{   April   03 2003 - DL : Added jedi-sdl.inc include file to support more     }
+{                          Pascal compilers. Initial support is now included   }
+{                          for GnuPascal, VirtualPascal, TMT and obviously     }
+{                          continue support for Delphi Kylix and FreePascal.   }
+{                                                                              }
+{   April   08 2003 - MK : Aka Mr Kroket - Added Better FPC support            }
+{                                                                              }
+{   April   24 2003 - DL : under instruction from Alexey Barkovoy, I have added}
+{                          better TMT Pascal support and under instruction     }
+{                          from Prof. Abimbola Olowofoyeku (The African Chief),}
+{                          I have added better Gnu Pascal support              }
+{                                                                              }
+{   April   30 2003 - DL : under instruction from David Mears AKA              }
+{                          Jason Siletto, I have added FPC Linux support.      }
+{                          This was compiled with fpc 1.1, so remember to set  }
+{                          include file path. ie. -Fi/usr/share/fpcsrc/rtl/*   }
+{                                                                              }
+{
+  $Log: sdl_image.pas,v $
+  Revision 1.14  2007/05/29 21:31:13  savage
+  Changes as suggested by Almindor for 64bit compatibility.
+
+  Revision 1.13  2007/05/20 20:30:54  savage
+  Initial Changes to Handle 64 Bits
+
+  Revision 1.12  2006/12/02 00:14:40  savage
+  Updated to latest version
+
+  Revision 1.11  2005/04/10 18:22:59  savage
+  Changes as suggested by Michalis, thanks.
+
+  Revision 1.10  2005/04/10 11:48:33  savage
+  Changes as suggested by Michalis, thanks.
+
+  Revision 1.9  2005/01/05 01:47:07  savage
+  Changed LibName to reflect what MacOS X should have. ie libSDL*-1.2.0.dylib respectively.
+
+  Revision 1.8  2005/01/04 23:14:44  savage
+  Changed LibName to reflect what most Linux distros will have. ie libSDL*-1.2.so.0 respectively.
+
+  Revision 1.7  2005/01/01 02:03:12  savage
+  Updated to v1.2.4
+
+  Revision 1.6  2004/08/14 22:54:30  savage
+  Updated so that Library name defines are correctly defined for MacOS X.
+
+  Revision 1.5  2004/05/10 14:10:04  savage
+  Initial MacOS X support. Fixed defines for MACOS ( Classic ) and DARWIN ( MacOS X ).
+
+  Revision 1.4  2004/04/13 09:32:08  savage
+  Changed Shared object names back to just the .so extension to avoid conflicts on various Linux/Unix distros. Therefore developers will need to create Symbolic links to the actual Share Objects if necessary.
+
+  Revision 1.3  2004/04/01 20:53:23  savage
+  Changed Linux Shared Object names so they reflect the Symbolic Links that are created when installing the RPMs from the SDL site.
+
+  Revision 1.2  2004/03/30 20:23:28  savage
+  Tidied up use of UNIX compiler directive.
+
+  Revision 1.1  2004/02/14 23:35:42  savage
+  version 1 of sdl_image, sdl_mixer and smpeg.
+
+
+}  
+{******************************************************************************}
+
+{$I jedi-sdl.inc}
+
+interface
+
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+  sdl;
+
+const
+{$IFDEF WINDOWS}
+  SDL_ImageLibName =  'SDL_Image.dll';
+{$ENDIF}
+
+{$IFDEF UNIX}
+{$IFDEF DARWIN}
+  SDL_ImageLibName = 'libSDL_image-1.2.0.dylib';
+{$ELSE}
+  {$IFDEF FPC}
+    SDL_ImageLibName = 'libSDL_image.so';
+  {$ELSE}
+    SDL_ImageLibName = 'libSDL_image-1.2.so.0';
+  {$ENDIF}
+{$ENDIF}
+{$ENDIF}
+
+{$IFDEF MACOS}
+  SDL_ImageLibName = 'SDL_image';
+{$ENDIF}
+
+  // Printable format: "%d.%d.%d", MAJOR, MINOR, PATCHLEVEL
+  SDL_IMAGE_MAJOR_VERSION = 1;
+{$EXTERNALSYM SDL_IMAGE_MAJOR_VERSION}
+  SDL_IMAGE_MINOR_VERSION = 2;
+{$EXTERNALSYM SDL_IMAGE_MINOR_VERSION}
+  SDL_IMAGE_PATCHLEVEL    = 5;
+{$EXTERNALSYM SDL_IMAGE_PATCHLEVEL}
+
+{ This macro can be used to fill a version structure with the compile-time
+  version of the SDL_image library. }
+procedure SDL_IMAGE_VERSION( var X : TSDL_Version );
+{$EXTERNALSYM SDL_IMAGE_VERSION}
+
+{ This function gets the version of the dynamically linked SDL_image library.
+   it should NOT be used to fill a version structure, instead you should
+   use the SDL_IMAGE_VERSION() macro.
+ }
+function IMG_Linked_Version : PSDL_version;
+external {$IFDEF __GPC__}name 'IMG_Linked_Version'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_Linked_Version}
+
+{ Load an image from an SDL data source.
+   The 'type' may be one of: "BMP", "GIF", "PNG", etc.
+
+   If the image format supports a transparent pixel, SDL will set the
+   colorkey for the surface.  You can enable RLE acceleration on the
+   surface afterwards by calling:
+        SDL_SetColorKey(image, SDL_RLEACCEL, image.format.colorkey);
+}
+function IMG_LoadTyped_RW(src: PSDL_RWops; freesrc: Integer; _type: PChar): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadTyped_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadTyped_RW}
+{ Convenience functions }
+function IMG_Load(const _file: PChar): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_Load'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_Load}
+function IMG_Load_RW(src: PSDL_RWops; freesrc: Integer): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_Load_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_Load_RW}
+
+{ Invert the alpha of a surface for use with OpenGL
+  This function is now a no-op, and only provided for backwards compatibility. }
+function IMG_InvertAlpha(_on: Integer): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_InvertAlpha'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_InvertAlpha}
+
+{ Functions to detect a file type, given a seekable source }
+function IMG_isBMP(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isBMP'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isBMP}
+
+function IMG_isGIF(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isGIF'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isGIF}
+
+function IMG_isJPG(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isJPG'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isJPG}
+
+function IMG_isLBM(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isLBM'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isLBM}
+
+function IMG_isPCX(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isPCX'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isPCX}
+
+function IMG_isPNG(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isPNG'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isPNG}
+
+function IMG_isPNM(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isPNM'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isPNM}
+
+function IMG_isTIF(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isTIF'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isTIF}
+
+function IMG_isXCF(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isXCF'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isXCF}
+
+function IMG_isXPM(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isXPM'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isXPM}
+
+function IMG_isXV(src: PSDL_RWops): Integer;
+cdecl; external {$IFDEF __GPC__}name 'IMG_isXV'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_isXV}
+
+
+{ Individual loading functions }
+function IMG_LoadBMP_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadBMP_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadBMP_RW}
+
+function IMG_LoadGIF_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadGIF_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadGIF_RW}
+
+function IMG_LoadJPG_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadJPG_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadJPG_RW}
+
+function IMG_LoadLBM_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadLBM_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadLBM_RW}
+
+function IMG_LoadPCX_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadPCX_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadPCX_RW}
+
+function IMG_LoadPNM_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadPNM_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadPNM_RW}
+
+function IMG_LoadPNG_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadPNG_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadPNG_RW}
+
+function IMG_LoadTGA_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadTGA_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadTGA_RW}
+
+function IMG_LoadTIF_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadTIF_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadTIF_RW}
+
+function IMG_LoadXCF_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadXCF_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadXCF_RW}
+
+function IMG_LoadXPM_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadXPM_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadXPM_RW}
+
+function IMG_LoadXV_RW(src: PSDL_RWops): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_LoadXV_RW'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_LoadXV_RW}
+
+function IMG_ReadXPMFromArray( xpm : PPChar ): PSDL_Surface;
+cdecl; external {$IFDEF __GPC__}name 'IMG_ReadXPMFromArray'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+{$EXTERNALSYM IMG_ReadXPMFromArray}
+
+
+
+
+{ used internally, NOT an exported function }
+//function IMG_string_equals( const str1 : PChar; const str2 : PChar ) : integer;
+//cdecl; external {$IFDEF __GPC__}name 'IMG_string_equals'{$ELSE} SDL_ImageLibName{$ENDIF __GPC__};
+//{ $ EXTERNALSYM IMG_string_equals}
+
+{ Error Macros }
+{ We'll use SDL for reporting errors }
+procedure IMG_SetError( fmt : PChar );
+
+function IMG_GetError : PChar;
+
+implementation
+
+{$IFDEF __GPC__}
+  {$L 'sdl_image'}  { link sdl_image.dll.a or libsdl_image.so or libsdl_image.a }
+{$ENDIF}
+
+procedure SDL_IMAGE_VERSION( var X : TSDL_Version );
+begin
+  X.major := SDL_IMAGE_MAJOR_VERSION;
+  X.minor := SDL_IMAGE_MINOR_VERSION;
+  X.patch := SDL_IMAGE_PATCHLEVEL;
+end;
+
+procedure IMG_SetError( fmt : PChar );
+begin
+  SDL_SetError( fmt );
+end;
+
+function IMG_GetError : PChar;
+begin
+  result := SDL_GetError;
+end;
+
+end.

packages/extra/sdl/sdl_mixer.pas

@@ -1,1072 +1,1122 @@
-unit sdl_mixer;
-{******************************************************************************}
-{
-  $Id: sdl_mixer.pas,v 1.11 2005/01/01 02:05:19 savage Exp $
-  
-}
-{                                                                              }
-{       Borland Delphi SDL_Mixer - Simple DirectMedia Layer Mixer Library      }
-{       Conversion of the Simple DirectMedia Layer Headers                     }
-{                                                                              }
-{ Portions created by Sam Lantinga <[email protected]> are                }
-{ Copyright (C) 1997, 1998, 1999, 2000, 2001  Sam Lantinga                     }
-{ 5635-34 Springhouse Dr.                                                      }
-{ Pleasanton, CA 94588 (USA)                                                   }
-{                                                                              }
-{ All Rights Reserved.                                                         }
-{                                                                              }
-{ The original files are : SDL_mixer.h                                         }
-{                          music_cmd.h                                         }
-{                          wavestream.h                                        }
-{                          timidity.h                                          }
-{                          playmidi.h                                          }
-{                          music_ogg.h                                         }
-{                          mikmod.h                                            }
-{                                                                              }
-{ The initial developer of this Pascal code was :                              }
-{ Dominqiue Louis <[email protected]>                            }
-{                                                                              }
-{ Portions created by Dominqiue Louis are                                      }
-{ Copyright (C) 2000 - 2001 Dominqiue Louis.                                   }
-{                                                                              }
-{                                                                              }
-{ Contributor(s)                                                               }
-{ --------------                                                               }
-{ Matthias Thoma <[email protected]>                                             }
-{                                                                              }
-{ Obtained through:                                                            }
-{ Joint Endeavour of Delphi Innovators ( Project JEDI )                        }
-{                                                                              }
-{ You may retrieve the latest version of this file at the Project              }
-{ JEDI home page, located at http://delphi-jedi.org                            }
-{                                                                              }
-{ The contents of this file are used with permission, subject to               }
-{ the Mozilla Public License Version 1.1 (the "License"); you may              }
-{ not use this file except in compliance with the License. You may             }
-{ obtain a copy of the License at                                              }
-{ http://www.mozilla.org/MPL/MPL-1.1.html                                                         }
-{                                                                              }
-{ Software distributed under the License is distributed on an                  }
-{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               }
-{ implied. See the License for the specific language governing                 }
-{ rights and limitations under the License.                                    }
-{                                                                              }
-{ Description                                                                  }
-{ -----------                                                                  }
-{                                                                              }
-{                                                                              }
-{                                                                              }
-{                                                                              }
-{                                                                              }
-{                                                                              }
-{                                                                              }
-{ Requires                                                                     }
-{ --------                                                                     }
-{   SDL.pas & SMPEG.pas somewhere within your search path.                     }
-{                                                                              }
-{ Programming Notes                                                            }
-{ -----------------                                                            }
-{   See the Aliens Demo to see how this library is used                        }
-{                                                                              }
-{ Revision History                                                             }
-{ ----------------                                                             }
-{   April    02 2001 - DL : Initial Translation                                }
-{                                                                              }
-{  February  02 2002 - DL : Update to version 1.2.1                            }
-{                                                                              }
-{   April   03 2003 - DL : Added jedi-sdl.inc include file to support more     }
-{                          Pascal compilers. Initial support is now included   }
-{                          for GnuPascal, VirtualPascal, TMT and obviously     }
-{                          continue support for Delphi Kylix and FreePascal.   }
-{                                                                              }
-{   April   24 2003 - DL : under instruction from Alexey Barkovoy, I have added}
-{                          better TMT Pascal support and under instruction     }
-{                          from Prof. Abimbola Olowofoyeku (The African Chief),}
-{                          I have added better Gnu Pascal support              }
-{                                                                              }
-{   April   30 2003 - DL : under instruction from David Mears AKA              }
-{                          Jason Siletto, I have added FPC Linux support.      }
-{                          This was compiled with fpc 1.1, so remember to set  }
-{                          include file path. ie. -Fi/usr/share/fpcsrc/rtl/*   }
-{                                                                              }
-{
-  $Log: sdl_mixer.pas,v $
-  Revision 1.11  2005/01/01 02:05:19  savage
-  Updated to v1.2.6
-
-  Revision 1.10  2004/09/12 21:45:17  savage
-  Robert Reed spotted that Mix_SetMusicPosition was missing from the conversion, so this has now been added.
-
-  Revision 1.9  2004/08/27 21:48:24  savage
-  IFDEFed out Smpeg support on MacOS X
-
-  Revision 1.8  2004/08/14 22:54:30  savage
-  Updated so that Library name defines are correctly defined for MacOS X.
-
-  Revision 1.7  2004/05/10 14:10:04  savage
-  Initial MacOS X support. Fixed defines for MACOS ( Classic ) and DARWIN ( MacOS X ).
-
-  Revision 1.6  2004/04/13 09:32:08  savage
-  Changed Shared object names back to just the .so extension to avoid conflicts on various Linux/Unix distros. Therefore developers will need to create Symbolic links to the actual Share Objects if necessary.
-
-  Revision 1.5  2004/04/01 20:53:23  savage
-  Changed Linux Shared Object names so they reflect the Symbolic Links that are created when installing the RPMs from the SDL site.
-
-  Revision 1.4  2004/03/31 22:20:02  savage
-  Windows unit not used in this file, so it was removed to keep the code tidy.
-
-  Revision 1.3  2004/03/31 10:05:08  savage
-  Better defines for Endianess under FreePascal and Borland compilers.
-
-  Revision 1.2  2004/03/30 20:23:28  savage
-  Tidied up use of UNIX compiler directive.
-
-  Revision 1.1  2004/02/14 23:35:42  savage
-  version 1 of sdl_image, sdl_mixer and smpeg.
-
-
-}
-{******************************************************************************}
-
-{$I jedi-sdl.inc}
-
-interface
-
-{$IFDEF FPC}
-{$IFDEF FPC_LITTLE_ENDIAN}
-{$DEFINE IA32}
-{$ENDIF}
-{$ENDIF}
-
-uses
-{$IFNDEF DARWIN}
-  smpeg,
-{$ENDIF}
-  sdl;
-
-const
-{$IFDEF windows}
-  SDL_MixerLibName = 'SDL_mixer.dll';
-{$ENDIF}
-
-{$IFDEF UNIX}
-{$IFDEF DARWIN}
-  SDL_MixerLibName = 'libSDL_mixer.dylib';
-{$ELSE}
-  SDL_MixerLibName = 'libSDL_mixer.so';
-{$ENDIF}
-{$ENDIF}
-
-{$IFDEF MACOS}
-  SDL_MixerLibName = 'SDL_mixer';
-{$ENDIF}
-
-  {* Printable format: "%d.%d.%d", MAJOR, MINOR, PATCHLEVEL *}
-  SDL_MIXER_MAJOR_VERSION = 1;
-{$EXTERNALSYM MIX_MAJOR_VERSION}
-  SDL_MIXER_MINOR_VERSION = 2;
-{$EXTERNALSYM MIX_MINOR_VERSION}
-  SDL_MIXER_PATCHLEVEL    = 6;
-{$EXTERNALSYM MIX_PATCHLEVEL}
-
-  // Backwards compatibility
-  MIX_MAJOR_VERSION = SDL_MIXER_MAJOR_VERSION;
-  MIX_MINOR_VERSION = SDL_MIXER_MINOR_VERSION;
-  MIX_PATCHLEVEL    = SDL_MIXER_PATCHLEVEL;
-  
-  // SDL_Mixer.h constants
-  { The default mixer has 8 simultaneous mixing channels }
-{$IFNDEF MIX_CHANNELS}
-  MIX_CHANNELS = 8;
-{$ENDIF}
-{$EXTERNALSYM MIX_CHANNELS}
-  { Good default values for a PC soundcard }
-  MIX_DEFAULT_FREQUENCY = 22050;
-{$EXTERNALSYM MIX_DEFAULT_FREQUENCY}
-
-{$IFDEF IA32}
-  MIX_DEFAULT_FORMAT = AUDIO_S16LSB;
-{$ELSE}
-  MIX_DEFAULT_FORMAT = AUDIO_S16MSB;
-{$ENDIF}
-{$EXTERNALSYM MIX_DEFAULT_FORMAT}
-
-  MIX_DEFAULT_CHANNELS = 2;
-{$EXTERNALSYM MIX_DEFAULT_CHANNELS}
-  MIX_MAX_VOLUME = 128; { Volume of a chunk }
-{$EXTERNALSYM MIX_MAX_VOLUME}
-
-  PATH_MAX = 255;
-
-  // mikmod.h constants
-  {*
-  * Library version
-  *}
-  LIBMIKMOD_VERSION_MAJOR = 3;
-  LIBMIKMOD_VERSION_MINOR = 1;
-  LIBMIKMOD_REVISION = 8;
-  LIBMIKMOD_VERSION = ( ( LIBMIKMOD_VERSION_MAJOR shl 16 ) or
-    ( LIBMIKMOD_VERSION_MINOR shl 8 ) or
-    ( LIBMIKMOD_REVISION ) );
-
-type
-  //music_cmd.h types
-  PMusicCMD = ^TMusicCMD;
-  TMusicCMD = record
-    filename : array[ 0..PATH_MAX - 1 ] of char;
-    cmd : array[ 0..PATH_MAX - 1 ] of char;
-    pid : TSYS_ThreadHandle;
-  end;
-
-  //wavestream.h types
-  PWAVStream = ^TWAVStream;
-  TWAVStream = record
-    wavefp : Pointer;
-    start : longint;
-    stop : longint;
-    cvt : TSDL_AudioCVT;
-  end;
-
-  //playmidi.h types
-  PMidiEvent = ^TMidiEvent;
-  TMidiEvent = record
-    time : Longint;
-    channel : uint8;
-    type_ : uint8;
-    a : uint8;
-    b : uint8;
-  end;
-
-  PMidiSong = ^TMidiSong;
-  TMidiSong = record
-    samples : Longint;
-    events : PMidiEvent;
-  end;
-
-  //music_ogg.h types
-  POGG_Music = ^TOGG_Music;
-  TOGG_Music = record
-    playing : integer;
-    volume : integer;
-    //vf: OggVorbis_File;
-    section : integer;
-    cvt : TSDL_AudioCVT;
-    len_available : integer;
-    snd_available : PUint8;
-  end;
-
-  // mikmod.h types
-  {*
-  * Error codes
-  *}
-  TErrorEnum = (
-    MMERR_OPENING_FILE,
-    MMERR_OUT_OF_MEMORY,
-    MMERR_DYNAMIC_LINKING,
-    MMERR_SAMPLE_TOO_BIG,
-    MMERR_OUT_OF_HANDLES,
-    MMERR_UNKNOWN_WAVE_TYPE,
-    MMERR_LOADING_PATTERN,
-    MMERR_LOADING_TRACK,
-    MMERR_LOADING_HEADER,
-    MMERR_LOADING_SAMPLEINFO,
-    MMERR_NOT_A_MODULE,
-    MMERR_NOT_A_STREAM,
-    MMERR_MED_SYNTHSAMPLES,
-    MMERR_ITPACK_INVALID_DATA,
-    MMERR_DETECTING_DEVICE,
-    MMERR_INVALID_DEVICE,
-    MMERR_INITIALIZING_MIXER,
-    MMERR_OPENING_AUDIO,
-    MMERR_8BIT_ONLY,
-    MMERR_16BIT_ONLY,
-    MMERR_STEREO_ONLY,
-    MMERR_ULAW,
-    MMERR_NON_BLOCK,
-    MMERR_AF_AUDIO_PORT,
-    MMERR_AIX_CONFIG_INIT,
-    MMERR_AIX_CONFIG_CONTROL,
-    MMERR_AIX_CONFIG_START,
-    MMERR_GUS_SETTINGS,
-    MMERR_GUS_RESET,
-    MMERR_GUS_TIMER,
-    MMERR_HP_SETSAMPLESIZE,
-    MMERR_HP_SETSPEED,
-    MMERR_HP_CHANNELS,
-    MMERR_HP_AUDIO_OUTPUT,
-    MMERR_HP_AUDIO_DESC,
-    MMERR_HP_BUFFERSIZE,
-    MMERR_OSS_SETFRAGMENT,
-    MMERR_OSS_SETSAMPLESIZE,
-    MMERR_OSS_SETSTEREO,
-    MMERR_OSS_SETSPEED,
-    MMERR_SGI_SPEED,
-    MMERR_SGI_16BIT,
-    MMERR_SGI_8BIT,
-    MMERR_SGI_STEREO,
-    MMERR_SGI_MONO,
-    MMERR_SUN_INIT,
-    MMERR_OS2_MIXSETUP,
-    MMERR_OS2_SEMAPHORE,
-    MMERR_OS2_TIMER,
-    MMERR_OS2_THREAD,
-    MMERR_DS_PRIORITY,
-    MMERR_DS_BUFFER,
-    MMERR_DS_FORMAT,
-    MMERR_DS_NOTIFY,
-    MMERR_DS_EVENT,
-    MMERR_DS_THREAD,
-    MMERR_DS_UPDATE,
-    MMERR_WINMM_HANDLE,
-    MMERR_WINMM_ALLOCATED,
-    MMERR_WINMM_DEVICEID,
-    MMERR_WINMM_FORMAT,
-    MMERR_WINMM_UNKNOWN,
-    MMERR_MAC_SPEED,
-    MMERR_MAC_START,
-    MMERR_MAX
-    );
-
-  PMODULE = ^TMODULE;
-  TMODULE = record
-    (* general module information *)
-    //CHAR*       songname;    (* name of the song *)
-    //CHAR*       modtype;     (* string type of module loaded *)
-    //CHAR*       comment;     (* module comments *)
-    //UWORD       flags;       (* See module flags above *)
-    //UBYTE       numchn;      (* number of module channels *)
-    //UBYTE       numvoices;   (* max # voices used for full NNA playback *)
-    //UWORD       numpos;      (* number of positions in this song *)
-    //UWORD       numpat;      (* number of patterns in this song *)
-    //UWORD       numins;      (* number of instruments *)
-    //UWORD       numsmp;      (* number of samples *)
-    //type = record  INSTRUMENT* instruments; (* all instruments *)
-    //type = record  SAMPLE*     samples;     (* all samples *)
-    //UBYTE       realchn;     (* real number of channels used *)
-    //UBYTE       totalchn;    (* total number of channels used (incl NNAs) *)
-    (* playback settings *)
-    //UWORD       reppos;      (* restart position *)
-    //UBYTE       initspeed;   (* initial song speed *)
-    //UWORD       inittempo;   (* initial song tempo *)
-    //UBYTE       initvolume;  (* initial global volume (0 - 128) *)
-    //UWORD       panning : array[ 0..64- 1 ] of ; (* 64 panning positions *)
-    //UBYTE       chanvol : array[ 0..64- 1 ] of ; (* 64 channel positions *)
-    //UWORD       bpm;         (* current beats-per-minute speed *)
-    //UWORD       sngspd;      (* current song speed *)
-    //SWORD       volume;      (* song volume (0-128) (or user volume) *)
-    //BOOL        extspd;      (* extended speed flag (default enabled) *)
-    //BOOL        panflag;     (* panning flag (default enabled) *)
-    //BOOL        wrap;        (* wrap module ? (default disabled) *)
-    //BOOL        loop;		 (* allow module to loop ? (default enabled) *)
-    //BOOL        fadeout;	 (* volume fade out during last pattern *)
-    //UWORD       patpos;      (* current row number *)
-    //SWORD       sngpos;      (* current song position *)
-    //ULONG       sngtime;     (* current song time in 2^-10 seconds *)
-    //SWORD       relspd;      (* relative speed factor *)
-    (* internal module representation *)
-    //UWORD       numtrk;      (* number of tracks *)
-    //UBYTE**     tracks;      (* array of numtrk pointers to tracks *)
-    //UWORD*      patterns;    (* array of Patterns *)
-    //UWORD*      pattrows;    (* array of number of rows for each pattern *)
-    //UWORD*      positions;   (* all positions *)
-    //BOOL        forbid;      (* if true, no player updatenot  *)
-    //UWORD       numrow;      (* number of rows on current pattern *)
-    //UWORD       vbtick;      (* tick counter (counts from 0 to sngspd) *)
-    //UWORD       sngremainder;(* used for song time computation *)
-    //type = record MP_CONTROL*  control;     (* Effects Channel info (size pf.numchn) *)
-    //type = record MP_VOICE*    voice;       (* Audio Voice information (size md_numchn) *)
-    //UBYTE       globalslide; (* global volume slide rate *)
-    //UBYTE       pat_repcrazy;(* module has just looped to position -1 *)
-    //UWORD       patbrk;      (* position where to start a new pattern *)
-    //UBYTE       patdly;      (* patterndelay counter (command memory) *)
-    //UBYTE       patdly2;     (* patterndelay counter (real one) *)
-    //SWORD       posjmp;      (* flag to indicate a jump is needed... *)
-  end;
-
-  PUNIMOD = ^TUNIMOD;
-  TUNIMOD = TMODULE;
-
-  //SDL_mixer.h types
-  { The internal format for an audio chunk }
-  PMix_Chunk = ^TMix_Chunk;
-  TMix_Chunk = record
-    allocated : integer;
-    abuf : PUint8;
-    alen : Uint32;
-    volume : Uint8; { Per-sample volume, 0-128 }
-  end;
-  Mix_Chunk = TMix_Chunk;
-
-  { The different fading types supported }
-  TMix_Fading = (
-    MIX_NO_FADING,
-    MIX_FADING_OUT,
-    MIX_FADING_IN
-    );
-  Mix_Fading = TMix_Fading;
-
-  TMusic = ( MUS_CMD,
-    MUS_WAV,
-    MUS_MOD,
-    MUS_MID,
-    MUS_OGG,
-    MUS_MP3
-    );
-
-  TMusicUnion = record
-    case Byte of
-      0 : ( cmd : PMusicCMD );
-      1 : ( wave : PWAVStream );
-      2 : ( module : PUNIMOD );
-      3 : ( midi : TMidiSong );
-      4 : ( ogg : POGG_music );
-      {$IFNDEF DARWIN}
-      5 : ( mp3 : PSMPEG );
-      {$ENDIF}
-  end;
-
-  P_Mix_Music = ^T_Mix_Music;
-  T_Mix_Music = record
-    type_ : TMusic;
-    data : TMusicUnion;
-    fading : TMix_Fading;
-    fade_volume : integer;
-    fade_step : integer;
-    fade_steps : integer;
-    error : integer;
-  end;
-
-  { The internal format for a music chunk interpreted via mikmod }
-  PMix_Music = ^TMix_Music;
-  TMix_Music = T_Mix_Music;
-
-  {$IFNDEF __GPC__}
-  TMixFunction = function( udata : Pointer; stream : PUint8; len : integer ) : Pointer; cdecl;
-  {$ELSE}
-  TMixFunction = function( udata : Pointer; stream : PUint8; len : integer ) : Pointer;
-  {$ENDIF}
-
-{ This macro can be used to fill a version structure with the compile-time
-  version of the SDL_mixer library. }
-procedure SDL_MIXER_VERSION(var X: TSDL_Version);
-{$EXTERNALSYM SDL_MIXER_VERSION}
-
-{ This function gets the version of the dynamically linked SDL_mixer library.
-     It should NOT be used to fill a version structure, instead you should use the
-     SDL_MIXER_VERSION() macro. }
-function Mix_Linked_Version : PSDL_version;
-cdecl; external {$IFDEF __GPC__}name 'Mix_Linked_Version'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_Linked_Version}
-
-{ Open the mixer with a certain audio format }
-function Mix_OpenAudio( frequency : integer; format : Uint16; channels :
-  integer; chunksize : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_OpenAudio'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_OpenAudio}
-
-{ Dynamically change the number of channels managed by the mixer.
-   If decreasing the number of channels, the upper channels are
-   stopped.
-   This function returns the new number of allocated channels.
- }
-function Mix_AllocateChannels( numchannels : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_AllocateChannels'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_AllocateChannels}
-
-{ Find out what the actual audio device parameters are.
-   This function returns 1 if the audio has been opened, 0 otherwise.
- }
-function Mix_QuerySpec( var frequency : integer; var format : Uint16; var channels : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_QuerySpec'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_QuerySpec}
-
-{ Load a wave file or a music (.mod .s3m .it .xm) file }
-function Mix_LoadWAV_RW( src : PSDL_RWops; freesrc : integer ) : PMix_Chunk;
-cdecl; external {$IFDEF __GPC__}name 'Mix_LoadWAV_RW'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_LoadWAV_RW}
-
-function Mix_LoadWAV( filename : PChar ) : PMix_Chunk;
-
-function Mix_LoadMUS( const filename : PChar ) : PMix_Music;
-cdecl; external {$IFDEF __GPC__}name 'Mix_LoadMUS'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_LoadMUS}
-
-(*#if 0 { This hasn't been hooked into music.c yet }
-{ Load a music file from an SDL_RWop object (MikMod-specific currently)
-   Matt Campbell ([email protected]) April 2000 }
-function Mix_LoadMUS_RW(SDL_RWops *rw) : PMix_Music;  cdecl;
-#endif*)
-
-{ Load a wave file of the mixer format from a memory buffer }
-function Mix_QuickLoad_WAV( mem : PUint8 ) : PMix_Chunk;
-cdecl; external {$IFDEF __GPC__}name 'Mix_QuickLoad_WAV'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_QuickLoad_WAV}
-
-{ Free an audio chunk previously loaded }
-procedure Mix_FreeChunk( chunk : PMix_Chunk );
-cdecl; external {$IFDEF __GPC__}name 'Mix_FreeChunk'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FreeChunk}
-
-procedure Mix_FreeMusic( music : PMix_Music );
-cdecl; external {$IFDEF __GPC__}name 'Mix_FreeMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FreeMusic}
-
-{ Set a function that is called after all mixing is performed.
-   This can be used to provide real-time visual display of the audio stream
-   or add a custom mixer filter for the stream data.
-}
-procedure Mix_SetPostMix( mix_func : TMixFunction; arg : Pointer );
-cdecl; external {$IFDEF __GPC__}name 'Mix_SetPostMix'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_SetPostMix}
-
-{ Add your own music player or additional mixer function.
-   If 'mix_func' is NULL, the default music player is re-enabled.
- }
-procedure Mix_HookMusic( mix_func : TMixFunction; arg : Pointer );
- cdecl; external {$IFDEF __GPC__}name 'Mix_HookMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_HookMusic}
-
-{ Add your own callback when the music has finished playing.
- }
-procedure Mix_HookMusicFinished( music_finished : Pointer );
-cdecl; external {$IFDEF __GPC__}name 'Mix_HookMusicFinished'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_HookMusicFinished}
-
-{ Get a pointer to the user data for the current music hook }
-function Mix_GetMusicHookData : Pointer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_GetMusicHookData'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_GetMusicHookData}
-
-{* Add your own callback when a channel has finished playing. NULL
- * to disable callback.*}
-type
-  {$IFNDEF __GPC__}
-  TChannel_finished = procedure( channel: Integer ); cdecl;
-  {$ELSE}
-  TChannel_finished = procedure( channel: Integer );
-  {$ENDIF}
-
-procedure Mix_ChannelFinished( channel_finished : TChannel_finished );
-cdecl; external {$IFDEF __GPC__}name 'Mix_ChannelFinished'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_ChannelFinished}
-
-const
-  MIX_CHANNEL_POST = -2;
-
-  {* This is the format of a special effect callback:
-   *
-   *   myeffect(int chan, void *stream, int len, void *udata);
-   *
-   * (chan) is the channel number that your effect is affecting. (stream) is
-   *  the buffer of data to work upon. (len) is the size of (stream), and
-   *  (udata) is a user-defined bit of data, which you pass as the last arg of
-   *  Mix_RegisterEffect(), and is passed back unmolested to your callback.
-   *  Your effect changes the contents of (stream) based on whatever parameters
-   *  are significant, or just leaves it be, if you prefer. You can do whatever
-   *  you like to the buffer, though, and it will continue in its changed state
-   *  down the mixing pipeline, through any other effect functions, then finally
-   *  to be mixed with the rest of the channels and music for the final output
-   *  stream.
-   *}
-type
-  {$IFNDEF __GPC__}
-  TMix_EffectFunc = function( chan : integer; stream : Pointer; len : integer; udata : Pointer ) : Pointer; cdecl;
-  {$ELSE}
-  TMix_EffectFunc = function( chan : integer; stream : Pointer; len : integer; udata : Pointer ) : Pointer;
-  {$ENDIF}
-  {*
-   * This is a callback that signifies that a channel has finished all its
-   *  loops and has completed playback. This gets called if the buffer
-   *  plays out normally, or if you call Mix_HaltChannel(), implicitly stop
-   *  a channel via Mix_AllocateChannels(), or unregister a callback while
-   *  it's still playing.
-   *}
-  {$IFNDEF __GPC__}
-  TMix_EffectDone = function( chan : integer; udata : Pointer ) : Pointer; cdecl;
-  {$ELSE}
-  TMix_EffectDone = function( chan : integer; udata : Pointer ) : Pointer;
-  {$ENDIF}
-  {* Register a special effect function. At mixing time, the channel data is
-  *  copied into a buffer and passed through each registered effect function.
-  *  After it passes through all the functions, it is mixed into the final
-  *  output stream. The copy to buffer is performed once, then each effect
-  *  function performs on the output of the previous effect. Understand that
-  *  this extra copy to a buffer is not performed if there are no effects
-  *  registered for a given chunk, which saves CPU cycles, and any given
-  *  effect will be extra cycles, too, so it is crucial that your code run
-  *  fast. Also note that the data that your function is given is in the
-  *  format of the sound device, and not the format you gave to Mix_OpenAudio(),
-  *  although they may in reality be the same. This is an unfortunate but
-  *  necessary speed concern. Use Mix_QuerySpec() to determine if you can
-  *  handle the data before you register your effect, and take appropriate
-  *  actions.
-  * You may also specify a callback (Mix_EffectDone_t) that is called when
-  *  the channel finishes playing. This gives you a more fine-grained control
-  *  than Mix_ChannelFinished(), in case you need to free effect-specific
-  *  resources, etc. If you don't need this, you can specify NULL.
-  * You may set the callbacks before or after calling Mix_PlayChannel().
-  * Things like Mix_SetPanning() are just internal special effect functions,
-  *  so if you are using that, you've already incurred the overhead of a copy
-  *  to a separate buffer, and that these effects will be in the queue with
-  *  any functions you've registered. The list of registered effects for a
-  *  channel is reset when a chunk finishes playing, so you need to explicitly
-  *  set them with each call to Mix_PlayChannel*().
-  * You may also register a special effect function that is to be run after
-  *  final mixing occurs. The rules for these callbacks are identical to those
-  *  in Mix_RegisterEffect, but they are run after all the channels and the
-  *  music have been mixed into a single stream, whereas channel-specific
-  *  effects run on a given channel before any other mixing occurs. These
-  *  global effect callbacks are call "posteffects". Posteffects only have
-  *  their Mix_EffectDone_t function called when they are unregistered (since
-  *  the main output stream is never "done" in the same sense as a channel).
-  *  You must unregister them manually when you've had enough. Your callback
-  *  will be told that the channel being mixed is (MIX_CHANNEL_POST) if the
-  *  processing is considered a posteffect.
-  *
-  * After all these effects have finished processing, the callback registered
-  *  through Mix_SetPostMix() runs, and then the stream goes to the audio
-  *  device.
-  *
-  * returns zero if error (no such channel), nonzero if added.
-  *  Error messages can be retrieved from Mix_GetError().
-  *}
-function Mix_RegisterEffect( chan : integer; f : TMix_EffectFunc; d : TMix_EffectDone; arg : Pointer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_RegisterEffect'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_RegisterEffect}
-
-{* You may not need to call this explicitly, unless you need to stop an
- *  effect from processing in the middle of a chunk's playback.
- * Posteffects are never implicitly unregistered as they are for channels,
- *  but they may be explicitly unregistered through this function by
- *  specifying MIX_CHANNEL_POST for a channel.
- * returns zero if error (no such channel or effect), nonzero if removed.
- *  Error messages can be retrieved from Mix_GetError().
- *}
-function Mix_UnregisterEffect( channel : integer; f : TMix_EffectFunc ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_UnregisterEffect'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_UnregisterEffect}
-
- {* You may not need to call this explicitly, unless you need to stop all
-  * effects from processing in the middle of a chunk's playback. Note that
-  * this will also shut off some internal effect processing, since
-  * Mix_SetPanning( ) and others may use this API under the hood.This is
-  * called internally when a channel completes playback.
-  * Posteffects are never implicitly unregistered as they are for channels,
-  * but they may be explicitly unregistered through this function by
-  * specifying MIX_CHANNEL_POST for a channel.
-  * returns zero if error( no such channel ), nonzero if all effects removed.
-  * Error messages can be retrieved from Mix_GetError( ).
-  *}
-function Mix_UnregisterAllEffects( channel : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_UnregisterAllEffects'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_UnregisterAllEffects}
-
-const
-  MIX_EFFECTSMAXSPEED = 'MIX_EFFECTSMAXSPEED';
-
-  {*
-  * These are the internally - defined mixing effects.They use the same API that
-  * effects defined in the application use, but are provided here as a
-  * convenience.Some effects can reduce their quality or use more memory in
-  * the name of speed; to enable this, make sure the environment variable
-  * MIX_EFFECTSMAXSPEED( see above ) is defined before you call
-  * Mix_OpenAudio( ).
-  * }
-
-  {* set the panning of a channel.The left and right channels are specified
-  * as integers between 0 and 255, quietest to loudest, respectively.
-  *
-  * Technically, this is just individual volume control for a sample with
-  * two( stereo )channels, so it can be used for more than just panning.
-  * if you want real panning, call it like this :
-  *
-  * Mix_SetPanning( channel, left, 255 - left );
-  *
-  * ...which isn't so hard.
-  *
-  * Setting( channel ) to MIX_CHANNEL_POST registers this as a posteffect, and
-  * the panning will be done to the final mixed stream before passing it on
-  * to the audio device.
-  *
-  * This uses the Mix_RegisterEffect( )API internally, and returns without
-  * registering the effect function if the audio device is not configured
-  * for stereo output.Setting both( left ) and ( right ) to 255 causes this
-  * effect to be unregistered, since that is the data's normal state.
-  *
-  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
-  * nonzero if panning effect enabled.Note that an audio device in mono
-  * mode is a no - op, but this call will return successful in that case .
-  * Error messages can be retrieved from Mix_GetError( ).
-  * }
-  function Mix_SetPanning( channel : integer; left : Uint8; right : Uint8  ) : integer;
-  cdecl; external {$IFDEF __GPC__}name 'Mix_SetPanning'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-  {$EXTERNALSYM Mix_SetPanning}
-  
-  { * set the position ofa channel.( angle ) is an integer from 0 to 360, that
-    * specifies the location of the sound in relation to the listener.( angle )
-    * will be reduced as neccesary( 540 becomes 180 degrees, -100 becomes 260 ).
-    * Angle 0 is due north, and rotates clockwise as the value increases.
-    * for efficiency, the precision of this effect may be limited( angles 1
-    * through 7 might all produce the same effect, 8 through 15 are equal, etc ).
-    * ( distance ) is an integer between 0 and 255 that specifies the space
-    * between the sound and the listener.The larger the number, the further
-    * away the sound is .Using 255 does not guarantee that the channel will be
-    * culled from the mixing process or be completely silent.For efficiency,
-    * the precision of this effect may be limited( distance 0 through 5 might
-    * all produce the same effect, 6 through 10 are equal, etc ).Setting( angle )
-    * and ( distance ) to 0 unregisters this effect, since the data would be
-    * unchanged.
-    *
-    * if you need more precise positional audio, consider using OpenAL for
-    * spatialized effects instead of SDL_mixer.This is only meant to be a
-    * basic effect for simple "3D" games.
-    *
-    * if the audio device is configured for mono output, then you won't get
-    * any effectiveness from the angle; however, distance attenuation on the
-  * channel will still occur.While this effect will function with stereo
-  * voices, it makes more sense to use voices with only one channel of sound,
-  * so when they are mixed through this effect, the positioning will sound
-  * correct.You can convert them to mono through SDL before giving them to
-  * the mixer in the first place if you like.
-  *
-  * Setting( channel ) to MIX_CHANNEL_POST registers this as a posteffect, and
-  * the positioning will be done to the final mixed stream before passing it
-  * on to the audio device.
-  *
-  * This is a convenience wrapper over Mix_SetDistance( ) and Mix_SetPanning( ).
-  *
-  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
-  * nonzero if position effect is enabled.
-  * Error messages can be retrieved from Mix_GetError( ).
-  * }
-  function Mix_SetPosition( channel :integer; angle : Sint16; distance : Uint8  ) : integer;
-  cdecl; external {$IFDEF __GPC__}name 'Mix_SetPosition'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-  {$EXTERNALSYM Mix_SetPosition}
-
-  {* set the "distance" of a channel.( distance ) is an integer from 0 to 255
-  * that specifies the location of the sound in relation to the listener.
-  * Distance 0 is overlapping the listener, and 255 is as far away as possible
-  * A distance of 255 does not guarantee silence; in such a case , you might
-  * want to try changing the chunk's volume, or just cull the sample from the
-  * mixing process with Mix_HaltChannel( ).
-    * for efficiency, the precision of this effect may be limited( distances 1
-    * through 7 might all produce the same effect, 8 through 15 are equal, etc ).
-    * ( distance ) is an integer between 0 and 255 that specifies the space
-    * between the sound and the listener.The larger the number, the further
-    * away the sound is .
-    * Setting( distance ) to 0 unregisters this effect, since the data would be
-    * unchanged.
-    * if you need more precise positional audio, consider using OpenAL for
-    * spatialized effects instead of SDL_mixer.This is only meant to be a
-    * basic effect for simple "3D" games.
-    *
-    * Setting( channel ) to MIX_CHANNEL_POST registers this as a posteffect, and
-    * the distance attenuation will be done to the final mixed stream before
-    * passing it on to the audio device.
-    *
-  * This uses the Mix_RegisterEffect( )API internally.
-  *
-  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
-  * nonzero if position effect is enabled.
-    * Error messages can be retrieved from Mix_GetError( ).
-    * }
-    function Mix_SetDistance( channel : integer; distance : Uint8 ) : integer;
-    cdecl; external {$IFDEF __GPC__}name 'Mix_SetDistance'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-    {$EXTERNALSYM Mix_SetDistance}
-  { *
-    * !!! FIXME : Haven't implemented, since the effect goes past the
-  * end of the sound buffer.Will have to think about this.
-  * - -ryan.
-  * /
-  { if 0
-  { * Causes an echo effect to be mixed into a sound.( echo ) is the amount
-  * of echo to mix.0 is no echo, 255 is infinite( and probably not
-  * what you want ).
-  *
-  * Setting( channel ) to MIX_CHANNEL_POST registers this as a posteffect, and
-  * the reverbing will be done to the final mixed stream before passing it on
-  * to the audio device.
-  *
-  * This uses the Mix_RegisterEffect( )API internally.If you specify an echo
-  * of zero, the effect is unregistered, as the data is already in that state.
-  *
-  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
-  * nonzero if reversing effect is enabled.
-    * Error messages can be retrieved from Mix_GetError( ).
-    *
-    extern no_parse_DECLSPEC int Mix_SetReverb( int channel, Uint8 echo );
-  #E ndif}
-  { * Causes a channel to reverse its stereo.This is handy if the user has his
-    * speakers hooked up backwards, or you would like to have a minor bit of
-  * psychedelia in your sound code. : )Calling this function with ( flip )
-  * set to non - zero reverses the chunks's usual channels. If (flip) is zero,
-  * the effect is unregistered.
-  *
-  * This uses the Mix_RegisterEffect( )API internally, and thus is probably
-  * more CPU intensive than having the user just plug in his speakers
-  * correctly.Mix_SetReverseStereo( )returns without registering the effect
-  * function if the audio device is not configured for stereo output.
-  *
-  * if you specify MIX_CHANNEL_POST for ( channel ), then this the effect is used
-  * on the final mixed stream before sending it on to the audio device( a
-  * posteffect ).
-  *
-  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
-  * nonzero if reversing effect is enabled.Note that an audio device in mono
-  * mode is a no - op, but this call will return successful in that case .
-  * Error messages can be retrieved from Mix_GetError( ).
-  * }
-  function Mix_SetReverseStereo( channel : integer; flip : integer ) : integer;
-  cdecl; external {$IFDEF __GPC__}name 'Mix_SetReverseStereo'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-  {$EXTERNALSYM Mix_SetReverseStereo}
-  { end of effects API. - -ryan. *}
-
-{ Reserve the first channels (0 -> n-1) for the application, i.e. don't allocate
-   them dynamically to the next sample if requested with a -1 value below.
-   Returns the number of reserved channels.
- }
-function Mix_ReserveChannels( num : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_ReserveChannels'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_ReserveChannels}
-
-{ Channel grouping functions }
-
-{ Attach a tag to a channel. A tag can be assigned to several mixer
-   channels, to form groups of channels.
-   If 'tag' is -1, the tag is removed (actually -1 is the tag used to
-   represent the group of all the channels).
-   Returns true if everything was OK.
- }
-function Mix_GroupChannel( which : integer; tag : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_GroupChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_GroupChannel}
-
-{ Assign several consecutive channels to a group }
-function Mix_GroupChannels( from : integer; to_ : integer; tag : integer ) :
-integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_GroupChannels'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_GroupChannels}
-
-{ Finds the first available channel in a group of channels }
-function Mix_GroupAvailable( tag : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_GroupAvailable'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_GroupAvailable}
-
-{ Returns the number of channels in a group. This is also a subtle
-   way to get the total number of channels when 'tag' is -1
- }
-function Mix_GroupCount( tag : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_GroupCount'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_GroupCount}
-
-{ Finds the "oldest" sample playing in a group of channels }
-function Mix_GroupOldest( tag : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_GroupOldest'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_GroupOldest}
-
-{ Finds the "most recent" (i.e. last) sample playing in a group of channels }
-function Mix_GroupNewer( tag : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_GroupNewer'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_GroupNewer}
-
-{ The same as above, but the sound is played at most 'ticks' milliseconds }
-function Mix_PlayChannelTimed( channel : integer; chunk : PMix_Chunk; loops : integer; ticks : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_PlayChannelTimed'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_PlayChannelTimed}
-
-{ Play an audio chunk on a specific channel.
-   If the specified channel is -1, play on the first free channel.
-   If 'loops' is greater than zero, loop the sound that many times.
-   If 'loops' is -1, loop inifinitely (~65000 times).
-   Returns which channel was used to play the sound.
-}
-function Mix_PlayChannel( channel : integer; chunk : PMix_Chunk; loops : integer ) : integer;
-
-function Mix_PlayMusic( music : PMix_Music; loops : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_PlayMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_PlayMusic}
-
-{ Fade in music or a channel over "ms" milliseconds, same semantics as the "Play" functions }
-function Mix_FadeInMusic( music : PMix_Music; loops : integer; ms : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_FadeInMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FadeInMusic}
-
-function Mix_FadeInChannelTimed( channel : integer; chunk : PMix_Chunk; loops : integer; ms : integer; ticks : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_FadeInChannelTimed'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FadeInChannelTimed}
-
-function Mix_FadeInChannel( channel : integer; chunk : PMix_Chunk; loops : integer; ms : integer ) : integer;
-
-{ Set the volume in the range of 0-128 of a specific channel or chunk.
-   If the specified channel is -1, set volume for all channels.
-   Returns the original volume.
-   If the specified volume is -1, just return the current volume.
-}
-function Mix_Volume( channel : integer; volume : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_Volume'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_Volume}
-
-function Mix_VolumeChunk( chunk : PMix_Chunk; volume : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_VolumeChunk'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_VolumeChunk}
-
-function Mix_VolumeMusic( volume : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_VolumeMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_VolumeMusic}
-
-{ Halt playing of a particular channel }
-function Mix_HaltChannel( channel : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_HaltChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_HaltChannel}
-
-function Mix_HaltGroup( tag : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_HaltGroup'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_HaltGroup}
-
-function Mix_HaltMusic : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_HaltMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_HaltMusic}
-
-{ Change the expiration delay for a particular channel.
-   The sample will stop playing after the 'ticks' milliseconds have elapsed,
-   or remove the expiration if 'ticks' is -1
-}
-function Mix_ExpireChannel( channel : integer; ticks : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_ExpireChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_ExpireChannel}
-
-{ Halt a channel, fading it out progressively till it's silent
-   The ms parameter indicates the number of milliseconds the fading
-   will take.
- }
-function Mix_FadeOutChannel( which : integer; ms : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_FadeOutChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FadeOutChannel}
-function Mix_FadeOutGroup( tag : integer; ms : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_FadeOutGroup'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FadeOutGroup}
-function Mix_FadeOutMusic( ms : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_FadeOutMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FadeOutMusic}
-
-{ Query the fading status of a channel }
-function Mix_FadingMusic : TMix_Fading;
-cdecl; external {$IFDEF __GPC__}name 'Mix_FadingMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FadingMusic}
-
-function Mix_FadingChannel( which : integer ) : TMix_Fading;
-cdecl; external {$IFDEF __GPC__}name 'Mix_FadingChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_FadingChannel}
-
-{ Pause/Resume a particular channel }
-procedure Mix_Pause( channel : integer );
-cdecl; external {$IFDEF __GPC__}name 'Mix_Pause'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_Pause}
-
-procedure Mix_Resume( channel : integer );
-cdecl; external {$IFDEF __GPC__}name 'Mix_Resume'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_Resume}
-
-function Mix_Paused( channel : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_Paused'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_Paused}
-
-{ Pause/Resume the music stream }
-procedure Mix_PauseMusic;
-cdecl; external {$IFDEF __GPC__}name 'Mix_PauseMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_PauseMusic}
-
-procedure Mix_ResumeMusic;
-cdecl; external {$IFDEF __GPC__}name 'Mix_ResumeMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_ResumeMusic}
-
-procedure Mix_RewindMusic;
-cdecl; external {$IFDEF __GPC__}name 'Mix_RewindMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_RewindMusic}
-
-function Mix_PausedMusic : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_PausedMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_PausedMusic}
-
-{ Set the current position in the music stream.
-  This returns 0 if successful, or -1 if it failed or isn't implemented.
-  This function is only implemented for MOD music formats (set pattern
-  order number) and for OGG music (set position in seconds), at the
-  moment.
-}
-function Mix_SetMusicPosition( position : double ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_SetMusicPosition'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_SetMusicPosition}
-
-{ Check the status of a specific channel.
-   If the specified channel is -1, check all channels.
-}
-function Mix_Playing( channel : integer ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_Playing'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_Playing}
-
-function Mix_PlayingMusic : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_PlayingMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_PlayingMusic}
-
-{ Stop music and set external music playback command }
-function Mix_SetMusicCMD( const command : PChar ) : integer;
-cdecl; external {$IFDEF __GPC__}name 'Mix_SetMusicCMD'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_SetMusicCMD}
-
-{ Close the mixer, halting all playing audio }
-procedure Mix_CloseAudio;
-cdecl; external {$IFDEF __GPC__}name 'Mix_CloseAudio'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
-{$EXTERNALSYM Mix_CloseAudio}
-
-{ We'll use SDL for reporting errors }
-procedure Mix_SetError( fmt : PChar );
-
-function Mix_GetError : PChar;
-
-{------------------------------------------------------------------------------}
-{ initialization                                                               }
-{------------------------------------------------------------------------------}
-
-{------------------------------------------------------------------------------}
-
-implementation
-
-{$IFDEF __GPC__}
-  {$L 'sdl_mixer'}  { link sdl_mixer.dll.a or libsdl_mixer.so or libsdl_mixer.a }
-{$ENDIF}
-
-procedure SDL_MIXER_VERSION( var X : TSDL_version );
-begin
-  X.major := SDL_MIXER_MAJOR_VERSION;
-  X.minor := SDL_MIXER_MINOR_VERSION;
-  X.patch := SDL_MIXER_PATCHLEVEL;
-end;
-
-function Mix_LoadWAV( filename : PChar ) : PMix_Chunk;
-begin
-  result := Mix_LoadWAV_RW( SDL_RWFromFile( filename, 'rb' ), 1 );
-end;
-
-function Mix_PlayChannel( channel : integer; chunk : PMix_Chunk; loops : integer ) : integer;
-begin
-  result := Mix_PlayChannelTimed( channel, chunk, loops, -1 );
-end;
-
-function Mix_FadeInChannel( channel : integer; chunk : PMix_Chunk; loops :
-  integer; ms : integer ) : integer;
-begin
-  result := Mix_FadeInChannelTimed( channel, chunk, loops, ms, -1 );
-end;
-
-procedure Mix_SetError( fmt : PChar );
-begin
-  SDL_SetError( fmt );
-end;
-
-function Mix_GetError : PChar;
-begin
-  result := SDL_GetError;
-end;
-
-end.
+unit sdl_mixer;
+{******************************************************************************}
+{
+  $Id: sdl_mixer.pas,v 1.18 2007/05/29 21:31:44 savage Exp $
+  
+}
+{                                                                              }
+{       Borland Delphi SDL_Mixer - Simple DirectMedia Layer Mixer Library      }
+{       Conversion of the Simple DirectMedia Layer Headers                     }
+{                                                                              }
+{ Portions created by Sam Lantinga <[email protected]> are                }
+{ Copyright (C) 1997, 1998, 1999, 2000, 2001  Sam Lantinga                     }
+{ 5635-34 Springhouse Dr.                                                      }
+{ Pleasanton, CA 94588 (USA)                                                   }
+{                                                                              }
+{ All Rights Reserved.                                                         }
+{                                                                              }
+{ The original files are : SDL_mixer.h                                         }
+{                          music_cmd.h                                         }
+{                          wavestream.h                                        }
+{                          timidity.h                                          }
+{                          playmidi.h                                          }
+{                          music_ogg.h                                         }
+{                          mikmod.h                                            }
+{                                                                              }
+{ The initial developer of this Pascal code was :                              }
+{ Dominqiue Louis <[email protected]>                            }
+{                                                                              }
+{ Portions created by Dominqiue Louis are                                      }
+{ Copyright (C) 2000 - 2001 Dominqiue Louis.                                   }
+{                                                                              }
+{                                                                              }
+{ Contributor(s)                                                               }
+{ --------------                                                               }
+{ Matthias Thoma <[email protected]>                                             }
+{                                                                              }
+{ Obtained through:                                                            }
+{ Joint Endeavour of Delphi Innovators ( Project JEDI )                        }
+{                                                                              }
+{ You may retrieve the latest version of this file at the Project              }
+{ JEDI home page, located at http://delphi-jedi.org                            }
+{                                                                              }
+{ The contents of this file are used with permission, subject to               }
+{ the Mozilla Public License Version 1.1 (the "License"); you may              }
+{ not use this file except in compliance with the License. You may             }
+{ obtain a copy of the License at                                              }
+{ http://www.mozilla.org/MPL/MPL-1.1.html                                                         }
+{                                                                              }
+{ Software distributed under the License is distributed on an                  }
+{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or               }
+{ implied. See the License for the specific language governing                 }
+{ rights and limitations under the License.                                    }
+{                                                                              }
+{ Description                                                                  }
+{ -----------                                                                  }
+{                                                                              }
+{                                                                              }
+{                                                                              }
+{                                                                              }
+{                                                                              }
+{                                                                              }
+{                                                                              }
+{ Requires                                                                     }
+{ --------                                                                     }
+{   SDL.pas & SMPEG.pas somewhere within your search path.                     }
+{                                                                              }
+{ Programming Notes                                                            }
+{ -----------------                                                            }
+{   See the Aliens Demo to see how this library is used                        }
+{                                                                              }
+{ Revision History                                                             }
+{ ----------------                                                             }
+{   April    02 2001 - DL : Initial Translation                                }
+{                                                                              }
+{  February  02 2002 - DL : Update to version 1.2.1                            }
+{                                                                              }
+{   April   03 2003 - DL : Added jedi-sdl.inc include file to support more     }
+{                          Pascal compilers. Initial support is now included   }
+{                          for GnuPascal, VirtualPascal, TMT and obviously     }
+{                          continue support for Delphi Kylix and FreePascal.   }
+{                                                                              }
+{   April   24 2003 - DL : under instruction from Alexey Barkovoy, I have added}
+{                          better TMT Pascal support and under instruction     }
+{                          from Prof. Abimbola Olowofoyeku (The African Chief),}
+{                          I have added better Gnu Pascal support              }
+{                                                                              }
+{   April   30 2003 - DL : under instruction from David Mears AKA              }
+{                          Jason Siletto, I have added FPC Linux support.      }
+{                          This was compiled with fpc 1.1, so remember to set  }
+{                          include file path. ie. -Fi/usr/share/fpcsrc/rtl/*   }
+{                                                                              }
+{
+  $Log: sdl_mixer.pas,v $
+  Revision 1.18  2007/05/29 21:31:44  savage
+  Changes as suggested by Almindor for 64bit compatibility.
+
+  Revision 1.17  2007/05/20 20:31:17  savage
+  Initial Changes to Handle 64 Bits
+
+  Revision 1.16  2006/12/02 00:16:17  savage
+  Updated to latest version
+
+  Revision 1.15  2005/04/10 11:48:33  savage
+  Changes as suggested by Michalis, thanks.
+
+  Revision 1.14  2005/02/24 20:20:07  savage
+  Changed definition of MusicType and added GetMusicType function
+
+  Revision 1.13  2005/01/05 01:47:09  savage
+  Changed LibName to reflect what MacOS X should have. ie libSDL*-1.2.0.dylib respectively.
+
+  Revision 1.12  2005/01/04 23:14:56  savage
+  Changed LibName to reflect what most Linux distros will have. ie libSDL*-1.2.so.0 respectively.
+
+  Revision 1.11  2005/01/01 02:05:19  savage
+  Updated to v1.2.6
+
+  Revision 1.10  2004/09/12 21:45:17  savage
+  Robert Reed spotted that Mix_SetMusicPosition was missing from the conversion, so this has now been added.
+
+  Revision 1.9  2004/08/27 21:48:24  savage
+  IFDEFed out Smpeg support on MacOS X
+
+  Revision 1.8  2004/08/14 22:54:30  savage
+  Updated so that Library name defines are correctly defined for MacOS X.
+
+  Revision 1.7  2004/05/10 14:10:04  savage
+  Initial MacOS X support. Fixed defines for MACOS ( Classic ) and DARWIN ( MacOS X ).
+
+  Revision 1.6  2004/04/13 09:32:08  savage
+  Changed Shared object names back to just the .so extension to avoid conflicts on various Linux/Unix distros. Therefore developers will need to create Symbolic links to the actual Share Objects if necessary.
+
+  Revision 1.5  2004/04/01 20:53:23  savage
+  Changed Linux Shared Object names so they reflect the Symbolic Links that are created when installing the RPMs from the SDL site.
+
+  Revision 1.4  2004/03/31 22:20:02  savage
+  Windows unit not used in this file, so it was removed to keep the code tidy.
+
+  Revision 1.3  2004/03/31 10:05:08  savage
+  Better defines for Endianess under FreePascal and Borland compilers.
+
+  Revision 1.2  2004/03/30 20:23:28  savage
+  Tidied up use of UNIX compiler directive.
+
+  Revision 1.1  2004/02/14 23:35:42  savage
+  version 1 of sdl_image, sdl_mixer and smpeg.
+
+
+}
+{******************************************************************************}
+
+{$I jedi-sdl.inc}
+
+interface
+
+uses
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+{$IFNDEF DARWIN}
+{$IFNDEF no_smpeg}
+  smpeg,
+{$ENDIF}
+{$ENDIF}
+  sdl;
+
+const
+{$IFDEF WINDOWS}
+  SDL_MixerLibName = 'SDL_mixer.dll';
+{$ENDIF}
+
+{$IFDEF UNIX}
+{$IFDEF DARWIN}
+  SDL_MixerLibName = 'libSDL_mixer-1.2.0.dylib';
+{$ELSE}
+  {$IFDEF FPC}
+    SDL_MixerLibName = 'libSDL_mixer.so';
+  {$ELSE}
+    SDL_MixerLibName = 'libSDL_mixer-1.2.so.0';
+  {$ENDIF}
+{$ENDIF}
+{$ENDIF}
+
+{$IFDEF MACOS}
+  SDL_MixerLibName = 'SDL_mixer';
+{$ENDIF}
+
+  {* Printable format: "%d.%d.%d", MAJOR, MINOR, PATCHLEVEL *}
+  SDL_MIXER_MAJOR_VERSION = 1;
+{$EXTERNALSYM MIX_MAJOR_VERSION}
+  SDL_MIXER_MINOR_VERSION = 2;
+{$EXTERNALSYM MIX_MINOR_VERSION}
+  SDL_MIXER_PATCHLEVEL    = 7;
+{$EXTERNALSYM MIX_PATCHLEVEL}
+
+  // Backwards compatibility
+  MIX_MAJOR_VERSION = SDL_MIXER_MAJOR_VERSION;
+  MIX_MINOR_VERSION = SDL_MIXER_MINOR_VERSION;
+  MIX_PATCHLEVEL    = SDL_MIXER_PATCHLEVEL;
+  
+  // SDL_Mixer.h constants
+  { The default mixer has 8 simultaneous mixing channels }
+{$IFNDEF MIX_CHANNELS}
+  MIX_CHANNELS = 8;
+{$ENDIF}
+{$EXTERNALSYM MIX_CHANNELS}
+  { Good default values for a PC soundcard }
+  MIX_DEFAULT_FREQUENCY = 22050;
+{$EXTERNALSYM MIX_DEFAULT_FREQUENCY}
+
+{$IFDEF IA32}
+  MIX_DEFAULT_FORMAT = AUDIO_S16LSB;
+{$ELSE}
+  MIX_DEFAULT_FORMAT = AUDIO_S16MSB;
+{$ENDIF}
+{$EXTERNALSYM MIX_DEFAULT_FORMAT}
+
+  MIX_DEFAULT_CHANNELS = 2;
+{$EXTERNALSYM MIX_DEFAULT_CHANNELS}
+  MIX_MAX_VOLUME = 128; { Volume of a chunk }
+{$EXTERNALSYM MIX_MAX_VOLUME}
+
+  PATH_MAX = 255;
+
+  // mikmod.h constants
+  {*
+  * Library version
+  *}
+  LIBMIKMOD_VERSION_MAJOR = 3;
+  LIBMIKMOD_VERSION_MINOR = 1;
+  LIBMIKMOD_REVISION = 8;
+  LIBMIKMOD_VERSION = ( ( LIBMIKMOD_VERSION_MAJOR shl 16 ) or
+    ( LIBMIKMOD_VERSION_MINOR shl 8 ) or
+    ( LIBMIKMOD_REVISION ) );
+
+type
+  //music_cmd.h types
+  PMusicCMD = ^TMusicCMD;
+  TMusicCMD = record
+    filename : array[ 0..PATH_MAX - 1 ] of char;
+    cmd : array[ 0..PATH_MAX - 1 ] of char;
+    pid : TSYS_ThreadHandle;
+  end;
+
+  //wavestream.h types
+  PWAVStream = ^TWAVStream;
+  TWAVStream = record
+    wavefp : Pointer;
+    start : longint;
+    stop : longint;
+    cvt : TSDL_AudioCVT;
+  end;
+
+  //playmidi.h types
+  PMidiEvent = ^TMidiEvent;
+  TMidiEvent = record
+    time : Longint;
+    channel : uint8;
+    type_ : uint8;
+    a : uint8;
+    b : uint8;
+  end;
+
+  PMidiSong = ^TMidiSong;
+  TMidiSong = record
+    samples : Longint;
+    events : PMidiEvent;
+  end;
+
+  //music_ogg.h types
+  POGG_Music = ^TOGG_Music;
+  TOGG_Music = record
+    playing : integer;
+    volume : integer;
+    //vf: OggVorbis_File;
+    section : integer;
+    cvt : TSDL_AudioCVT;
+    len_available : integer;
+    snd_available : PUint8;
+  end;
+
+  // mikmod.h types
+  {*
+  * Error codes
+  *}
+  TErrorEnum = (
+    MMERR_OPENING_FILE,
+    MMERR_OUT_OF_MEMORY,
+    MMERR_DYNAMIC_LINKING,
+    MMERR_SAMPLE_TOO_BIG,
+    MMERR_OUT_OF_HANDLES,
+    MMERR_UNKNOWN_WAVE_TYPE,
+    MMERR_LOADING_PATTERN,
+    MMERR_LOADING_TRACK,
+    MMERR_LOADING_HEADER,
+    MMERR_LOADING_SAMPLEINFO,
+    MMERR_NOT_A_MODULE,
+    MMERR_NOT_A_STREAM,
+    MMERR_MED_SYNTHSAMPLES,
+    MMERR_ITPACK_INVALID_DATA,
+    MMERR_DETECTING_DEVICE,
+    MMERR_INVALID_DEVICE,
+    MMERR_INITIALIZING_MIXER,
+    MMERR_OPENING_AUDIO,
+    MMERR_8BIT_ONLY,
+    MMERR_16BIT_ONLY,
+    MMERR_STEREO_ONLY,
+    MMERR_ULAW,
+    MMERR_NON_BLOCK,
+    MMERR_AF_AUDIO_PORT,
+    MMERR_AIX_CONFIG_INIT,
+    MMERR_AIX_CONFIG_CONTROL,
+    MMERR_AIX_CONFIG_START,
+    MMERR_GUS_SETTINGS,
+    MMERR_GUS_RESET,
+    MMERR_GUS_TIMER,
+    MMERR_HP_SETSAMPLESIZE,
+    MMERR_HP_SETSPEED,
+    MMERR_HP_CHANNELS,
+    MMERR_HP_AUDIO_OUTPUT,
+    MMERR_HP_AUDIO_DESC,
+    MMERR_HP_BUFFERSIZE,
+    MMERR_OSS_SETFRAGMENT,
+    MMERR_OSS_SETSAMPLESIZE,
+    MMERR_OSS_SETSTEREO,
+    MMERR_OSS_SETSPEED,
+    MMERR_SGI_SPEED,
+    MMERR_SGI_16BIT,
+    MMERR_SGI_8BIT,
+    MMERR_SGI_STEREO,
+    MMERR_SGI_MONO,
+    MMERR_SUN_INIT,
+    MMERR_OS2_MIXSETUP,
+    MMERR_OS2_SEMAPHORE,
+    MMERR_OS2_TIMER,
+    MMERR_OS2_THREAD,
+    MMERR_DS_PRIORITY,
+    MMERR_DS_BUFFER,
+    MMERR_DS_FORMAT,
+    MMERR_DS_NOTIFY,
+    MMERR_DS_EVENT,
+    MMERR_DS_THREAD,
+    MMERR_DS_UPDATE,
+    MMERR_WINMM_HANDLE,
+    MMERR_WINMM_ALLOCATED,
+    MMERR_WINMM_DEVICEID,
+    MMERR_WINMM_FORMAT,
+    MMERR_WINMM_UNKNOWN,
+    MMERR_MAC_SPEED,
+    MMERR_MAC_START,
+    MMERR_MAX
+    );
+
+  PMODULE = ^TMODULE;
+  TMODULE = record
+    (* general module information *)
+    //CHAR*       songname;    (* name of the song *)
+    //CHAR*       modtype;     (* string type of module loaded *)
+    //CHAR*       comment;     (* module comments *)
+    //UWORD       flags;       (* See module flags above *)
+    //UBYTE       numchn;      (* number of module channels *)
+    //UBYTE       numvoices;   (* max # voices used for full NNA playback *)
+    //UWORD       numpos;      (* number of positions in this song *)
+    //UWORD       numpat;      (* number of patterns in this song *)
+    //UWORD       numins;      (* number of instruments *)
+    //UWORD       numsmp;      (* number of samples *)
+    //type = record  INSTRUMENT* instruments; (* all instruments *)
+    //type = record  SAMPLE*     samples;     (* all samples *)
+    //UBYTE       realchn;     (* real number of channels used *)
+    //UBYTE       totalchn;    (* total number of channels used (incl NNAs) *)
+    (* playback settings *)
+    //UWORD       reppos;      (* restart position *)
+    //UBYTE       initspeed;   (* initial song speed *)
+    //UWORD       inittempo;   (* initial song tempo *)
+    //UBYTE       initvolume;  (* initial global volume (0 - 128) *)
+    //UWORD       panning : array[ 0..64- 1 ] of ; (* 64 panning positions *)
+    //UBYTE       chanvol : array[ 0..64- 1 ] of ; (* 64 channel positions *)
+    //UWORD       bpm;         (* current beats-per-minute speed *)
+    //UWORD       sngspd;      (* current song speed *)
+    //SWORD       volume;      (* song volume (0-128) (or user volume) *)
+    //BOOL        extspd;      (* extended speed flag (default enabled) *)
+    //BOOL        panflag;     (* panning flag (default enabled) *)
+    //BOOL        wrap;        (* wrap module ? (default disabled) *)
+    //BOOL        loop;		 (* allow module to loop ? (default enabled) *)
+    //BOOL        fadeout;	 (* volume fade out during last pattern *)
+    //UWORD       patpos;      (* current row number *)
+    //SWORD       sngpos;      (* current song position *)
+    //ULONG       sngtime;     (* current song time in 2^-10 seconds *)
+    //SWORD       relspd;      (* relative speed factor *)
+    (* internal module representation *)
+    //UWORD       numtrk;      (* number of tracks *)
+    //UBYTE**     tracks;      (* array of numtrk pointers to tracks *)
+    //UWORD*      patterns;    (* array of Patterns *)
+    //UWORD*      pattrows;    (* array of number of rows for each pattern *)
+    //UWORD*      positions;   (* all positions *)
+    //BOOL        forbid;      (* if true, no player updatenot  *)
+    //UWORD       numrow;      (* number of rows on current pattern *)
+    //UWORD       vbtick;      (* tick counter (counts from 0 to sngspd) *)
+    //UWORD       sngremainder;(* used for song time computation *)
+    //type = record MP_CONTROL*  control;     (* Effects Channel info (size pf.numchn) *)
+    //type = record MP_VOICE*    voice;       (* Audio Voice information (size md_numchn) *)
+    //UBYTE       globalslide; (* global volume slide rate *)
+    //UBYTE       pat_repcrazy;(* module has just looped to position -1 *)
+    //UWORD       patbrk;      (* position where to start a new pattern *)
+    //UBYTE       patdly;      (* patterndelay counter (command memory) *)
+    //UBYTE       patdly2;     (* patterndelay counter (real one) *)
+    //SWORD       posjmp;      (* flag to indicate a jump is needed... *)
+  end;
+
+  PUNIMOD = ^TUNIMOD;
+  TUNIMOD = TMODULE;
+
+  //SDL_mixer.h types
+  { The internal format for an audio chunk }
+  PMix_Chunk = ^TMix_Chunk;
+  TMix_Chunk = record
+    allocated : integer;
+    abuf : PUint8;
+    alen : Uint32;
+    volume : Uint8; { Per-sample volume, 0-128 }
+  end;
+  Mix_Chunk = TMix_Chunk;
+
+  { The different fading types supported }
+  TMix_Fading = (
+    MIX_NO_FADING,
+    MIX_FADING_OUT,
+    MIX_FADING_IN
+    );
+  Mix_Fading = TMix_Fading;
+
+  TMix_MusicType = (
+    MUS_NONE,
+    MUS_CMD,
+    MUS_WAV,
+    MUS_MOD,
+    MUS_MID,
+    MUS_OGG,
+    MUS_MP3
+    );
+  Mix_MusicType = TMix_MusicType;
+
+  TMusicUnion = record
+    case Byte of
+      0 : ( cmd : PMusicCMD );
+      1 : ( wave : PWAVStream );
+      2 : ( module : PUNIMOD );
+      3 : ( midi : TMidiSong );
+      4 : ( ogg : POGG_music );
+      {$IFNDEF DARWIN}
+      5 : ( mp3 : PSMPEG );
+      {$ENDIF}
+  end;
+
+  P_Mix_Music = ^T_Mix_Music;
+  T_Mix_Music = record
+    type_ : TMix_MusicType;
+    data : TMusicUnion;
+    fading : TMix_Fading;
+    fade_volume : integer;
+    fade_step : integer;
+    fade_steps : integer;
+    error : integer;
+  end;
+
+  { The internal format for a music chunk interpreted via mikmod }
+  PMix_Music = ^TMix_Music;
+  TMix_Music = T_Mix_Music;
+
+  {$IFNDEF __GPC__}
+  TMixFunction = function( udata : Pointer; stream : PUint8; len : integer ) : Pointer; cdecl;
+  {$ELSE}
+  TMixFunction = function( udata : Pointer; stream : PUint8; len : integer ) : Pointer;
+  {$ENDIF}
+
+{ This macro can be used to fill a version structure with the compile-time
+  version of the SDL_mixer library. }
+procedure SDL_MIXER_VERSION(var X: TSDL_Version);
+{$EXTERNALSYM SDL_MIXER_VERSION}
+
+{ This function gets the version of the dynamically linked SDL_mixer library.
+     It should NOT be used to fill a version structure, instead you should use the
+     SDL_MIXER_VERSION() macro. }
+function Mix_Linked_Version : PSDL_version;
+cdecl; external {$IFDEF __GPC__}name 'Mix_Linked_Version'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_Linked_Version}
+
+{ Open the mixer with a certain audio format }
+function Mix_OpenAudio( frequency : integer; format : Uint16; channels :
+  integer; chunksize : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_OpenAudio'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_OpenAudio}
+
+{ Dynamically change the number of channels managed by the mixer.
+   If decreasing the number of channels, the upper channels are
+   stopped.
+   This function returns the new number of allocated channels.
+ }
+function Mix_AllocateChannels( numchannels : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_AllocateChannels'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_AllocateChannels}
+
+{ Find out what the actual audio device parameters are.
+   This function returns 1 if the audio has been opened, 0 otherwise.
+ }
+function Mix_QuerySpec( var frequency : integer; var format : Uint16; var channels : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_QuerySpec'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_QuerySpec}
+
+{ Load a wave file or a music (.mod .s3m .it .xm) file }
+function Mix_LoadWAV_RW( src : PSDL_RWops; freesrc : integer ) : PMix_Chunk;
+cdecl; external {$IFDEF __GPC__}name 'Mix_LoadWAV_RW'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_LoadWAV_RW}
+
+function Mix_LoadWAV( filename : PChar ) : PMix_Chunk;
+
+function Mix_LoadMUS( const filename : PChar ) : PMix_Music;
+cdecl; external {$IFDEF __GPC__}name 'Mix_LoadMUS'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_LoadMUS}
+
+(*#if 0 { This hasn't been hooked into music.c yet }
+{ Load a music file from an SDL_RWop object (MikMod-specific currently)
+   Matt Campbell ([email protected]) April 2000 }
+function Mix_LoadMUS_RW(SDL_RWops *rw) : PMix_Music;  cdecl;
+#endif*)
+
+{ Load a wave file of the mixer format from a memory buffer }
+function Mix_QuickLoad_WAV( mem : PUint8 ) : PMix_Chunk;
+cdecl; external {$IFDEF __GPC__}name 'Mix_QuickLoad_WAV'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_QuickLoad_WAV}
+
+{ Free an audio chunk previously loaded }
+procedure Mix_FreeChunk( chunk : PMix_Chunk );
+cdecl; external {$IFDEF __GPC__}name 'Mix_FreeChunk'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FreeChunk}
+
+procedure Mix_FreeMusic( music : PMix_Music );
+cdecl; external {$IFDEF __GPC__}name 'Mix_FreeMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FreeMusic}
+
+{ Find out the music format of a mixer music, or the currently playing
+   music, if 'music' is NULL.}
+function Mix_GetMusicType( music : PMix_Music ) : TMix_MusicType;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GetMusicType'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GetMusicType}
+
+{ Set a function that is called after all mixing is performed.
+   This can be used to provide real-time visual display of the audio stream
+   or add a custom mixer filter for the stream data.
+}
+procedure Mix_SetPostMix( mix_func : TMixFunction; arg : Pointer );
+cdecl; external {$IFDEF __GPC__}name 'Mix_SetPostMix'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_SetPostMix}
+
+{ Add your own music player or additional mixer function.
+   If 'mix_func' is NULL, the default music player is re-enabled.
+ }
+procedure Mix_HookMusic( mix_func : TMixFunction; arg : Pointer );
+ cdecl; external {$IFDEF __GPC__}name 'Mix_HookMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_HookMusic}
+
+{ Add your own callback when the music has finished playing.
+ }
+procedure Mix_HookMusicFinished( music_finished : Pointer );
+cdecl; external {$IFDEF __GPC__}name 'Mix_HookMusicFinished'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_HookMusicFinished}
+
+{ Get a pointer to the user data for the current music hook }
+function Mix_GetMusicHookData : Pointer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GetMusicHookData'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GetMusicHookData}
+
+{* Add your own callback when a channel has finished playing. NULL
+ * to disable callback.*}
+type
+  {$IFNDEF __GPC__}
+  TChannel_finished = procedure( channel: Integer ); cdecl;
+  {$ELSE}
+  TChannel_finished = procedure( channel: Integer );
+  {$ENDIF}
+
+procedure Mix_ChannelFinished( channel_finished : TChannel_finished );
+cdecl; external {$IFDEF __GPC__}name 'Mix_ChannelFinished'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_ChannelFinished}
+
+const
+  MIX_CHANNEL_POST = -2;
+
+  {* This is the format of a special effect callback:
+   *
+   *   myeffect(int chan, void *stream, int len, void *udata);
+   *
+   * (chan) is the channel number that your effect is affecting. (stream) is
+   *  the buffer of data to work upon. (len) is the size of (stream), and
+   *  (udata) is a user-defined bit of data, which you pass as the last arg of
+   *  Mix_RegisterEffect(), and is passed back unmolested to your callback.
+   *  Your effect changes the contents of (stream) based on whatever parameters
+   *  are significant, or just leaves it be, if you prefer. You can do whatever
+   *  you like to the buffer, though, and it will continue in its changed state
+   *  down the mixing pipeline, through any other effect functions, then finally
+   *  to be mixed with the rest of the channels and music for the final output
+   *  stream.
+   *}
+type
+  {$IFNDEF __GPC__}
+  TMix_EffectFunc = function( chan : integer; stream : Pointer; len : integer; udata : Pointer ) : Pointer; cdecl;
+  {$ELSE}
+  TMix_EffectFunc = function( chan : integer; stream : Pointer; len : integer; udata : Pointer ) : Pointer;
+  {$ENDIF}
+  {*
+   * This is a callback that signifies that a channel has finished all its
+   *  loops and has completed playback. This gets called if the buffer
+   *  plays out normally, or if you call Mix_HaltChannel(), implicitly stop
+   *  a channel via Mix_AllocateChannels(), or unregister a callback while
+   *  it's still playing.
+   *}
+  {$IFNDEF __GPC__}
+  TMix_EffectDone = function( chan : integer; udata : Pointer ) : Pointer; cdecl;
+  {$ELSE}
+  TMix_EffectDone = function( chan : integer; udata : Pointer ) : Pointer;
+  {$ENDIF}
+  {* Register a special effect function. At mixing time, the channel data is
+  *  copied into a buffer and passed through each registered effect function.
+  *  After it passes through all the functions, it is mixed into the final
+  *  output stream. The copy to buffer is performed once, then each effect
+  *  function performs on the output of the previous effect. Understand that
+  *  this extra copy to a buffer is not performed if there are no effects
+  *  registered for a given chunk, which saves CPU cycles, and any given
+  *  effect will be extra cycles, too, so it is crucial that your code run
+  *  fast. Also note that the data that your function is given is in the
+  *  format of the sound device, and not the format you gave to Mix_OpenAudio(),
+  *  although they may in reality be the same. This is an unfortunate but
+  *  necessary speed concern. Use Mix_QuerySpec() to determine if you can
+  *  handle the data before you register your effect, and take appropriate
+  *  actions.
+  * You may also specify a callback (Mix_EffectDone_t) that is called when
+  *  the channel finishes playing. This gives you a more fine-grained control
+  *  than Mix_ChannelFinished(), in case you need to free effect-specific
+  *  resources, etc. If you don't need this, you can specify NULL.
+  * You may set the callbacks before or after calling Mix_PlayChannel().
+  * Things like Mix_SetPanning() are just internal special effect functions,
+  *  so if you are using that, you've already incurred the overhead of a copy
+  *  to a separate buffer, and that these effects will be in the queue with
+  *  any functions you've registered. The list of registered effects for a
+  *  channel is reset when a chunk finishes playing, so you need to explicitly
+  *  set them with each call to Mix_PlayChannel*().
+  * You may also register a special effect function that is to be run after
+  *  final mixing occurs. The rules for these callbacks are identical to those
+  *  in Mix_RegisterEffect, but they are run after all the channels and the
+  *  music have been mixed into a single stream, whereas channel-specific
+  *  effects run on a given channel before any other mixing occurs. These
+  *  global effect callbacks are call "posteffects". Posteffects only have
+  *  their Mix_EffectDone_t function called when they are unregistered (since
+  *  the main output stream is never "done" in the same sense as a channel).
+  *  You must unregister them manually when you've had enough. Your callback
+  *  will be told that the channel being mixed is (MIX_CHANNEL_POST) if the
+  *  processing is considered a posteffect.
+  *
+  * After all these effects have finished processing, the callback registered
+  *  through Mix_SetPostMix() runs, and then the stream goes to the audio
+  *  device.
+  *
+  * returns zero if error (no such channel), nonzero if added.
+  *  Error messages can be retrieved from Mix_GetError().
+  *}
+function Mix_RegisterEffect( chan : integer; f : TMix_EffectFunc; d : TMix_EffectDone; arg : Pointer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_RegisterEffect'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_RegisterEffect}
+
+{* You may not need to call this explicitly, unless you need to stop an
+ *  effect from processing in the middle of a chunk's playback.
+ * Posteffects are never implicitly unregistered as they are for channels,
+ *  but they may be explicitly unregistered through this function by
+ *  specifying MIX_CHANNEL_POST for a channel.
+ * returns zero if error (no such channel or effect), nonzero if removed.
+ *  Error messages can be retrieved from Mix_GetError().
+ *}
+function Mix_UnregisterEffect( channel : integer; f : TMix_EffectFunc ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_UnregisterEffect'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_UnregisterEffect}
+
+ {* You may not need to call this explicitly, unless you need to stop all
+  * effects from processing in the middle of a chunk's playback. Note that
+  * this will also shut off some internal effect processing, since
+  * Mix_SetPanning( ) and others may use this API under the hood.This is
+  * called internally when a channel completes playback.
+  * Posteffects are never implicitly unregistered as they are for channels,
+  * but they may be explicitly unregistered through this function by
+  * specifying MIX_CHANNEL_POST for a channel.
+  * returns zero if error( no such channel ), nonzero if all effects removed.
+  * Error messages can be retrieved from Mix_GetError( ).
+  *}
+function Mix_UnregisterAllEffects( channel : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_UnregisterAllEffects'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_UnregisterAllEffects}
+
+const
+  MIX_EFFECTSMAXSPEED = 'MIX_EFFECTSMAXSPEED';
+
+  {*
+  * These are the internally - defined mixing effects.They use the same API that
+  * effects defined in the application use, but are provided here as a
+  * convenience.Some effects can reduce their quality or use more memory in
+  * the name of speed; to enable this, make sure the environment variable
+  * MIX_EFFECTSMAXSPEED( see above ) is defined before you call
+  * Mix_OpenAudio( ).
+  * }
+
+  {* set the panning of a channel.The left and right channels are specified
+  * as integers between 0 and 255, quietest to loudest, respectively.
+  *
+  * Technically, this is just individual volume control for a sample with
+  * two( stereo )channels, so it can be used for more than just panning.
+  * if you want real panning, call it like this :
+  *
+  * Mix_SetPanning( channel, left, 255 - left );
+  *
+  * ...which isn't so hard.
+  *
+  * Setting( channel ) to MIX_CHANNEL_POST registers this as a posteffect, and
+  * the panning will be done to the final mixed stream before passing it on
+  * to the audio device.
+  *
+  * This uses the Mix_RegisterEffect( )API internally, and returns without
+  * registering the effect function if the audio device is not configured
+  * for stereo output.Setting both( left ) and ( right ) to 255 causes this
+  * effect to be unregistered, since that is the data's normal state.
+  *
+  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
+  * nonzero if panning effect enabled.Note that an audio device in mono
+  * mode is a no - op, but this call will return successful in that case .
+  * Error messages can be retrieved from Mix_GetError( ).
+  * }
+  function Mix_SetPanning( channel : integer; left : Uint8; right : Uint8  ) : integer;
+  cdecl; external {$IFDEF __GPC__}name 'Mix_SetPanning'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+  {$EXTERNALSYM Mix_SetPanning}
+  
+  { * set the position ofa channel.( angle ) is an integer from 0 to 360, that
+    * specifies the location of the sound in relation to the listener.( angle )
+    * will be reduced as neccesary( 540 becomes 180 degrees, -100 becomes 260 ).
+    * Angle 0 is due north, and rotates clockwise as the value increases.
+    * for efficiency, the precision of this effect may be limited( angles 1
+    * through 7 might all produce the same effect, 8 through 15 are equal, etc ).
+    * ( distance ) is an integer between 0 and 255 that specifies the space
+    * between the sound and the listener.The larger the number, the further
+    * away the sound is .Using 255 does not guarantee that the channel will be
+    * culled from the mixing process or be completely silent.For efficiency,
+    * the precision of this effect may be limited( distance 0 through 5 might
+    * all produce the same effect, 6 through 10 are equal, etc ).Setting( angle )
+    * and ( distance ) to 0 unregisters this effect, since the data would be
+    * unchanged.
+    *
+    * if you need more precise positional audio, consider using OpenAL for
+    * spatialized effects instead of SDL_mixer.This is only meant to be a
+    * basic effect for simple "3D" games.
+    *
+    * if the audio device is configured for mono output, then you won't get
+    * any effectiveness from the angle; however, distance attenuation on the
+  * channel will still occur.While this effect will function with stereo
+  * voices, it makes more sense to use voices with only one channel of sound,
+  * so when they are mixed through this effect, the positioning will sound
+  * correct.You can convert them to mono through SDL before giving them to
+  * the mixer in the first place if you like.
+  *
+  * Setting( channel ) to MIX_CHANNEL_POST registers this as a posteffect, and
+  * the positioning will be done to the final mixed stream before passing it
+  * on to the audio device.
+  *
+  * This is a convenience wrapper over Mix_SetDistance( ) and Mix_SetPanning( ).
+  *
+  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
+  * nonzero if position effect is enabled.
+  * Error messages can be retrieved from Mix_GetError( ).
+  * }
+  function Mix_SetPosition( channel :integer; angle : Sint16; distance : Uint8  ) : integer;
+  cdecl; external {$IFDEF __GPC__}name 'Mix_SetPosition'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+  {$EXTERNALSYM Mix_SetPosition}
+
+  {* set the "distance" of a channel.( distance ) is an integer from 0 to 255
+  * that specifies the location of the sound in relation to the listener.
+  * Distance 0 is overlapping the listener, and 255 is as far away as possible
+  * A distance of 255 does not guarantee silence; in such a case , you might
+  * want to try changing the chunk's volume, or just cull the sample from the
+  * mixing process with Mix_HaltChannel( ).
+    * for efficiency, the precision of this effect may be limited( distances 1
+    * through 7 might all produce the same effect, 8 through 15 are equal, etc ).
+    * ( distance ) is an integer between 0 and 255 that specifies the space
+    * between the sound and the listener.The larger the number, the further
+    * away the sound is .
+    * Setting( distance ) to 0 unregisters this effect, since the data would be
+    * unchanged.
+    * if you need more precise positional audio, consider using OpenAL for
+    * spatialized effects instead of SDL_mixer.This is only meant to be a
+    * basic effect for simple "3D" games.
+    *
+    * Setting( channel ) to MIX_CHANNEL_POST registers this as a posteffect, and
+    * the distance attenuation will be done to the final mixed stream before
+    * passing it on to the audio device.
+    *
+  * This uses the Mix_RegisterEffect( )API internally.
+  *
+  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
+  * nonzero if position effect is enabled.
+    * Error messages can be retrieved from Mix_GetError( ).
+    * }
+    function Mix_SetDistance( channel : integer; distance : Uint8 ) : integer;
+    cdecl; external {$IFDEF __GPC__}name 'Mix_SetDistance'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+    {$EXTERNALSYM Mix_SetDistance}
+  { *
+    * !!! FIXME : Haven't implemented, since the effect goes past the
+  * end of the sound buffer.Will have to think about this.
+  * - -ryan.
+  * /
+  { if 0
+  { * Causes an echo effect to be mixed into a sound.( echo ) is the amount
+  * of echo to mix.0 is no echo, 255 is infinite( and probably not
+  * what you want ).
+  *
+  * Setting( channel ) to MIX_CHANNEL_POST registers this as a posteffect, and
+  * the reverbing will be done to the final mixed stream before passing it on
+  * to the audio device.
+  *
+  * This uses the Mix_RegisterEffect( )API internally.If you specify an echo
+  * of zero, the effect is unregistered, as the data is already in that state.
+  *
+  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
+  * nonzero if reversing effect is enabled.
+    * Error messages can be retrieved from Mix_GetError( ).
+    *
+    extern no_parse_DECLSPEC int Mix_SetReverb( int channel, Uint8 echo );
+  #E ndif}
+  { * Causes a channel to reverse its stereo.This is handy if the user has his
+    * speakers hooked up backwards, or you would like to have a minor bit of
+  * psychedelia in your sound code. : )Calling this function with ( flip )
+  * set to non - zero reverses the chunks's usual channels. If (flip) is zero,
+  * the effect is unregistered.
+  *
+  * This uses the Mix_RegisterEffect( )API internally, and thus is probably
+  * more CPU intensive than having the user just plug in his speakers
+  * correctly.Mix_SetReverseStereo( )returns without registering the effect
+  * function if the audio device is not configured for stereo output.
+  *
+  * if you specify MIX_CHANNEL_POST for ( channel ), then this the effect is used
+  * on the final mixed stream before sending it on to the audio device( a
+  * posteffect ).
+  *
+  * returns zero if error( no such channel or Mix_RegisterEffect( )fails ),
+  * nonzero if reversing effect is enabled.Note that an audio device in mono
+  * mode is a no - op, but this call will return successful in that case .
+  * Error messages can be retrieved from Mix_GetError( ).
+  * }
+  function Mix_SetReverseStereo( channel : integer; flip : integer ) : integer;
+  cdecl; external {$IFDEF __GPC__}name 'Mix_SetReverseStereo'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+  {$EXTERNALSYM Mix_SetReverseStereo}
+  { end of effects API. - -ryan. *}
+
+{ Reserve the first channels (0 -> n-1) for the application, i.e. don't allocate
+   them dynamically to the next sample if requested with a -1 value below.
+   Returns the number of reserved channels.
+ }
+function Mix_ReserveChannels( num : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_ReserveChannels'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_ReserveChannels}
+
+{ Channel grouping functions }
+
+{ Attach a tag to a channel. A tag can be assigned to several mixer
+   channels, to form groups of channels.
+   If 'tag' is -1, the tag is removed (actually -1 is the tag used to
+   represent the group of all the channels).
+   Returns true if everything was OK.
+ }
+function Mix_GroupChannel( which : integer; tag : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GroupChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GroupChannel}
+
+{ Assign several consecutive channels to a group }
+function Mix_GroupChannels( from : integer; to_ : integer; tag : integer ) :
+integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GroupChannels'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GroupChannels}
+
+{ Finds the first available channel in a group of channels }
+function Mix_GroupAvailable( tag : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GroupAvailable'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GroupAvailable}
+
+{ Returns the number of channels in a group. This is also a subtle
+   way to get the total number of channels when 'tag' is -1
+ }
+function Mix_GroupCount( tag : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GroupCount'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GroupCount}
+
+{ Finds the "oldest" sample playing in a group of channels }
+function Mix_GroupOldest( tag : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GroupOldest'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GroupOldest}
+
+{ Finds the "most recent" (i.e. last) sample playing in a group of channels }
+function Mix_GroupNewer( tag : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GroupNewer'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GroupNewer}
+
+{ The same as above, but the sound is played at most 'ticks' milliseconds }
+function Mix_PlayChannelTimed( channel : integer; chunk : PMix_Chunk; loops : integer; ticks : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_PlayChannelTimed'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_PlayChannelTimed}
+
+{ Play an audio chunk on a specific channel.
+   If the specified channel is -1, play on the first free channel.
+   If 'loops' is greater than zero, loop the sound that many times.
+   If 'loops' is -1, loop inifinitely (~65000 times).
+   Returns which channel was used to play the sound.
+}
+function Mix_PlayChannel( channel : integer; chunk : PMix_Chunk; loops : integer ) : integer;
+
+function Mix_PlayMusic( music : PMix_Music; loops : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_PlayMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_PlayMusic}
+
+{ Fade in music or a channel over "ms" milliseconds, same semantics as the "Play" functions }
+function Mix_FadeInMusic( music : PMix_Music; loops : integer; ms : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_FadeInMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FadeInMusic}
+
+function Mix_FadeInChannelTimed( channel : integer; chunk : PMix_Chunk; loops : integer; ms : integer; ticks : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_FadeInChannelTimed'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FadeInChannelTimed}
+
+function Mix_FadeInChannel( channel : integer; chunk : PMix_Chunk; loops : integer; ms : integer ) : integer;
+
+{ Set the volume in the range of 0-128 of a specific channel or chunk.
+   If the specified channel is -1, set volume for all channels.
+   Returns the original volume.
+   If the specified volume is -1, just return the current volume.
+}
+function Mix_Volume( channel : integer; volume : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_Volume'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_Volume}
+
+function Mix_VolumeChunk( chunk : PMix_Chunk; volume : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_VolumeChunk'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_VolumeChunk}
+
+function Mix_VolumeMusic( volume : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_VolumeMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_VolumeMusic}
+
+{ Halt playing of a particular channel }
+function Mix_HaltChannel( channel : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_HaltChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_HaltChannel}
+
+function Mix_HaltGroup( tag : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_HaltGroup'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_HaltGroup}
+
+function Mix_HaltMusic : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_HaltMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_HaltMusic}
+
+{ Change the expiration delay for a particular channel.
+   The sample will stop playing after the 'ticks' milliseconds have elapsed,
+   or remove the expiration if 'ticks' is -1
+}
+function Mix_ExpireChannel( channel : integer; ticks : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_ExpireChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_ExpireChannel}
+
+{ Halt a channel, fading it out progressively till it's silent
+   The ms parameter indicates the number of milliseconds the fading
+   will take.
+ }
+function Mix_FadeOutChannel( which : integer; ms : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_FadeOutChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FadeOutChannel}
+function Mix_FadeOutGroup( tag : integer; ms : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_FadeOutGroup'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FadeOutGroup}
+function Mix_FadeOutMusic( ms : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_FadeOutMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FadeOutMusic}
+
+{ Query the fading status of a channel }
+function Mix_FadingMusic : TMix_Fading;
+cdecl; external {$IFDEF __GPC__}name 'Mix_FadingMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FadingMusic}
+
+function Mix_FadingChannel( which : integer ) : TMix_Fading;
+cdecl; external {$IFDEF __GPC__}name 'Mix_FadingChannel'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_FadingChannel}
+
+{ Pause/Resume a particular channel }
+procedure Mix_Pause( channel : integer );
+cdecl; external {$IFDEF __GPC__}name 'Mix_Pause'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_Pause}
+
+procedure Mix_Resume( channel : integer );
+cdecl; external {$IFDEF __GPC__}name 'Mix_Resume'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_Resume}
+
+function Mix_Paused( channel : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_Paused'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_Paused}
+
+{ Pause/Resume the music stream }
+procedure Mix_PauseMusic;
+cdecl; external {$IFDEF __GPC__}name 'Mix_PauseMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_PauseMusic}
+
+procedure Mix_ResumeMusic;
+cdecl; external {$IFDEF __GPC__}name 'Mix_ResumeMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_ResumeMusic}
+
+procedure Mix_RewindMusic;
+cdecl; external {$IFDEF __GPC__}name 'Mix_RewindMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_RewindMusic}
+
+function Mix_PausedMusic : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_PausedMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_PausedMusic}
+
+{ Set the current position in the music stream.
+  This returns 0 if successful, or -1 if it failed or isn't implemented.
+  This function is only implemented for MOD music formats (set pattern
+  order number) and for OGG music (set position in seconds), at the
+  moment.
+}
+function Mix_SetMusicPosition( position : double ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_SetMusicPosition'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_SetMusicPosition}
+
+{ Check the status of a specific channel.
+   If the specified channel is -1, check all channels.
+}
+function Mix_Playing( channel : integer ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_Playing'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_Playing}
+
+function Mix_PlayingMusic : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_PlayingMusic'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_PlayingMusic}
+
+{ Stop music and set external music playback command }
+function Mix_SetMusicCMD( const command : PChar ) : integer;
+cdecl; external {$IFDEF __GPC__}name 'Mix_SetMusicCMD'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_SetMusicCMD}
+
+{ Synchro value is set by MikMod from modules while playing }
+function Mix_SetSynchroValue( value : integer ) : integer; overload;
+cdecl; external {$IFDEF __GPC__}name 'Mix_SetSynchroValue'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_SetSynchroValue}
+
+function Mix_GetSynchroValue : integer; overload;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GetSynchroValue'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_SetSynchroValue}
+
+{
+  Get the Mix_Chunk currently associated with a mixer channel
+    Returns nil if it's an invalid channel, or there's no chunk associated.
+}
+function Mix_GetChunk( channel : integer ) : PMix_Chunk;
+cdecl; external {$IFDEF __GPC__}name 'Mix_GetChunk'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_GetChunk}
+
+{ Close the mixer, halting all playing audio }
+procedure Mix_CloseAudio;
+cdecl; external {$IFDEF __GPC__}name 'Mix_CloseAudio'{$ELSE} SDL_MixerLibName{$ENDIF __GPC__};
+{$EXTERNALSYM Mix_CloseAudio}
+
+{ We'll use SDL for reporting errors }
+procedure Mix_SetError( fmt : PChar );
+
+function Mix_GetError : PChar;
+
+{------------------------------------------------------------------------------}
+{ initialization                                                               }
+{------------------------------------------------------------------------------}
+
+{------------------------------------------------------------------------------}
+
+implementation
+
+{$IFDEF __GPC__}
+  {$L 'sdl_mixer'}  { link sdl_mixer.dll.a or libsdl_mixer.so or libsdl_mixer.a }
+{$ENDIF}
+
+procedure SDL_MIXER_VERSION( var X : TSDL_version );
+begin
+  X.major := SDL_MIXER_MAJOR_VERSION;
+  X.minor := SDL_MIXER_MINOR_VERSION;
+  X.patch := SDL_MIXER_PATCHLEVEL;
+end;
+
+function Mix_LoadWAV( filename : PChar ) : PMix_Chunk;
+begin
+  result := Mix_LoadWAV_RW( SDL_RWFromFile( filename, 'rb' ), 1 );
+end;
+
+function Mix_PlayChannel( channel : integer; chunk : PMix_Chunk; loops : integer ) : integer;
+begin
+  result := Mix_PlayChannelTimed( channel, chunk, loops, -1 );
+end;
+
+function Mix_FadeInChannel( channel : integer; chunk : PMix_Chunk; loops :
+  integer; ms : integer ) : integer;
+begin
+  result := Mix_FadeInChannelTimed( channel, chunk, loops, ms, -1 );
+end;
+
+procedure Mix_SetError( fmt : PChar );
+begin
+  SDL_SetError( fmt );
+end;
+
+function Mix_GetError : PChar;
+begin
+  result := SDL_GetError;
+end;
+
+end.

packages/extra/sdl/sdl_ttf.pas

@@ -1,6 +1,6 @@
 unit sdl_ttf;
 {
-  $Id: sdl_ttf.pas,v 1.10 2005/01/02 19:07:32 savage Exp $
+  $Id: sdl_ttf.pas,v 1.18 2007/06/01 11:16:33 savage Exp $
 
 }
 {******************************************************************************}
@@ -87,6 +87,30 @@ unit sdl_ttf;
 {                                                                              }
 {
   $Log: sdl_ttf.pas,v $
+  Revision 1.18  2007/06/01 11:16:33  savage
+  Added IFDEF UNIX for Workaround.
+
+  Revision 1.17  2007/06/01 08:38:21  savage
+  Added TTF_RenderText_Solid workaround as suggested by Michalis Kamburelis
+
+  Revision 1.16  2007/05/29 21:32:14  savage
+  Changes as suggested by Almindor for 64bit compatibility.
+
+  Revision 1.15  2007/05/20 20:32:45  savage
+  Initial Changes to Handle 64 Bits
+
+  Revision 1.14  2006/12/02 00:19:01  savage
+  Updated to latest version
+
+  Revision 1.13  2005/04/10 11:48:33  savage
+  Changes as suggested by Michalis, thanks.
+
+  Revision 1.12  2005/01/05 01:47:14  savage
+  Changed LibName to reflect what MacOS X should have. ie libSDL*-1.2.0.dylib respectively.
+
+  Revision 1.11  2005/01/04 23:14:57  savage
+  Changed LibName to reflect what most Linux distros will have. ie libSDL*-1.2.so.0 respectively.
+
   Revision 1.10  2005/01/02 19:07:32  savage
   Slight bug fix to use LongInt instead of Long ( Thanks Michalis Kamburelis )
 
@@ -124,24 +148,46 @@ unit sdl_ttf;
 
 {$I jedi-sdl.inc}
 
+{
+  Define this to workaround a known bug in some freetype versions.
+  The error manifests as TTF_RenderGlyph_Solid returning nil (error)
+  and error message (in SDL_Error) is
+  "Failed loading DPMSDisable: /usr/lib/libX11.so.6: undefined symbol: DPMSDisable"
+  See [http://lists.libsdl.org/pipermail/sdl-libsdl.org/2007-March/060459.html]
+}
+{$IFDEF UNIX}
+{$DEFINE Workaround_TTF_RenderText_Solid}
+{$ENDIF}
+
+
 interface
 
 uses
-{$IFDEF windows}
+{$IFDEF __GPC__}
+  gpc,
+{$ENDIF}
+
+{$IFDEF WINDOWS}
+  {$IFNDEF __GPC__}
   Windows,
+  {$ENDIF}
 {$ENDIF}
   sdl;
 
 const
-{$IFDEF windows}
+{$IFDEF WINDOWS}
   SDLttfLibName = 'SDL_ttf.dll';
 {$ENDIF}
 
 {$IFDEF UNIX}
 {$IFDEF DARWIN}
-  SDLttfLibName = 'libSDL_ttf.dylib';
+  SDLttfLibName = 'libSDL_ttf-2.0.0.dylib';
 {$ELSE}
-  SDLttfLibName = 'libSDL_ttf.so';
+  {$IFDEF FPC}
+    SDLttfLibName = 'libSDL_ttf.so';
+  {$ELSE}
+    SDLttfLibName = 'libSDL_ttf-2.0.so.0';
+  {$ENDIF}
 {$ENDIF}
 {$ENDIF}
 
@@ -154,7 +200,7 @@ const
 {$EXTERNALSYM SDL_TTF_MAJOR_VERSION}
   SDL_TTF_MINOR_VERSION = 0;
 {$EXTERNALSYM SDL_TTF_MINOR_VERSION}
-  SDL_TTF_PATCHLEVEL = 7;
+  SDL_TTF_PATCHLEVEL = 8;
 {$EXTERNALSYM SDL_TTF_PATCHLEVEL}
 
   // Backwards compatibility
@@ -306,8 +352,10 @@ cdecl; external {$IFDEF __GPC__}name 'TTF_SizeUNICODE'{$ELSE} SDLttfLibName{$END
 }
 function TTF_RenderText_Solid( font : PTTF_Font;
 				const text : PChar; fg : TSDL_Color ): PSDL_Surface;
+{$IFNDEF Workaround_TTF_RenderText_Solid}
 cdecl; external {$IFDEF __GPC__}name 'TTF_RenderText_Solid'{$ELSE} SDLttfLibName{$ENDIF __GPC__};
 {$EXTERNALSYM TTF_RenderText_Solid}
+{$ENDIF}
 
 function TTF_RenderUTF8_Solid( font : PTTF_Font;
 				const text : PChar; fg : TSDL_Color ): PSDL_Surface;
@@ -440,4 +488,14 @@ begin
   result := SDL_GetError;
 end;
 
+{$IFDEF Workaround_TTF_RenderText_Solid}
+function TTF_RenderText_Solid( font : PTTF_Font;
+  const text : PChar; fg : TSDL_Color ): PSDL_Surface;
+const
+  Black: TSDL_Color = (r: 0; g: 0; b: 0; unused: 0);
+begin
+  Result := TTF_RenderText_Shaded(font, text, fg, Black);
+end;
+{$ENDIF Workaround_TTF_RenderText_Solid}
+
 end.

packages/extra/sdl/sdlgameinterface.pas

@@ -1,6 +1,6 @@
 unit sdlgameinterface;
 {
-  $Id: sdlgameinterface.pas,v 1.3 2004/10/17 18:41:49 savage Exp $
+  $Id: sdlgameinterface.pas,v 1.4 2005/08/03 18:57:31 savage Exp $
   
 }
 {******************************************************************************}
@@ -62,6 +62,9 @@ unit sdlgameinterface;
 {   September   23 2004 - DL : Initial Creation                                }
 {
   $Log: sdlgameinterface.pas,v $
+  Revision 1.4  2005/08/03 18:57:31  savage
+  Various updates and additions. Mainly to handle OpenGL 3D Window support and better cursor support for the mouse class
+
   Revision 1.3  2004/10/17 18:41:49  savage
   Slight Change to allow Reseting of Input Event handlers
 
@@ -97,11 +100,11 @@ type
     procedure MouseWheelScroll( WheelDelta : Integer; Shift: TSDLMod; MousePos : TPoint ); virtual;
     procedure KeyDown( var Key: TSDLKey; Shift: TSDLMod; unicode : UInt16 ); virtual;
   public
-    MainWindow : TSDL2DWindow;
+    MainWindow : TSDLCustomWindow;
     procedure ResetInputManager;
     procedure LoadSurfaces; virtual;
     function PointIsInRect( Point : TPoint; x, y, x1, y1 : integer ) : Boolean;
-    constructor Create( const aMainWindow : TSDL2DWindow );
+    constructor Create( const aMainWindow : TSDLCustomWindow );
     destructor Destroy; override;
     property NextGameInterface : TGameInterfaceClass read FNextGameInterface write FNextGameInterface;
   end;
@@ -114,7 +117,7 @@ begin
   FNextGameInterface := nil;
 end;
 
-constructor TGameInterface.Create( const aMainWindow : TSDL2DWindow );
+constructor TGameInterface.Create( const aMainWindow : TSDLCustomWindow );
 begin
   inherited Create;
   MainWindow := aMainWindow;
@@ -176,14 +179,18 @@ begin
 end;
 
 procedure TGameInterface.ResetInputManager;
+var
+  temp : TSDLNotifyEvent;
 begin
   MainWindow.InputManager.Mouse.OnMouseDown := MouseDown;
   MainWindow.InputManager.Mouse.OnMouseMove := MouseMove;
   MainWindow.InputManager.Mouse.OnMouseUp := MouseUp;
   MainWindow.InputManager.Mouse.OnMouseWheel := MouseWheelScroll;
   MainWindow.InputManager.KeyBoard.OnKeyDown := KeyDown;
-  MainWindow.OnRender := Render;
-  MainWindow.OnClose := Close;
+  temp := Render;
+  MainWindow.OnRender := temp;
+  temp := Close;
+  MainWindow.OnClose := temp;
   MainWindow.OnUpdate := Update;
 end;
 

packages/extra/sdl/sdlinput.pas

@@ -1,6 +1,6 @@
 unit sdlinput;
 {
-  $Id: sdlinput.pas,v 1.7 2004/09/30 22:32:04 savage Exp $
+  $Id: sdlinput.pas,v 1.8 2005/08/03 18:57:32 savage Exp $
   
 }
 {******************************************************************************}
@@ -60,6 +60,9 @@ unit sdlinput;
 { February   02     2004 - DL : Added Custom Cursor Support to the Mouse class }
 {
   $Log: sdlinput.pas,v $
+  Revision 1.8  2005/08/03 18:57:32  savage
+  Various updates and additions. Mainly to handle OpenGL 3D Window support and better cursor support for the mouse class
+
   Revision 1.7  2004/09/30 22:32:04  savage
   Updated with slightly different header comments
 
@@ -187,6 +190,41 @@ type
   TSDLMouseMoveEvent =  procedure ( Shift: TSDLMod; CurrentPos : TPoint; RelativePos : TPoint ) {$IFNDEF NOT_OO}of object{$ENDIF};
   TSDLMouseWheelEvent =  procedure ( WheelDelta : Integer; Shift: TSDLMod; MousePos : TPoint ) {$IFNDEF NOT_OO}of object{$ENDIF};
 
+  TSDLCustomCursor = class( TObject )
+  private
+    FFileName : string;
+    FHotPoint: TPoint;
+    procedure SetFileName(const aValue: string );
+    function ScanForChar( str : string; ch : Char; startPos : Integer; lookFor : Boolean ) : Integer;
+  public
+    constructor Create( const aFileName : string; aHotPoint: TPoint );
+    procedure LoadFromFile( const aFileName : string ); virtual; abstract;
+    procedure LoadFromStream( aStream : TStream ); virtual; abstract;
+    procedure Show; virtual; abstract;
+    property FileName : string read FFileName write SetFileName;
+    property HotPoint : TPoint read FHotPoint write FHotPoint;
+  end;
+
+  TSDLXPMCursor = class( TSDLCustomCursor )
+  private
+    FCursor : PSDL_Cursor;
+    procedure FreeCursor;
+  public
+    destructor Destroy; override;
+    procedure LoadFromFile( const aFileName : string ); override;
+    procedure LoadFromStream( aStream : TStream ); override;
+    procedure Show; override;
+  end;
+
+  TSDLCursorList = class( TStringList )
+  protected
+    function GetObject( aIndex : Integer ): TSDLCustomCursor; reintroduce;
+    procedure PutObject( aIndex : Integer; AObject : TSDLCustomCursor); reintroduce;
+  public
+    constructor Create;
+   function AddCursor(const aName : string; aObject : TSDLCustomCursor): Integer; virtual;
+  end;
+
   TSDLMouse = class( TSDLCustomInput )
   private
     FDragging : Boolean;
@@ -195,7 +233,7 @@ type
     FOnMouseDown: TSDLMouseButtonEvent;
     FOnMouseMove: TSDLMouseMoveEvent;
     FOnMouseWheel: TSDLMouseWheelEvent;
-    FCursor : PSDL_Cursor; // Cursor Pointer
+    FCursorList : TSDLCursorList; // Cursor Pointer
     procedure DoMouseMove( Event: TSDL_Event );
     procedure DoMouseDown( Event: TSDL_Event );
     procedure DoMouseUp( Event: TSDL_Event );
@@ -207,7 +245,6 @@ type
     function UpdateInput( event: TSDL_EVENT ) : Boolean; override;
     function MouseIsDown( Button : Integer ) : Boolean;
     function MouseIsUp( Button : Integer ) : Boolean;
-    procedure SetCursor(data, mask: PUInt8; w, h, hot_x, hot_y: Integer);
     procedure ShowCursor;
     procedure HideCursor;
     property OnMouseDown : TSDLMouseButtonEvent read FOnMouseDown write FOnMouseDown;
@@ -215,6 +252,7 @@ type
     property OnMouseMove : TSDLMouseMoveEvent read FOnMouseMove write FOnMouseMove;
     property OnMouseWheel : TSDLMouseWheelEvent read FOnMouseWheel write FOnMouseWheel;
     property MousePosition : TPoint read GetMousePosition write SetMousePosition;
+    property Cursors : TSDLCursorList read FCursorList write FCursorList;
   end;
 
   TSDLInputManager = class( TObject )
@@ -235,6 +273,9 @@ type
 
 implementation
 
+uses
+  SysUtils;
+
 { TSDLCustomInput }
 constructor TSDLCustomInput.Create;
 begin
@@ -355,8 +396,7 @@ end;
 { TSDLMouse }
 destructor TSDLMouse.Destroy;
 begin
-  if FCursor <> nil then
-    SDL_FreeCursor( FCursor );
+
   inherited;
 end;
 
@@ -442,17 +482,6 @@ begin
   Result := not ( SDL_GetMouseState( FMousePos.X, FMousePos.Y ) and SDL_BUTTON( Button ) = 0 );
 end;
 
-procedure TSDLMouse.SetCursor(data, mask: PUInt8; w, h, hot_x, hot_y: Integer);
-begin
-  if FCursor <> nil then
-    SDL_FreeCursor( FCursor );
-  // create the cursor
-  FCursor := SDL_CreateCursor( data, mask, w, h, hot_x, hot_y );
-
-  // set the cursor
-  SDL_SetCursor( FCursor );
-end;
-
 procedure TSDLMouse.SetMousePosition(const Value: TPoint);
 begin
   SDL_WarpMouse( Value.x, Value.y );
@@ -689,4 +718,194 @@ begin
   end;
 end;
 
+{ TSDLCustomCursor }
+
+constructor TSDLCustomCursor.Create(const aFileName: string;  aHotPoint: TPoint);
+begin
+  inherited Create;
+  FHotPoint := aHotPoint;
+  LoadFromFile( aFileName );
+end;
+
+function TSDLCustomCursor.ScanForChar(str: string; ch: Char;
+  startPos: Integer; lookFor: Boolean): Integer;
+begin
+  Result := -1;
+  while ( ( ( str[ startPos ] = ch ) <> lookFor ) and ( startPos < Length( str ) ) ) do
+    inc( startPos );
+  if startPos <> Length( str ) then
+    Result := startPos;
+end;
+
+procedure TSDLCustomCursor.SetFileName(const aValue: string);
+begin
+  LoadFromFile( aValue );
+end;
+
+{ TSDLXPMCursor }
+
+destructor TSDLXPMCursor.Destroy;
+begin
+  FreeCursor;
+  inherited;
+end;
+
+procedure TSDLXPMCursor.FreeCursor;
+begin
+  if FCursor <> nil then
+  begin
+    SDL_FreeCursor( FCursor );
+    FFileName := ''; 
+  end;
+end;
+
+procedure TSDLXPMCursor.LoadFromFile(const aFileName: string);
+var
+  xpmFile : Textfile;
+  step : Integer;
+  holdPos : Integer;
+  counter : Integer;
+  dimensions : array[ 1..3 ] of Integer;
+  clr, clrNone, clrBlack, clrWhite : Char;
+  data, mask : array of UInt8;
+  i, col : Integer;
+  LineString : string;
+begin
+  FreeCursor;
+  AssignFile( xpmFile, aFileName );
+  Reset( xpmFile );
+  step := 0;
+  i := -1;
+  clrBlack := 'X';
+  clrWhite := ',';
+  clrNone := ' ';
+  counter := 0;
+  while not ( eof( xpmFile ) ) do
+  begin
+    Readln( xpmFile, LineString );
+    // scan for strings
+    if LineString[ 1 ] = '"' then
+    begin
+      case step of
+        0 : // Get dimensions  (should be width height number-of-colors ???)
+          begin
+            HoldPos := 2;
+            counter := ScanForChar( LineString, ' ', HoldPos, False );
+            counter := ScanForChar( LineString, ' ', counter, True );
+            dimensions[ 1 ] := StrToInt( Copy( LineString, HoldPos, counter - HoldPos ) );
+            counter := ScanForChar( LineString, ' ', counter, False );
+            holdPos := counter;
+            counter := ScanForChar( LineString, ' ', counter, True );
+            dimensions[ 2 ] := StrToInt( Copy( LineString, holdPos, counter - HoldPos ) );
+            counter := ScanForChar( LineString, ' ', counter, False );
+            holdPos := counter;
+            counter := ScanForChar( LineString, ' ', counter, True );
+            dimensions[ 3 ] := StrToInt( Copy( LineString, holdPos, counter - HoldPos ) );
+            step := 1;
+            SetLength( data, ( dimensions[ 1 ] * dimensions[ 2 ] ) div 8 );
+            SetLength( mask, ( dimensions[ 1 ] * dimensions[ 2 ] ) div 8 );
+            //Log.LogStatus( 'Length = ' + IntToStr( ( dimensions[ 1 ] * dimensions[ 2 ] ) div 8 ), 'LoadCursorFromFile' );
+          end;
+        1 : // get the symbols for transparent, black and white
+          begin
+            // get the symbol for the color
+            clr := LineString[ 2 ];
+            // look for the 'c' symbol
+            counter := ScanForChar( LineString, 'c', 3, True );
+            inc( counter );
+            counter := ScanForChar( LineString, ' ', counter, False );
+            if LowerCase( Copy( LineString, counter, 4 ) ) = 'none' then
+            begin
+              clrNone := clr;
+            end;
+            if LowerCase( Copy( LineString, counter, 7 ) ) = '#ffffff' then
+            begin
+              clrWhite := clr;
+            end;
+            if LowerCase( Copy( LineString, counter, 7 ) ) = '#000000' then
+            begin
+              clrBlack := clr;
+            end;
+            dec( dimensions[ 3 ] );
+            if dimensions[ 3 ] = 0 then
+            begin
+              step := 2;
+              counter := 0;
+            end;
+          end;
+        2 : // get cursor information -- modified from the SDL
+          // documentation of SDL_CreateCursor.
+          begin
+            for col := 1 to dimensions[1] do
+            begin
+              if ( ( col mod 8 ) <> 1 ) then
+              begin
+                data[ i ] := data[ i ] shl 1;
+                mask[ i ] := mask[ i ] shl 1;
+              end
+              else
+              begin
+                inc( i );
+                data[ i ] := 0;
+                mask[ i ] := 0;
+              end;
+              if LineString[ col ] = clrWhite then
+              begin
+                mask[ i ] := mask[ i ] or $01;
+              end
+              else if LineString[ col ] = clrBlack then
+              begin
+                data[ i ] := data[ i ] or $01;
+                mask[ i ] := mask[ i ] or $01;
+              end
+              else if LineString[ col + 1 ] = clrNone then
+              begin
+                //
+              end;
+            end;
+            inc(counter);
+            if counter = dimensions[2] then
+              step := 4;
+          end;
+      end;
+    end;
+  end;
+  CloseFile( xpmFile );
+  FCursor := SDL_CreateCursor( PUInt8( data ), PUInt8( mask ), dimensions[ 1 ], dimensions[ 2 ], FHotPoint.x, FHotPoint.y );
+end;
+
+procedure TSDLXPMCursor.LoadFromStream(aStream: TStream);
+begin
+  inherited;
+
+end;
+
+procedure TSDLXPMCursor.Show;
+begin
+  inherited;
+  SDL_SetCursor( FCursor );
+end;
+
+{ TSDLCursorList }
+function TSDLCursorList.AddCursor(const aName : string; aObject : TSDLCustomCursor): Integer;
+begin
+  result := inherited AddObject( aName, aObject );
+end;
+
+constructor TSDLCursorList.Create;
+begin
+  inherited;
+  Duplicates := dupIgnore;
+end;
+
+function TSDLCursorList.GetObject(aIndex: Integer): TSDLCustomCursor;
+begin
+  result := TSDLCustomCursor( inherited GetObject( aIndex ) );
+end;
+
+procedure TSDLCursorList.PutObject(aIndex: Integer; aObject: TSDLCustomCursor);
+begin
+  inherited PutObject( aIndex, aObject );
+end;
+
 end.

packages/extra/sdl/sdlticks.pas

@@ -1,7 +1,7 @@
 unit sdlticks;
 {
-  $Id: sdlticks.pas,v 1.1 2004/09/30 22:35:47 savage Exp $
-  
+  $Id: sdlticks.pas,v 1.2 2006/11/08 08:22:48 savage Exp $
+
 }
 {******************************************************************************}
 {                                                                              }
@@ -59,10 +59,12 @@ unit sdlticks;
 {   September   23 2004 - DL : Initial Creation                                }
 {
   $Log: sdlticks.pas,v $
+  Revision 1.2  2006/11/08 08:22:48  savage
+  updates tp sdlgameinterface and sdlticks functions.
+
   Revision 1.1  2004/09/30 22:35:47  savage
   Changes, enhancements and additions as required to get SoAoS working.
 
-
 }
 {******************************************************************************}
 
@@ -71,49 +73,50 @@ interface
 uses
   sdl;
 
-
 type
   TSDLTicks = class
   private
-    m_startTime : Int64;
-    m_ticksPerSecond : Int64;
-    s_lastTime : Int64;
-
+    FStartTime : UInt32;
+    FTicksPerSecond : UInt32;
+    FElapsedLastTime : UInt32;
+    FFPSLastTime : UInt32;
+    FLockFPSLastTime : UInt32;
   public
     constructor Create;
-    destructor Destroy; override;          // destructor
+    destructor Destroy; override; // destructor
 
     {*****************************************************************************
      Init
-
      If the hi-res timer is present, the tick rate is stored and the function
      returns true. Otherwise, the function returns false, and the timer should
      not be used.
     *****************************************************************************}
     function Init : boolean;
 
-    function GetElapsedSeconds( elapsedFrames : Cardinal = 1 ) : single;
+    {***************************************************************************
+     GetGetElapsedSeconds
+     Returns the Elapsed time, since the function was last called.
+    ***************************************************************************}
+    function GetElapsedSeconds : Single;
 
     {***************************************************************************
      GetFPS
-
-     Returns the average frames per second over elapsedFrames, which defaults to
-     one. If this is not called every frame, the client should track the number
+     Returns the average frames per second.
+     If this is not called every frame, the client should track the number
      of frames itself, and reset the value after this is called.
     ***************************************************************************}
-    function GetFPS( elapsedFrames : Cardinal  = 1 )  : single;
+    function GetFPS : single;
 
     {***************************************************************************
      LockFPS
-
      Used to lock the frame rate to a set amount. This will block until enough
      time has passed to ensure that the fps won't go over the requested amount.
      Note that this can only keep the fps from going above the specified level;
      it can still drop below it. It is assumed that if used, this function will
      be called every frame. The value returned is the instantaneous fps, which
-     will be <= targetFPS.
+     will be less than or equal to the targetFPS.
     ***************************************************************************}
-    function LockFPS( targetFPS : Byte ) : single;
+    procedure LockFPS( targetFPS : Byte );
   end;
 
 implementation
@@ -121,76 +124,74 @@ implementation
 { TSDLTicks }
 constructor TSDLTicks.Create;
 begin
-
+  inherited;
+  FTicksPerSecond := 1000;
 end;
 
 destructor TSDLTicks.Destroy;
 begin
-
   inherited;
 end;
 
-function TSDLTicks.GetElapsedSeconds( elapsedFrames: Cardinal ): single;
+function TSDLTicks.GetElapsedSeconds : Single;
 var
-  currentTime : Int64;
+  currentTime       : Cardinal;
 begin
-  // s_lastTime := m_startTime;
-
   currentTime := SDL_GetTicks;
-  //QueryPerformanceCounter( currentTime );
 
-  result :=  (currentTime - s_lastTime) / m_ticksPerSecond;
+  result := ( currentTime - FElapsedLastTime ) / FTicksPerSecond;
 
   // reset the timer
-  s_lastTime := currentTime;
+  FElapsedLastTime := currentTime;
 end;
 
-function TSDLTicks.GetFPS( elapsedFrames: Cardinal ): single;
+function TSDLTicks.GetFPS : Single;
 var
-  currentTime : integer;
-  fps : single;
+  currentTime, FrameTime : UInt32;
+  fps               : single;
 begin
-  // s_lastTime := m_startTime;
-
   currentTime := SDL_GetTicks;
 
-  fps := elapsedFrames * m_ticksPerSecond / ( currentTime - s_lastTime);
+  FrameTime := ( currentTime - FFPSLastTime );
 
-  // reset the timer
-  s_lastTime := currentTime;
+  if FrameTime = 0 then
+    FrameTime := 1;
 
+  fps := FTicksPerSecond / FrameTime;
+
+  // reset the timer
+  FFPSLastTime := currentTime;
   result := fps;
 end;
 
-function TSDLTicks.Init: boolean;
+function TSDLTicks.Init : boolean;
 begin
-  m_startTime := SDL_GetTicks;
-  s_lastTime := m_startTime;
-  m_ticksPerSecond := 1000;
+  FStartTime := SDL_GetTicks;
+  FElapsedLastTime := FStartTime;
+  FFPSLastTime := FStartTime;
+  FLockFPSLastTime := FStartTime;
   result := true;
 end;
 
-function TSDLTicks.LockFPS(targetFPS: Byte): single;
+procedure TSDLTicks.LockFPS( targetFPS : Byte );
 var
-  currentTime : integer;
-  fps : single;
+  currentTime       : UInt32;
+  targetTime        : single;
 begin
-  if (targetFPS = 0) then
+  if ( targetFPS = 0 ) then
     targetFPS := 1;
 
-  s_lastTime := m_startTime;
+  targetTime := FTicksPerSecond / targetFPS;
 
   // delay to maintain a constant frame rate
   repeat
     currentTime := SDL_GetTicks;
-    fps := m_ticksPerSecond / (currentTime - s_lastTime);
-  until (fps > targetFPS);
+  until ( ( currentTime - FLockFPSLastTime ) > targetTime );
 
   // reset the timer
-  s_lastTime := m_startTime;
-
-  result := fps;
+  FLockFPSLastTime := currentTime;
 end;
 
 end.
+
  

packages/extra/sdl/sdltruetypefont.pas

@@ -1,6 +1,6 @@
 unit sdltruetypefont;
 {
-  $Id: sdltruetypefont.pas,v 1.1 2004/09/30 22:39:50 savage Exp $
+  $Id: sdltruetypefont.pas,v 1.5 2005/05/26 21:22:28 savage Exp $
 
 }
 {******************************************************************************}
@@ -62,6 +62,21 @@ unit sdltruetypefont;
 {   September   23 2004 - DL : Initial Creation                                }
 {
   $Log: sdltruetypefont.pas,v $
+  Revision 1.5  2005/05/26 21:22:28  savage
+  Update to Input code.
+
+  Revision 1.1  2005/05/25 23:15:42  savage
+  Latest Changes
+
+  Revision 1.4  2005/05/25 22:55:01  savage
+  Added InputRect support.
+
+  Revision 1.3  2005/05/13 14:02:49  savage
+  Made it use UniCode rendering by default.
+
+  Revision 1.2  2005/05/13 11:37:52  savage
+  Improved wordwrapping algorithm
+
   Revision 1.1  2004/09/30 22:39:50  savage
   Added a true type font class which contains a wrap text function.
   Changed the sdl_ttf.pas header to reflect the future of jedi-sdl.
@@ -93,6 +108,7 @@ type
     FFontFile : string;
     FFontSize : integer;
     procedure PrepareFont;
+
   protected
 
   public
@@ -100,6 +116,7 @@ type
     destructor Destroy; override;
     function DrawText( aText : WideString ) : PSDL_Surface; overload;
     function DrawText( aText : WideString; aWidth, aHeight : Integer ) : PSDL_Surface; overload;
+    function Input(aDestination: PSDL_Surface; aX, aY, aWidth, aHeight: integer; var aText: string; aMaxChars: integer = 10 ): PSDL_Surface;
     property BackGroundColour : TSDL_Color read FBackGroundColour write FBackGroundColour;
     property ForeGroundColour : TSDL_Color read FForeGroundColour write FForeGroundColour;
     property FontFile : string read FFontFile write FFontFile;
@@ -131,7 +148,7 @@ begin
     FForeGroundColour.r := 0;
     FForeGroundColour.g := 0;
     FForeGroundColour.b := 0;
-    FRenderType := rtUTF8;
+    FRenderType := rtUnicode;
     if ( TTF_Init >= 0 ) then
     begin
       FFontFile := aFontFile;
@@ -265,26 +282,31 @@ begin
         else
         begin
           dec( i );
-          strChopped := Copy( strChopped, 0, i );
-          if TTF_SizeText( FFont, PChar( string( strChopped ) ), textw, texth ) = 0 then
+          if TTF_SizeText( FFont, PChar( string( Copy( strChopped, 0, i ) ) ), textw, texth ) = 0 then
           begin
             if ( textw < aWidth )
-              and ( texth < aHeight ) then
+            and ( texth < aHeight ) then
             begin
               SetLength( strlist, Length( strlist ) + 1 );
-              strlist[ Length( strlist ) - 1 ] := strChopped;
-              strChopped := Copy( aText, i + 2, Length( aText ) - ( i - 1 ) );
+              strlist[ Length( strlist ) - 1 ] := Copy( strChopped, 0, i );
+              strChopped := Copy( strChopped, i + 2, Length( strChopped ) - ( i - 1 ) );
               i := Length( strChopped );
               if TTF_SizeText( FFont, PChar( string( strChopped ) ), textw, texth ) = 0 then
               begin
-                SetLength( strlist, Length( strlist ) + 1 );
-                strlist[ Length( strlist ) - 1 ] := strChopped;
-                break;
+                if ( textw < aWidth )
+                and ( texth < aHeight ) then
+                begin
+                  SetLength( strlist, Length( strlist ) + 1 );
+                  strlist[ Length( strlist ) - 1 ] := Copy( strChopped, 0, i );
+                  strChopped := Copy( strChopped, i + 2, Length( strChopped ) - ( i - 1 ) );
+                  i := Length( strChopped );
+                end;
               end;
             end;
           end;
         end;
       end;
+      
       SetLength( SurfaceList, Length( strlist ) );
       for i := Low( strlist ) to High( strlist ) do
       begin
@@ -310,26 +332,31 @@ begin
         else
         begin
           dec( i );
-          strChopped := Copy( strChopped, 0, i );
-          if TTF_SizeUTF8( FFont, PChar( string( strChopped ) ), textw, texth ) = 0 then
+          if TTF_SizeUTF8( FFont, PChar( string( Copy( strChopped, 0, i ) ) ), textw, texth ) = 0 then
           begin
             if ( textw < aWidth )
-              and ( texth < aHeight ) then
+            and ( texth < aHeight ) then
             begin
               SetLength( strlist, Length( strlist ) + 1 );
-              strlist[ Length( strlist ) - 1 ] := strChopped;
-              strChopped := Copy( aText, i + 2, Length( aText ) - ( i - 1 ) );
+              strlist[ Length( strlist ) - 1 ] := Copy( strChopped, 0, i );
+              strChopped := Copy( strChopped, i + 2, Length( strChopped ) - ( i - 1 ) );
               i := Length( strChopped );
               if TTF_SizeUTF8( FFont, PChar( string( strChopped ) ), textw, texth ) = 0 then
               begin
-                SetLength( strlist, Length( strlist ) + 1 );
-                strlist[ Length( strlist ) - 1 ] := strChopped;
-                break;
+                if ( textw < aWidth )
+                and ( texth < aHeight ) then
+                begin
+                  SetLength( strlist, Length( strlist ) + 1 );
+                  strlist[ Length( strlist ) - 1 ] := Copy( strChopped, 0, i );
+                  strChopped := Copy( strChopped, i + 2, Length( strChopped ) - ( i - 1 ) );
+                  i := Length( strChopped );
+                end;
               end;
             end;
           end;
         end;
       end;
+
       SetLength( SurfaceList, Length( strlist ) );
       for i := Low( strlist ) to High( strlist ) do
       begin
@@ -355,21 +382,25 @@ begin
         else
         begin
           dec( i );
-          strChopped := Copy( strChopped, 0, i );
-          if TTF_SizeUNICODE( FFont, PUInt16( strChopped ), textw, texth ) = 0 then
+          if TTF_SizeUNICODE( FFont, PUInt16( Copy( strChopped, 0, i ) ), textw, texth ) = 0 then
           begin
             if ( textw < aWidth )
-              and ( texth < aHeight ) then
+            and ( texth < aHeight ) then
             begin
               SetLength( strlist, Length( strlist ) + 1 );
-              strlist[ Length( strlist ) - 1 ] := strChopped;
-              strChopped := Copy( aText, i + 2, Length( aText ) - ( i - 1 ) );
+              strlist[ Length( strlist ) - 1 ] := Copy( strChopped, 0, i );
+              strChopped := Copy( strChopped, i + 2, Length( strChopped ) - ( i - 1 ) );
               i := Length( strChopped );
               if TTF_SizeUNICODE( FFont, PUInt16( strChopped ), textw, texth ) = 0 then
               begin
-                SetLength( strlist, Length( strlist ) + 1 );
-                strlist[ Length( strlist ) - 1 ] := strChopped;
-                break;
+                if ( textw < aWidth )
+                and ( texth < aHeight ) then
+                begin
+                  SetLength( strlist, Length( strlist ) + 1 );
+                  strlist[ Length( strlist ) - 1 ] := Copy( strChopped, 0, i );
+                  strChopped := Copy( strChopped, i + 2, Length( strChopped ) - ( i - 1 ) );
+                  i := Length( strChopped );
+                end;
               end;
             end;
           end;
@@ -411,6 +442,103 @@ begin
   SetLength( strlist, 0 );
 end;
 
+function TTrueTypeFont.Input(aDestination: PSDL_Surface; aX, aY, aWidth: integer; aHeight : integer; var aText : string; aMaxChars: integer): PSDL_Surface;
+var
+  event : TSDL_Event;
+  ch : integer;
+
+  BackSurface, TextSurface : PSDL_Surface;
+  rect : SDL_Rect;
+  textw, texth : integer;
+  Done : boolean;
+  PassedInText : string; 
+begin
+  PassedInText := aText;
+
+  BackSurface := SDL_AllocSurface( aDestination.flags,
+    aDestination.w,
+    aDestination.h,
+    aDestination.format.BitsPerPixel,
+    aDestination.format.Rmask,
+    aDestination.format.Gmask,
+    aDestination.format.Bmask, 0 );
+
+  rect.x := aX;
+  rect.y := aY;
+  rect.w := aWidth;
+  rect.h := aHeight;
+
+  SDL_BlitSurface( aDestination, nil, BackSurface, nil );
+  SDL_FillRect( BackSurface, @rect, SDL_MapRGB( aDestination.format, 0, 0, 0 ) );
+
+  TextSurface := DrawText( aText + '|' );
+
+  // start input
+  SDL_EnableUNICODE( 1 );
+  Done := false;
+  while ( not Done ) and ( SDL_WaitEvent( @event ) > 0 ) do
+  begin
+    if event.type_ = SDL_KEYDOWN then
+    begin
+      ch := event.key.keysym.unicode;
+      case ch of
+        SDLK_RETURN :
+        begin
+          Done := true;
+        end;
+
+        SDLK_ESCAPE :
+        begin
+          aText := PassedInText;
+          Done := true;
+        end;
+
+        SDLK_BACKSPACE :
+        begin
+          if ( Length( aText ) > 0 ) then
+          begin
+            aText := Copy( aText, 0, Length( aText ) - 1 );
+            if TextSurface <> nil then
+                SDL_FreeSurface( TextSurface );
+            TextSurface := DrawText( aText + '|' );
+          end;
+        end;
+      else
+        begin
+          if Length( aText ) < aMaxChars then
+          begin
+            if ( chr( ch ) <> '' ) then
+            begin
+              aText := aText + chr( ch );
+
+              if ( aText <> '' )
+              and ( TTF_SizeUNICODE( FFont, PUInt16( aText ), textw, texth ) = 0 ) then
+              begin
+                if ( textw > aWidth ) then
+                  aText := Copy( aText, 0, Length( aText ) - 1 );
+              end;
+
+              if TextSurface <> nil then
+                SDL_FreeSurface( TextSurface );
+              TextSurface := DrawText( aText + '|' );
+            end;
+          end;
+        end;
+      end;
+    end;
+    SDL_BlitSurface( BackSurface, nil, aDestination, nil );
+    SDL_BlitSurface( TextSurface, nil, aDestination, @rect );
+    SDL_Flip( aDestination );
+  end;
+  
+  if TextSurface <> nil then
+    SDL_FreeSurface( TextSurface );
+  if aText <> '' then
+    TextSurface := DrawText( aText );
+  SDL_FreeSurface( BackSurface );
+  result := TextSurface;
+end;
+
 procedure TTrueTypeFont.PrepareFont;
 var
   renderstyle : integer;

packages/extra/sdl/sdlwindow.pas

@@ -1,6 +1,6 @@
 unit sdlwindow;
 {
-  $Id: sdlwindow.pas,v 1.7 2004/09/30 22:35:47 savage Exp $
+  $Id: sdlwindow.pas,v 1.9 2006/10/22 18:55:25 savage Exp $
   
 }
 {******************************************************************************}
@@ -59,6 +59,12 @@ unit sdlwindow;
 {                                                                              }
 {
   $Log: sdlwindow.pas,v $
+  Revision 1.9  2006/10/22 18:55:25  savage
+  Slight Change to handle OpenGL context
+
+  Revision 1.8  2005/08/03 18:57:32  savage
+  Various updates and additions. Mainly to handle OpenGL 3D Window support and better cursor support for the mouse class
+
   Revision 1.7  2004/09/30 22:35:47  savage
   Changes, enhancements and additions as required to get SoAoS working.
 
@@ -171,15 +177,8 @@ type
     function Show : Boolean; virtual;
   end;
 
-  TSDL2DWindow = class( TSDLBaseWindow )
+  TSDLCustomWindow = class( TSDLBaseWindow )
   public
-    constructor Create( aWidth : integer; aHeight : integer; aBitDepth : integer; aVideoFlags : Uint32 = SDL_DOUBLEBUF or SDL_SWSURFACE); override;
-    procedure Render; override;
-    procedure Update( aElapsedTime : single ); override;
-    procedure InitialiseObjects; override;
-    procedure RestoreObjects; override;
-    procedure DeleteObjects; override;
-    function Flip : integer; override;
     property OnCreate;
     property OnDestroy;
     property OnClose;
@@ -190,7 +189,18 @@ type
     property DisplaySurface;
   end;
 
-  TSDL3DWindow = class( TSDLBaseWindow )
+  TSDL2DWindow = class( TSDLCustomWindow )
+  public
+    constructor Create( aWidth : integer; aHeight : integer; aBitDepth : integer; aVideoFlags : Uint32 = SDL_DOUBLEBUF or SDL_SWSURFACE); override;
+    procedure Render; override;
+    procedure Update( aElapsedTime : single ); override;
+    procedure InitialiseObjects; override;
+    procedure RestoreObjects; override;
+    procedure DeleteObjects; override;
+    function Flip : integer; override;
+  end;
+
+  TSDL3DWindow = class( TSDLCustomWindow )
   public
     constructor Create( aWidth : integer; aHeight : integer; aBitDepth : integer; aVideoFlags : Uint32 = SDL_OPENGL or SDL_DOUBLEBUF); override;
     function Flip : integer; override;
@@ -199,14 +209,6 @@ type
     procedure InitialiseObjects; override;
     procedure RestoreObjects; override;
     procedure DeleteObjects; override;
-    property OnCreate;
-    property OnDestroy;
-    property OnClose;
-    property OnShow;
-    property OnResize;
-    property OnRender;
-    property OnUpdate;
-    property DisplaySurface;
   end;
 
 
@@ -226,7 +228,7 @@ begin
     Log.LogError( Format('Could not set video mode: %s', [SDL_GetError]), 'Main');
     exit;
   end;
-  
+
   SetCaption( 'Made with JEDI-SDL', 'JEDI-SDL Icon' );
 end;
 
@@ -552,7 +554,7 @@ end;
 procedure TSDL3DWindow.Render;
 begin
   inherited;
-
+  
 end;
 
 procedure TSDL3DWindow.RestoreObjects;