- removed (linux incompatible) PngImage. In addition it was rather outdated (from 2003, newest version is from 2006)

- introduced UImage-unit for JPG/PNG/BMP image saving
- the png part uses the libpng12-0.dll (part of SDL_Image) so 
- the jpg part uses either Delphi's Jpeg unit or FPC's base/pasjpeg unit
-> so no additional libs are needed.

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

1 files changed, 0 insertions, 172 deletions

diff --git a/Game/Code/lib/PngImage/pngzlib.pas b/Game/Code/lib/PngImage/pngzlib.pas
deleted file mode 100644
index 3155946a..00000000
--- a/Game/Code/lib/PngImage/pngzlib.pas
+++ /dev/null
@@ -1,172 +0,0 @@
-{Portable Network Graphics Delphi ZLIB linking  (16 May 2002) }

-

-{This unit links ZLIB to pngimage unit in order to implement  }

-{the library. It's now using the new ZLIB version, 1.1.4      }

-{Note: The .obj files must be located in the subdirectory \obj}

-

-unit pngzlib;

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-{$ENDIF}

-

-interface

-

-type

-

-  TAlloc = function (AppData: Pointer; Items, Size: Integer): Pointer;

-  TFree = procedure (AppData, Block: Pointer);

-

-  // Internal structure.  Ignore.

-  TZStreamRec = packed record

-    next_in: PChar;       // next input byte

-    avail_in: Integer;    // number of bytes available at next_in

-    total_in: Integer;    // total nb of input bytes read so far

-

-    next_out: PChar;      // next output byte should be put here

-    avail_out: Integer;   // remaining free space at next_out

-    total_out: Integer;   // total nb of bytes output so far

-

-    msg: PChar;           // last error message, NULL if no error

-    internal: Pointer;    // not visible by applications

-

-    zalloc: TAlloc;       // used to allocate the internal state

-    zfree: TFree;         // used to free the internal state

-    AppData: Pointer;     // private data object passed to zalloc and zfree

-

-    data_type: Integer;   //  best guess about the data type: ascii or binary

-    adler: Integer;       // adler32 value of the uncompressed data

-    reserved: Integer;    // reserved for future use

-  end;

-

-function inflateInit_(var strm: TZStreamRec; version: PChar; recsize: Integer): Integer; // forward;

-function inflate(var strm: TZStreamRec; flush: Integer): Integer; //forward;

-function inflateEnd(var strm: TZStreamRec): Integer; //forward;

-function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar; recsize: Integer): Integer; //forward;

-function deflate(var strm: TZStreamRec; flush: Integer): Integer; //forward;

-function deflateEnd(var strm: TZStreamRec): Integer; //forward;

-

-const

-  zlib_version = '1.1.4';

-

-function adler32(adler: Integer; buf: PChar; len: Integer): Integer;

-

-

-const

-  Z_NO_FLUSH      = 0;

-  Z_PARTIAL_FLUSH = 1;

-  Z_SYNC_FLUSH    = 2;

-  Z_FULL_FLUSH    = 3;

-  Z_FINISH        = 4;

-

-  Z_OK            = 0;

-  Z_STREAM_END    = 1;

-  Z_NEED_DICT     = 2;

-  Z_ERRNO         = (-1);

-  Z_STREAM_ERROR  = (-2);

-  Z_DATA_ERROR    = (-3);

-  Z_MEM_ERROR     = (-4);

-  Z_BUF_ERROR     = (-5);

-  Z_VERSION_ERROR = (-6);

-

-  Z_NO_COMPRESSION       =   0;

-  Z_BEST_SPEED           =   1;

-  Z_BEST_COMPRESSION     =   9;

-  Z_DEFAULT_COMPRESSION  = (-1);

-

-  Z_FILTERED            = 1;

-  Z_HUFFMAN_ONLY        = 2;

-  Z_DEFAULT_STRATEGY    = 0;

-

-  Z_BINARY   = 0;

-  Z_ASCII    = 1;

-  Z_UNKNOWN  = 2;

-

-  Z_DEFLATED = 8;

-

-  _z_errmsg: array[0..9] of PChar = (

-    'need dictionary',      // Z_NEED_DICT      (2)

-    'stream end',           // Z_STREAM_END     (1)

-    '',                     // Z_OK             (0)

-    'file error',           // Z_ERRNO          (-1)

-    'stream error',         // Z_STREAM_ERROR   (-2)

-    'data error',           // Z_DATA_ERROR     (-3)

-    'insufficient memory',  // Z_MEM_ERROR      (-4)

-    'buffer error',         // Z_BUF_ERROR      (-5)

-    'incompatible version', // Z_VERSION_ERROR  (-6)

-    ''

-  );

-

-implementation

-

-{$IFNDef FPC}

-  {$L obj\deflate.obj}

-  {$L obj\trees.obj}

-  {$L obj\inflate.obj}

-  {$L obj\inftrees.obj}

-  {$L obj\adler32.obj}

-  {$L obj\infblock.obj}

-  {$L obj\infcodes.obj}

-  {$L obj\infutil.obj}

-  {$L obj\inffast.obj}

-{$ENDIF}

-

-procedure _tr_init; external;

-procedure _tr_tally; external;

-procedure _tr_flush_block; external;

-procedure _tr_align; external;

-procedure _tr_stored_block; external;

-function adler32; external;

-procedure inflate_blocks_new; external;

-procedure inflate_blocks; external;

-procedure inflate_blocks_reset; external;

-procedure inflate_blocks_free; external;

-procedure inflate_set_dictionary; external;

-procedure inflate_trees_bits; external;

-procedure inflate_trees_dynamic; external;

-procedure inflate_trees_fixed; external;

-procedure inflate_codes_new; external;

-procedure inflate_codes; external;

-procedure inflate_codes_free; external;

-procedure _inflate_mask; external;

-procedure inflate_flush; external;

-procedure inflate_fast; external;

-

-procedure _memset(P: Pointer; B: Byte; count: Integer);cdecl;

-begin

-  FillChar(P^, count, B);

-end;

-

-procedure _memcpy(dest, source: Pointer; count: Integer);cdecl;

-begin

-  Move(source^, dest^, count);

-end;

-

-

-// deflate compresses data

-function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar;

-  recsize: Integer): Integer; external;

-function deflate(var strm: TZStreamRec; flush: Integer): Integer; external;

-function deflateEnd(var strm: TZStreamRec): Integer; external;

-

-// inflate decompresses data

-function inflateInit_(var strm: TZStreamRec; version: PChar; recsize: Integer): Integer; external;

-function inflate(var strm: TZStreamRec; flush: Integer): Integer; external;

-function inflateEnd(var strm: TZStreamRec): Integer; external;

-function inflateReset(var strm: TZStreamRec): Integer; external;

-

-

-function zcalloc(AppData: Pointer; Items, Size: Integer): Pointer;

-begin

-  GetMem(Result, Items*Size);

-end;

-

-procedure zcfree(AppData, Block: Pointer);

-begin

-  FreeMem(Block);

-end;

-

-end.

-

-

-