import of external variables does not work in fpc (why?)

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

1 files changed, 969 insertions, 980 deletions

diff --git a/Game/Code/lib/libpng/png.pas b/Game/Code/lib/libpng/png.pas
index f4424a2a..0d784140 100644
--- a/Game/Code/lib/libpng/png.pas
+++ b/Game/Code/lib/libpng/png.pas
@@ -1,980 +1,969 @@
-(*

- * libpng pascal headers

- * Version: 1.2.12

- *)

-

-{$IFDEF FPC}

-  {$ifndef NO_SMART_LINK}

-  {$smartlink on}

-  {$endif}

-{$ENDIF}

-unit png;

-

-interface

-

-{$IFDEF FPC}

-  {$MODE DELPHI}

-  {$PACKRECORDS C}

-{$ENDIF}

-

-uses

-  {$IFDEF MSWINDOWS}

-  Windows,

-  {$ENDIF}

-  {$IFDEF UNIX}

-  baseunix,

-  {$ENDIF}

-  zlib;

-

-const

-{$ifdef MSWINDOWS}

-  // use libpng12-0 (Version 1.2.18), delivered wih SDL_Image

-  LibPng = 'libpng12-0'; // 'libpng13';

-  // matching lib version for libpng13.dll, needed for initialization

-  PNG_LIBPNG_VER_STRING='1.2.12';

-  // define the compiler that was used to built the DLL (necessary for jmp_buf)

-  // SDL_Image was compiled with GCC

-  //{$define MSVC_DLL} // MS Visual C++

-  {$define GCC_DLL}  // GCC

-{$else}

-  LibPng = 'png';

-  // matching lib version for libpng, needed for initialization

-  PNG_LIBPNG_VER_STRING='1.2.12';

-{$endif}

-

-

-{$ifdef MSWINDOWS}

-const

-   // JB_LEN (#elements in jmp_buf) depends on the compiler used to compile the DLL

-   //   MSVC++: 16 (x86/AMD64), GCC: 52

-   {$if Defined(MSVC_DLL)}

-   JB_LEN = 16;

-   {$elseif Defined(GCC_DLL)}

-   JB_LEN = 52;

-   {$else}

-   JB_LEN = 0;

-   {$ifend}

-{$endif}

-

-type

-   {$IFNDEF FPC}

-   // defines for Delphi

-   size_t = longword;

-   {$ENDIF}

-

-   {$ifdef MSWINDOWS}

-     {$if JB_LEN > 0}

-     jmp_buf = array[0..JB_LEN-1] of integer;

-     // the png_struct cannot be accessed if the size of jmp_buf is unknown

-     {$define UsePngStruct}

-     {$ifend}

-     // Do NOT use time_t on windows! It might be 32 or 64bit, depending on the compiler and system.

-     // MSVS-2005 starts using 64bit for time_t on x86 by default, but GCC uses just 32bit.

-     //time_t = longint;

-   {$endif}

-

-   z_stream = TZStream;

-

-   png_uint_32 = dword;

-   png_int_32 = longint;

-   png_uint_16 = word;

-   png_int_16 = smallint;

-   png_byte = byte;

-   ppng_uint_32 = ^png_uint_32;

-   ppng_int_32 = ^png_int_32;

-   ppng_uint_16 = ^png_uint_16;

-   ppng_int_16 = ^png_int_16;

-   ppng_byte = ^png_byte;

-   pppng_uint_32 = ^ppng_uint_32;

-   pppng_int_32 = ^ppng_int_32;

-   pppng_uint_16 = ^ppng_uint_16;

-   pppng_int_16 = ^ppng_int_16;

-   pppng_byte = ^ppng_byte;

-   png_size_t = size_t;

-   png_fixed_point = png_int_32;

-   ppng_fixed_point = ^png_fixed_point;

-   pppng_fixed_point = ^ppng_fixed_point;

-   png_voidp = pointer;

-   png_bytep = Ppng_byte;

-   ppng_bytep = ^png_bytep;

-   png_uint_32p = Ppng_uint_32;

-   png_int_32p = Ppng_int_32;

-   png_uint_16p = Ppng_uint_16;

-   ppng_uint_16p = ^png_uint_16p;

-   png_int_16p = Ppng_int_16;

-   png_const_charp = {const} Pchar;

-   png_charp = Pchar;

-   ppng_charp = ^png_charp;

-   png_fixed_point_p = Ppng_fixed_point;

-   png_FILE_p = Pointer;

-   png_doublep = Pdouble;

-   png_bytepp = PPpng_byte;

-   png_uint_32pp = PPpng_uint_32;

-   png_int_32pp = PPpng_int_32;

-   png_uint_16pp = PPpng_uint_16;

-   png_int_16pp = PPpng_int_16;

-   png_const_charpp = {const} PPchar;

-   png_charpp = PPchar;

-   ppng_charpp = ^png_charpp;

-   png_fixed_point_pp = PPpng_fixed_point;

-   PPDouble = ^PDouble;

-   png_doublepp = PPdouble;

-   PPPChar = ^PPCHar;

-   png_charppp = PPPchar;

-   Pcharf = Pchar;

-   PPcharf = ^Pcharf;

-   png_zcharp = Pcharf;

-   png_zcharpp = PPcharf;

-   png_zstreamp = Pzstream;

-

-const

-  (* Maximum positive integer used in PNG is (2^31)-1 *)

-  PNG_UINT_31_MAX = (png_uint_32($7fffffff));

-  PNG_UINT_32_MAX = (png_uint_32(-1));

-  PNG_SIZE_MAX    = (png_size_t(-1));

-  {$if defined(PNG_1_0_X) or defined (PNG_1_2_X)}

-  (* PNG_MAX_UINT is deprecated; use PNG_UINT_31_MAX instead. *)

-  PNG_MAX_UINT = PNG_UINT_31_MAX;

-  {$ifend}

-

-  (* These describe the color_type field in png_info. *)

-  (* color type masks *)

-  PNG_COLOR_MASK_PALETTE  = 1;

-  PNG_COLOR_MASK_COLOR    = 2;

-  PNG_COLOR_MASK_ALPHA    = 4;

-

-  (* color types.  Note that not all combinations are legal *)

-  PNG_COLOR_TYPE_GRAY = 0;

-  PNG_COLOR_TYPE_PALETTE    = (PNG_COLOR_MASK_COLOR or PNG_COLOR_MASK_PALETTE);

-  PNG_COLOR_TYPE_RGB        = (PNG_COLOR_MASK_COLOR);

-  PNG_COLOR_TYPE_RGB_ALPHA  = (PNG_COLOR_MASK_COLOR or PNG_COLOR_MASK_ALPHA);

-  PNG_COLOR_TYPE_GRAY_ALPHA = (PNG_COLOR_MASK_ALPHA);

-  (* aliases *)

-  PNG_COLOR_TYPE_RGBA = PNG_COLOR_TYPE_RGB_ALPHA;

-  PNG_COLOR_TYPE_GA   = PNG_COLOR_TYPE_GRAY_ALPHA;

-

-  (* This is for compression type. PNG 1.0-1.2 only define the single type. *)

-  PNG_COMPRESSION_TYPE_BASE = 0; (* Deflate method 8, 32K window *)

-  PNG_COMPRESSION_TYPE_DEFAULT = PNG_COMPRESSION_TYPE_BASE;

-

-  (* This is for filter type. PNG 1.0-1.2 only define the single type. *)

-  PNG_FILTER_TYPE_BASE     = 0; (* Single row per-byte filtering *)

-  PNG_INTRAPIXEL_DIFFERENCING = 64; (* Used only in MNG datastreams *)

-  PNG_FILTER_TYPE_DEFAULT  = PNG_FILTER_TYPE_BASE;

-

-  (* These are for the interlacing type.  These values should NOT be changed. *)

-  PNG_INTERLACE_NONE      = 0; (* Non-interlaced image *)

-  PNG_INTERLACE_ADAM7     = 1; (* Adam7 interlacing *)

-  PNG_INTERLACE_LAST      = 2; (* Not a valid value *)

-

-  (* These are for the oFFs chunk.  These values should NOT be changed. *)

-  PNG_OFFSET_PIXEL        = 0; (* Offset in pixels *)

-  PNG_OFFSET_MICROMETER   = 1; (* Offset in micrometers (1/10^6 meter) *)

-  PNG_OFFSET_LAST         = 2; (* Not a valid value *)

-

-  (* These are for the pCAL chunk.  These values should NOT be changed. *)

-  PNG_EQUATION_LINEAR     = 0; (* Linear transformation *)

-  PNG_EQUATION_BASE_E     = 1; (* Exponential base e transform *)

-  PNG_EQUATION_ARBITRARY  = 2; (* Arbitrary base exponential transform *)

-  PNG_EQUATION_HYPERBOLIC = 3; (* Hyperbolic sine transformation *)

-  PNG_EQUATION_LAST       = 4; (* Not a valid value *)

-

-  (* These are for the sCAL chunk.  These values should NOT be changed. *)

-  PNG_SCALE_UNKNOWN       = 0; (* unknown unit (image scale) *)

-  PNG_SCALE_METER         = 1; (* meters per pixel *)

-  PNG_SCALE_RADIAN        = 2; (* radians per pixel *)

-  PNG_SCALE_LAST          = 3; (* Not a valid value *)

-

-  (* These are for the pHYs chunk.  These values should NOT be changed. *)

-  PNG_RESOLUTION_UNKNOWN  = 0; (* pixels/unknown unit (aspect ratio) *)

-  PNG_RESOLUTION_METER    = 1; (* pixels/meter *)

-  PNG_RESOLUTION_LAST     = 2; (* Not a valid value *)

-

-  (* These are for the sRGB chunk.  These values should NOT be changed. *)

-  PNG_sRGB_INTENT_PERCEPTUAL = 0;

-  PNG_sRGB_INTENT_RELATIVE   = 1;

-  PNG_sRGB_INTENT_SATURATION = 2;

-  PNG_sRGB_INTENT_ABSOLUTE   = 3;

-  PNG_sRGB_INTENT_LAST       = 4; (* Not a valid value *)

-

-  (* This is for text chunks *)

-  PNG_KEYWORD_MAX_LENGTH   = 79;

-

-  (* Maximum number of entries in PLTE/sPLT/tRNS arrays *)

-  PNG_MAX_PALETTE_LENGTH  = 256;

-

-  (* These determine if an ancillary chunk's data has been successfully read

-   * from the PNG header, or if the application has filled in the corresponding

-   * data in the info_struct to be written into the output file.  The values

-   * of the PNG_INFO_<chunk> defines should NOT be changed.

-   *)

-  PNG_INFO_gAMA = $0001;

-  PNG_INFO_sBIT = $0002;

-  PNG_INFO_cHRM = $0004;

-  PNG_INFO_PLTE = $0008;

-  PNG_INFO_tRNS = $0010;

-  PNG_INFO_bKGD = $0020;

-  PNG_INFO_hIST = $0040;

-  PNG_INFO_pHYs = $0080;

-  PNG_INFO_oFFs = $0100;

-  PNG_INFO_tIME = $0200;

-  PNG_INFO_pCAL = $0400;

-  PNG_INFO_sRGB = $0800;  (* GR-P, 0.96a *)

-  PNG_INFO_iCCP = $1000;  (* ESR, 1.0.6 *)

-  PNG_INFO_sPLT = $2000;  (* ESR, 1.0.6 *)

-  PNG_INFO_sCAL = $4000;  (* ESR, 1.0.6 *)

-  PNG_INFO_IDAT = $8000;  (* ESR, 1.0.6 *)

-

-

-{$IFDEF FPC}

-{$IF Defined(Linux)}

-var

-  png_libpng_ver    : array[0..11] of char;   cvar; external;

-  png_pass_start    : array[0..6] of integer; cvar; external;

-  png_pass_inc      : array[0..6] of integer; cvar; external;

-  png_pass_ystart   : array[0..6] of integer; cvar; external;

-  png_pass_yinc     : array[0..6] of integer; cvar; external;

-  png_pass_mask     : array[0..6] of integer; cvar; external;

-  png_pass_dsp_mask : array[0..6] of integer; cvar; external;

-{$ELSEIF Defined(Darwin)}

-var

-  png_libpng_ver    : array[0..11] of char;   external LibPng name 'png_libpng_ver';

-  png_pass_start    : array[0..6] of integer; external LibPng name 'png_pass_start';

-  png_pass_inc      : array[0..6] of integer; external LibPng name 'png_pass_inc';

-  png_pass_ystart   : array[0..6] of integer; external LibPng name 'png_pass_ystart';

-  png_pass_yinc     : array[0..6] of integer; external LibPng name 'png_pass_yinc';

-  png_pass_mask     : array[0..6] of integer; external LibPng name 'png_pass_mask';

-  png_pass_dsp_mask : array[0..6] of integer; external LibPng name 'png_pass_dsp_mask';

-{$IFEND}

-{$ENDIF}

-

-type

-  (* Three color definitions.  The order of the red, green, and blue, (and the

-   * exact size) is not important, although the size of the fields need to

-   * be png_byte or png_uint_16 (as defined below).

-   *)

-  png_color = record

-       red : png_byte;

-       green : png_byte;

-       blue : png_byte;

-    end;

-  ppng_color = ^png_color;

-  pppng_color = ^ppng_color;

-  png_color_struct = png_color;

-  png_colorp = Ppng_color;

-  ppng_colorp = ^png_colorp;

-  png_colorpp = PPpng_color;

-

-  png_color_16 = record

-       index : png_byte;    (* used for palette files *)

-       red : png_uint_16;   (* for use in red green blue files *)

-       green : png_uint_16;

-       blue : png_uint_16;

-       gray : png_uint_16;  (* for use in grayscale files *)

-    end;

-  ppng_color_16 = ^png_color_16 ;

-  pppng_color_16 = ^ppng_color_16 ;

-  png_color_16_struct = png_color_16;

-  png_color_16p = Ppng_color_16;

-  ppng_color_16p = ^png_color_16p;

-  png_color_16pp = PPpng_color_16;

-

-  png_color_8 = record

-       red : png_byte;    (* for use in red green blue files *)

-       green : png_byte;

-       blue : png_byte;

-       gray : png_byte;   (* for use in grayscale files *)

-       alpha : png_byte;  (* for alpha channel files *)

-    end;

-  ppng_color_8 = ^png_color_8;

-  pppng_color_8 = ^ppng_color_8;

-  png_color_8_struct = png_color_8;

-  png_color_8p = Ppng_color_8;

-  ppng_color_8p = ^png_color_8p;

-  png_color_8pp = PPpng_color_8;

-   

-  (*

-   * The following two structures are used for the in-core representation

-   * of sPLT chunks.

-   *)

-  png_sPLT_entry = record

-       red : png_uint_16;

-       green : png_uint_16;

-       blue : png_uint_16;

-       alpha : png_uint_16;

-       frequency : png_uint_16;

-    end;

-  ppng_sPLT_entry = ^png_sPLT_entry;

-  pppng_sPLT_entry = ^ppng_sPLT_entry;

-  png_sPLT_entry_struct = png_sPLT_entry;

-  png_sPLT_entryp = Ppng_sPLT_entry;

-  png_sPLT_entrypp = PPpng_sPLT_entry;

-

-  (*  When the depth of the sPLT palette is 8 bits, the color and alpha samples

-   *  occupy the LSB of their respective members, and the MSB of each member

-   *  is zero-filled.  The frequency member always occupies the full 16 bits.

-   *)

-

-  png_sPLT_t = record

-       name : png_charp;          (* palette name *)

-       depth : png_byte;          (* depth of palette samples *)

-       entries : png_sPLT_entryp; (* palette entries *)

-       nentries : png_int_32;     (* number of palette entries *)

-    end;

-  ppng_sPLT_t = ^png_sPLT_t;

-  pppng_sPLT_t = ^ppng_sPLT_t;

-  png_sPLT_struct = png_sPLT_t;

-  png_sPLT_tp = Ppng_sPLT_t;

-  png_sPLT_tpp = PPpng_sPLT_t;

-   

-  (* png_text holds the contents of a text/ztxt/itxt chunk in a PNG file,

-   * and whether that contents is compressed or not.  The "key" field

-   * points to a regular zero-terminated C string.  The "text", "lang", and

-   * "lang_key" fields can be regular C strings, empty strings, or NULL pointers.

-   * However, the * structure returned by png_get_text() will always contain

-   * regular zero-terminated C strings (possibly empty), never NULL pointers,

-   * so they can be safely used in printf() and other string-handling functions.

-   *)

-  png_text = record

-       compression : integer;    (* compression value:

-                                   -1: tEXt, none

-                                    0: zTXt, deflate

-                                    1: iTXt, none

-                                    2: iTXt, deflate  *)

-       key : png_charp;          (* keyword, 1-79 character description of "text" *)

-       text : png_charp;         (* comment, may be an empty string (ie "")

-                                    or a NULL pointer *)

-       text_length : png_size_t; (* length of the text string *)

-    end;

-  ppng_text = ^png_text;

-  pppng_text = ^ppng_text;

-  png_text_struct = png_text;

-  png_textp = Ppng_text;

-  ppng_textp = ^png_textp;

-  png_textpp = PPpng_text;

-   

-  (* png_time is a way to hold the time in an machine independent way.

-   * Two conversions are provided, both from time_t and struct tm.  There

-   * is no portable way to convert to either of these structures, as far

-   * as I know.  If you know of a portable way, send it to me.  As a side

-   * note - PNG has always been Year 2000 compliant!

-   *)

-  png_time = record

-       year : png_uint_16; (* full year, as in, 1995 *)

-       month : png_byte;   (* month of year, 1 - 12 *)

-       day : png_byte;     (* day of month, 1 - 31 *)

-       hour : png_byte;    (* hour of day, 0 - 23 *)

-       minute : png_byte;  (* minute of hour, 0 - 59 *)

-       second : png_byte;  (* second of minute, 0 - 60 (for leap seconds) *)

-    end;

-  ppng_time = ^png_time;

-  pppng_time = ^ppng_time;

-  png_time_struct = png_time;

-  png_timep = Ppng_time;

-  PPNG_TIMEP = ^PNG_TIMEP;

-  png_timepp = PPpng_time;

-

-const

-  PNG_CHUNK_NAME_LENGTH = 5; 

-type

-  (* png_unknown_chunk is a structure to hold queued chunks for which there is

-   * no specific support.  The idea is that we can use this to queue

-   * up private chunks for output even though the library doesn't actually

-   * know about their semantics.

-   *)

-  png_unknown_chunk = record

-       name : array[0..PNG_CHUNK_NAME_LENGTH-1] of png_byte;

-       data : Ppng_byte;

-       size : png_size_t;

-       

-       (* libpng-using applications should NOT directly modify this byte. *)

-       location : png_byte; (* mode of operation at read time *)

-    end;

-  ppng_unknown_chunk = ^png_unknown_chunk;

-  pppng_unknown_chunk = ^ppng_unknown_chunk;

-  png_unknown_chunk_t = png_unknown_chunk;

-  png_unknown_chunkp = Ppng_unknown_chunk;

-  png_unknown_chunkpp = PPpng_unknown_chunk;

-   

-  (* png_info is a structure that holds the information in a PNG file so

-   * that the application can find out the characteristics of the image.

-   * If you are reading the file, this structure will tell you what is

-   * in the PNG file.  If you are writing the file, fill in the information

-   * you want to put into the PNG file, then call png_write_info().

-   * The names chosen should be very close to the PNG specification, so

-   * consult that document for information about the meaning of each field.

-   *

-   * With libpng < 0.95, it was only possible to directly set and read the

-   * the values in the png_info_struct, which meant that the contents and

-   * order of the values had to remain fixed.  With libpng 0.95 and later,

-   * however, there are now functions that abstract the contents of

-   * png_info_struct from the application, so this makes it easier to use

-   * libpng with dynamic libraries, and even makes it possible to use

-   * libraries that don't have all of the libpng ancillary chunk-handing

-   * functionality.

-   *

-   * In any case, the order of the parameters in png_info_struct should NOT

-   * be changed for as long as possible to keep compatibility with applications

-   * that use the old direct-access method with png_info_struct.

-   *

-   * The following members may have allocated storage attached that should be

-   * cleaned up before the structure is discarded: palette, trans, text,

-   * pcal_purpose, pcal_units, pcal_params, hist, iccp_name, iccp_profile,

-   * splt_palettes, scal_unit, row_pointers, and unknowns.   By default, these

-   * are automatically freed when the info structure is deallocated, if they were

-   * allocated internally by libpng.  This behavior can be changed by means

-   * of the png_data_freer() function.

-   *

-   * More allocation details: all the chunk-reading functions that

-   * change these members go through the corresponding png_set_*

-   * functions.  A function to clear these members is available: see

-   * png_free_data().  The png_set_* functions do not depend on being

-   * able to point info structure members to any of the storage they are

-   * passed (they make their own copies), EXCEPT that the png_set_text

-   * functions use the same storage passed to them in the text_ptr or

-   * itxt_ptr structure argument, and the png_set_rows and png_set_unknowns

-   * functions do not make their own copies.

-   *)

-  png_info = record

-       width : png_uint_32;       (* width of image in pixels (from IHDR) *)

-       height : png_uint_32;      (* height of image in pixels (from IHDR) *)

-       valid : png_uint_32;       (* valid chunk data (see PNG_INFO_ below) *)

-       rowbytes : png_uint_32;    (* bytes needed to hold an untransformed row *)

-       palette : png_colorp;      (* array of color values (valid & PNG_INFO_PLTE) *)

-       num_palette : png_uint_16; (* number of color entries in "palette" (PLTE) *)

-       num_trans : png_uint_16;   (* number of transparent palette color (tRNS) *)

-       bit_depth : png_byte;      (* 1, 2, 4, 8, or 16 bits/channel (from IHDR) *)

-       color_type : png_byte;     (* see PNG_COLOR_TYPE_ below (from IHDR) *)

-       (* The following three should have been named *_method not *_type *)

-       compression_type : png_byte; (* must be PNG_COMPRESSION_TYPE_BASE (IHDR) *)

-       filter_type : png_byte;    (* must be PNG_FILTER_TYPE_BASE (from IHDR) *)

-       interlace_type : png_byte; (* One of PNG_INTERLACE_NONE, PNG_INTERLACE_ADAM7 *)

-

-       (* The following is informational only on read, and not used on writes. *)

-       channels : png_byte;       (* number of data channels per pixel (1, 2, 3, 4) *)

-       pixel_depth : png_byte;    (* number of bits per pixel *)

-       spare_byte : png_byte;     (* to align the data, and for future use *)

-       signature : array[0..7] of png_byte; (* magic bytes read by libpng from start of file *)

-

-       (* The rest of the data is optional.  If you are reading, check the

-        * valid field to see if the information in these are valid.  If you

-        * are writing, set the valid field to those chunks you want written,

-        * and initialize the appropriate fields below.

-        *)

-        

-       gamma : single;

-       srgb_intent : png_byte;

-       num_text : integer;

-       max_text : integer;

-       text : png_textp;

-       mod_time : png_time;

-       sig_bit : png_color_8;

-       trans : png_bytep;

-       trans_values : png_color_16;

-       background : png_color_16;

-       x_offset : png_int_32;

-       y_offset : png_int_32;

-       offset_unit_type : png_byte;

-       x_pixels_per_unit : png_uint_32;

-       y_pixels_per_unit : png_uint_32;

-       phys_unit_type : png_byte;

-       hist : png_uint_16p;

-       x_white : single;

-       y_white : single;

-       x_red : single;

-       y_red : single;

-       x_green : single;

-       y_green : single;

-       x_blue : single;

-       y_blue : single;

-       pcal_purpose : png_charp;

-       pcal_X0 : png_int_32;

-       pcal_X1 : png_int_32;

-       pcal_units : png_charp;

-       pcal_params : png_charpp;

-       pcal_type : png_byte;

-       pcal_nparams : png_byte;

-       free_me : png_uint_32;

-       unknown_chunks : png_unknown_chunkp;

-       unknown_chunks_num : png_size_t;

-       iccp_name : png_charp;

-       iccp_profile : png_charp;

-       iccp_proflen : png_uint_32;

-       iccp_compression : png_byte;

-       splt_palettes : png_sPLT_tp;

-       splt_palettes_num : png_uint_32;

-       scal_unit : png_byte;

-       scal_pixel_width : double;

-       scal_pixel_height : double;

-       scal_s_width : png_charp;

-       scal_s_height : png_charp;

-       row_pointers : png_bytepp;

-       int_gamma : png_fixed_point;

-       int_x_white : png_fixed_point;

-       int_y_white : png_fixed_point;

-       int_x_red : png_fixed_point;

-       int_y_red : png_fixed_point;

-       int_x_green : png_fixed_point;

-       int_y_green : png_fixed_point;

-       int_x_blue : png_fixed_point;

-       int_y_blue : png_fixed_point;

-    end;

-  ppng_info = ^png_info;

-  pppng_info = ^ppng_info;

-  png_info_struct = png_info;

-  png_infop = Ppng_info;

-  png_infopp = PPpng_info;

-  

-  (* This is used for the transformation routines, as some of them

-   * change these values for the row.  It also should enable using

-   * the routines for other purposes.

-   *)

-  png_row_info = record

-       width : png_uint_32;    (* width of row *)

-       rowbytes : png_uint_32; (* number of bytes in row *)

-       color_type : png_byte;  (* color type of row *)

-       bit_depth : png_byte;   (* bit depth of row *)

-       channels : png_byte;    (* number of channels (1, 2, 3, or 4) *)

-       pixel_depth : png_byte; (* bits per pixel (depth * channels) *)

-    end;

-  ppng_row_info = ^png_row_info;

-  pppng_row_info = ^ppng_row_info;

-  png_row_info_struct = png_row_info;

-  png_row_infop = Ppng_row_info;

-  png_row_infopp = PPpng_row_info;

-  png_structp = ^png_struct;

-

-

-  (* These are the function types for the I/O functions and for the functions

-   * that allow the user to override the default I/O functions with his or her

-   * own.  The png_error_ptr type should match that of user-supplied warning

-   * and error functions, while the png_rw_ptr type should match that of the

-   * user read/write data functions.

-   *)

-  png_error_ptr = procedure(Arg1 : png_structp; Arg2 : png_const_charp);cdecl;

-  png_rw_ptr = procedure(Arg1 : png_structp; Arg2 : png_bytep; Arg3 : png_size_t);cdecl;

-  png_flush_ptr = procedure (Arg1 : png_structp) ;cdecl;

-  png_read_status_ptr = procedure (Arg1 : png_structp; Arg2 : png_uint_32; Arg3: integer);cdecl;

-  png_write_status_ptr = procedure (Arg1 : png_structp; Arg2:png_uint_32;Arg3 : integer) ;cdecl;

-  png_progressive_info_ptr = procedure (Arg1 : png_structp; Arg2 : png_infop) ;cdecl;

-  png_progressive_end_ptr = procedure (Arg1 : png_structp; Arg2 : png_infop) ;cdecl;

-  png_progressive_row_ptr = procedure (Arg1 : png_structp; Arg2 : png_bytep; Arg3 : png_uint_32; Arg4 : integer) ;cdecl;

-  png_user_transform_ptr = procedure (Arg1 : png_structp; Arg2 : png_row_infop; Arg3 : png_bytep) ;cdecl;

-  png_user_chunk_ptr = function (Arg1 : png_structp; Arg2 : png_unknown_chunkp): integer;cdecl;

-  png_unknown_chunk_ptr = procedure (Arg1 : png_structp);cdecl;

-  png_malloc_ptr = function (Arg1 : png_structp; Arg2 : png_size_t) : png_voidp ;cdecl;

-  png_free_ptr = procedure (Arg1 : png_structp; Arg2 : png_voidp) ; cdecl;

-

-  png_struct_def = record

-        {$ifdef UsePngStruct}

-        jmpbuf : jmp_buf;            (* used in png_error *)

-        error_fn : png_error_ptr;    (* function for printing errors and aborting *)

-        warning_fn : png_error_ptr;  (* function for printing warnings *)

-        error_ptr : png_voidp;       (* user supplied struct for error functions *)

-        write_data_fn : png_rw_ptr;  (* function for writing output data *)

-        read_data_fn : png_rw_ptr;   (* function for reading input data *)

-        io_ptr : png_voidp;          (* ptr to application struct for I/O functions *)

-

-        read_user_transform_fn : png_user_transform_ptr;  (* user read transform *)

-

-        write_user_transform_fn : png_user_transform_ptr; (* user write transform *)

-

-        (* These were added in libpng-1.0.2 *)

-        user_transform_ptr : png_voidp; (* user supplied struct for user transform *)

-        user_transform_depth : png_byte;    (* bit depth of user transformed pixels *)

-        user_transform_channels : png_byte; (* channels in user transformed pixels *)

-

-        mode : png_uint_32;          (* tells us where we are in the PNG file *)

-        flags : png_uint_32;         (* flags indicating various things to libpng *)

-        transformations : png_uint_32; (* which transformations to perform *)

-

-        zstream : z_stream;          (* pointer to decompression structure (below) *)

-        zbuf : png_bytep;            (* buffer for zlib *)

-        zbuf_size : png_size_t;      (* size of zbuf *)

-        zlib_level : integer;        (* holds zlib compression level *)

-        zlib_method : integer;       (* holds zlib compression method *)

-        zlib_window_bits : integer;  (* holds zlib compression window bits *)

-        zlib_mem_level : integer;    (* holds zlib compression memory level *)

-        zlib_strategy : integer;     (* holds zlib compression strategy *)

-

-        width : png_uint_32;         (* width of image in pixels *)

-        height : png_uint_32;        (* height of image in pixels *)

-        num_rows : png_uint_32;      (* number of rows in current pass *)

-        usr_width : png_uint_32;     (* width of row at start of write *)

-        rowbytes : png_uint_32;      (* size of row in bytes *)

-        irowbytes : png_uint_32;     (* size of current interlaced row in bytes *)

-        iwidth : png_uint_32;        (* width of current interlaced row in pixels *)

-        row_number : png_uint_32;    (* current row in interlace pass *)

-        prev_row : png_bytep;        (* buffer to save previous (unfiltered) row *)

-        row_buf : png_bytep;         (* buffer to save current (unfiltered) row *)

-        sub_row : png_bytep;         (* buffer to save "sub" row when filtering *)

-        up_row : png_bytep;          (* buffer to save "up" row when filtering *)

-        avg_row : png_bytep;         (* buffer to save "avg" row when filtering *)

-        paeth_row : png_bytep;       (* buffer to save "Paeth" row when filtering *)

-        row_info : png_row_info;     (* used for transformation routines *)

-        

-        idat_size : png_uint_32;     (* current IDAT size for read *)

-        crc : png_uint_32;           (* current chunk CRC value *)

-        palette : png_colorp;        (* palette from the input file *)

-        num_palette : png_uint_16;   (* number of color entries in palette *)

-        num_trans : png_uint_16;     (* number of transparency values *)

-        chunk_name : array[0..4] of png_byte; (* null-terminated name of current chunk *)

-        compression : png_byte;      (* file compression type (always 0) *)

-        filter : png_byte;           (* file filter type (always 0) *)

-        interlaced : png_byte;       (* PNG_INTERLACE_NONE, PNG_INTERLACE_ADAM7 *)

-        pass : png_byte;             (* current interlace pass (0 - 6) *)

-        do_filter : png_byte;        (* row filter flags (see PNG_FILTER_ below ) *)

-        color_type : png_byte;       (* color type of file *)

-        bit_depth : png_byte;        (* bit depth of file *)

-        usr_bit_depth : png_byte;    (* bit depth of users row *)

-        pixel_depth : png_byte;      (* number of bits per pixel *)

-        channels : png_byte;         (* number of channels in file *)

-        usr_channels : png_byte;     (* channels at start of write *)

-        sig_bytes : png_byte;        (* magic bytes read/written from start of file *)

-

-        filler : png_uint_16;

-

-        background_gamma_type : png_byte;

-        background_gamma : single;

-        background : png_color_16;

-        background_1 : png_color_16;

-        output_flush_fn : png_flush_ptr;

-        flush_dist : png_uint_32;

-        flush_rows : png_uint_32;

-        gamma_shift : integer;

-        gamma : single;

-        screen_gamma : single;

-        gamma_table : png_bytep;

-        gamma_from_1 : png_bytep;

-        gamma_to_1 : png_bytep;

-        gamma_16_table : png_uint_16pp;

-        gamma_16_from_1 : png_uint_16pp;

-        gamma_16_to_1 : png_uint_16pp;

-        sig_bit : png_color_8;

-        shift : png_color_8;

-        trans : png_bytep;

-        trans_values : png_color_16;

-        read_row_fn : png_read_status_ptr;

-        write_row_fn : png_write_status_ptr;

-        info_fn : png_progressive_info_ptr;

-        row_fn : png_progressive_row_ptr;

-        end_fn : png_progressive_end_ptr;

-        save_buffer_ptr : png_bytep;

-        save_buffer : png_bytep;

-        current_buffer_ptr : png_bytep;

-        current_buffer : png_bytep;

-        push_length : png_uint_32;

-        skip_length : png_uint_32;

-        save_buffer_size : png_size_t;

-        save_buffer_max : png_size_t;

-        buffer_size : png_size_t;

-        current_buffer_size : png_size_t;

-        process_mode : integer;

-        cur_palette : integer;

-        current_text_size : png_size_t;

-        current_text_left : png_size_t;

-        current_text : png_charp;

-        current_text_ptr : png_charp;

-        palette_lookup : png_bytep;

-        dither_index : png_bytep;

-        hist : png_uint_16p;

-        heuristic_method : png_byte;

-        num_prev_filters : png_byte;

-        prev_filters : png_bytep;

-        filter_weights : png_uint_16p;

-        inv_filter_weights : png_uint_16p;

-        filter_costs : png_uint_16p;

-        inv_filter_costs : png_uint_16p;

-        time_buffer : png_charp;

-        free_me : png_uint_32;

-        user_chunk_ptr : png_voidp;

-        read_user_chunk_fn : png_user_chunk_ptr;

-        num_chunk_list : integer;

-        chunk_list : png_bytep;

-        rgb_to_gray_status : png_byte;

-        rgb_to_gray_red_coeff : png_uint_16;

-        rgb_to_gray_green_coeff : png_uint_16;

-        rgb_to_gray_blue_coeff : png_uint_16;

-        empty_plte_permitted : png_byte;

-        int_gamma : png_fixed_point;

-        {$endif UsePngStruct}

-     end;

-   ppng_struct_def = ^png_struct_def;

-   pppng_struct_def = ^ppng_struct_def;

-   png_struct = png_struct_def;

-   ppng_struct = ^png_struct;

-   pppng_struct = ^ppng_struct;

-

-   version_1_0_8 = png_structp;

-   png_structpp = PPpng_struct;

-

-function png_access_version_number:png_uint_32;cdecl; external LibPng;

-

-procedure png_set_sig_bytes(png_ptr:png_structp; num_bytes:integer);cdecl; external LibPng;

-function png_sig_cmp(sig:png_bytep; start:png_size_t; num_to_check:png_size_t):integer;cdecl; external LibPng;

-function png_check_sig(sig:png_bytep; num:integer):integer;cdecl; external LibPng;

-

-(* Allocate and initialize png_ptr struct for reading, and any other memory. *)

-function png_create_read_struct(user_png_ver:png_const_charp; error_ptr:png_voidp; error_fn:png_error_ptr; warn_fn:png_error_ptr):png_structp;cdecl; external LibPng;

-

-(* Allocate and initialize png_ptr struct for writing, and any other memory *)

-function png_create_write_struct(user_png_ver:png_const_charp; error_ptr:png_voidp; error_fn:png_error_ptr; warn_fn:png_error_ptr):png_structp;cdecl; external LibPng;

-

-function png_get_compression_buffer_size(png_ptr:png_structp):png_uint_32;cdecl; external LibPng;

-procedure png_set_compression_buffer_size(png_ptr:png_structp; size:png_uint_32);cdecl; external LibPng;

-function png_reset_zstream(png_ptr:png_structp):integer;cdecl; external LibPng;

-

-procedure png_write_chunk(png_ptr:png_structp; chunk_name:png_bytep; data:png_bytep; length:png_size_t);cdecl; external LibPng;

-procedure png_write_chunk_start(png_ptr:png_structp; chunk_name:png_bytep; length:png_uint_32);cdecl; external LibPng;

-procedure png_write_chunk_data(png_ptr:png_structp; data:png_bytep; length:png_size_t);cdecl; external LibPng;

-procedure png_write_chunk_end(png_ptr:png_structp);cdecl; external LibPng;

-

-(* Allocate and initialize the info structure *)

-function png_create_info_struct(png_ptr:png_structp):png_infop;cdecl; external LibPng;

-

-(* Initialize the info structure (old interface - DEPRECATED) *)

-procedure png_info_init(info_ptr:png_infop);cdecl; external LibPng;

-

-(* Writes all the PNG information before the image. *)

-procedure png_write_info_before_PLTE(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;

-procedure png_write_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;

-

-(* read the information before the actual image data. *)

-procedure png_read_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;

-

-function png_convert_to_rfc1123(png_ptr:png_structp; ptime:png_timep):png_charp;cdecl; external LibPng;

-procedure png_convert_from_struct_tm(ptime:png_timep; ttime:Pointer);cdecl; external LibPng;

-{$IFDEF UNIX}

-procedure png_convert_from_time_t(ptime:png_timep; ttime:time_t);cdecl; external LibPng;

-{$ENDIF}

-procedure png_set_expand(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_gray_1_2_4_to_8(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_palette_to_rgb(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_tRNS_to_alpha(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_bgr(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_gray_to_rgb(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_rgb_to_gray(png_ptr:png_structp; error_action:integer; red:double; green:double);cdecl; external LibPng;

-procedure png_set_rgb_to_gray_fixed(png_ptr:png_structp; error_action:integer; red:png_fixed_point; green:png_fixed_point);cdecl; external LibPng;

-function png_get_rgb_to_gray_status(png_ptr:png_structp):png_byte;cdecl; external LibPng;

-procedure png_build_grayscale_palette(bit_depth:integer; palette:png_colorp);cdecl; external LibPng;

-procedure png_set_strip_alpha(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_swap_alpha(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_invert_alpha(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_filler(png_ptr:png_structp; filler:png_uint_32; flags:integer);cdecl; external LibPng;

-procedure png_set_swap(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_packing(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_packswap(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_shift(png_ptr:png_structp; true_bits:png_color_8p);cdecl; external LibPng;

-function png_set_interlace_handling(png_ptr:png_structp):integer;cdecl; external LibPng;

-procedure png_set_invert_mono(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_background(png_ptr:png_structp; background_color:png_color_16p; background_gamma_code:integer; need_expand:integer; background_gamma:double);cdecl; external LibPng;

-procedure png_set_strip_16(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_set_dither(png_ptr:png_structp; palette:png_colorp; num_palette:integer; maximum_colors:integer; histogram:png_uint_16p;

-            full_dither:integer);cdecl; external LibPng;

-procedure png_set_gamma(png_ptr:png_structp; screen_gamma:double; default_file_gamma:double);cdecl; external LibPng;

-procedure png_permit_empty_plte(png_ptr:png_structp; empty_plte_permitted:integer);cdecl; external LibPng;

-procedure png_set_flush(png_ptr:png_structp; nrows:integer);cdecl; external LibPng;

-procedure png_write_flush(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_start_read_image(png_ptr:png_structp);cdecl; external LibPng;

-procedure png_read_update_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;

-

-(* read one or more rows of image data. *)

-procedure png_read_rows(png_ptr:png_structp; row:png_bytepp; display_row:png_bytepp; num_rows:png_uint_32);cdecl; external LibPng;

-

-(* read a row of data. *)

-procedure png_read_row(png_ptr:png_structp; row:png_bytep; display_row:png_bytep);cdecl; external LibPng;

-

-(* read the whole image into memory at once. *)

-procedure png_read_image(png_ptr:png_structp; image:png_bytepp);cdecl; external LibPng;

-

-(* write a row of image data *)

-procedure png_write_row(png_ptr:png_structp; row:png_bytep);cdecl; external LibPng;

-

-(* write a few rows of image data *)

-procedure png_write_rows(png_ptr:png_structp; row:png_bytepp; num_rows:png_uint_32);cdecl; external LibPng;

-

-(* write the image data *)

-procedure png_write_image(png_ptr:png_structp; image:png_bytepp);cdecl; external LibPng;

-

-(* writes the end of the PNG file. *)

-procedure png_write_end(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;

-

-(* read the end of the PNG file. *)

-procedure png_read_end(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;

-

-(* free any memory associated with the png_info_struct *)

-procedure png_destroy_info_struct(png_ptr:png_structp; info_ptr_ptr:png_infopp);cdecl; external LibPng;

-

-(* free any memory associated with the png_struct and the png_info_structs *)

-procedure png_destroy_read_struct(png_ptr_ptr:png_structpp; info_ptr_ptr:png_infopp; end_info_ptr_ptr:png_infopp);cdecl; external LibPng;

-

-(* free all memory used by the read (old method - NOT DLL EXPORTED) *)

-procedure png_read_destroy(png_ptr:png_structp; info_ptr:png_infop; end_info_ptr:png_infop);cdecl; external LibPng;

-

-(* free any memory associated with the png_struct and the png_info_structs *)

-procedure png_destroy_write_struct(png_ptr_ptr:png_structpp; info_ptr_ptr:png_infopp);cdecl; external LibPng;

-

-procedure png_write_destroy_info(info_ptr:png_infop);cdecl; external LibPng;

-procedure png_write_destroy(png_ptr:png_structp);cdecl; external LibPng;

-

-procedure png_set_crc_action(png_ptr:png_structp; crit_action:integer; ancil_action:integer);cdecl; external LibPng;

-

-procedure png_set_filter(png_ptr:png_structp; method:integer; filters:integer);cdecl; external LibPng;

-procedure png_set_filter_heuristics(png_ptr:png_structp; heuristic_method:integer; num_weights:integer; filter_weights:png_doublep; filter_costs:png_doublep);cdecl; external LibPng;

-

-procedure png_set_compression_level(png_ptr:png_structp; level:integer);cdecl; external LibPng;

-procedure png_set_compression_mem_level(png_ptr:png_structp; mem_level:integer);cdecl; external LibPng;

-procedure png_set_compression_strategy(png_ptr:png_structp; strategy:integer);cdecl; external LibPng;

-procedure png_set_compression_window_bits(png_ptr:png_structp; window_bits:integer);cdecl; external LibPng;

-procedure png_set_compression_method(png_ptr:png_structp; method:integer);cdecl; external LibPng;

-

-procedure png_init_io(png_ptr:png_structp; fp:png_FILE_p);cdecl; external LibPng;

-

-(* Replace the (error and abort), and warning functions with user

- * supplied functions.  If no messages are to be printed you must still

- * write and use replacement functions. The replacement error_fn should

- * still do a longjmp to the last setjmp location if you are using this

- * method of error handling.  If error_fn or warning_fn is NULL, the

- * default function will be used.

- *)

-procedure png_set_error_fn(png_ptr:png_structp; error_ptr:png_voidp; error_fn:png_error_ptr; warning_fn:png_error_ptr);cdecl; external LibPng;

-

-(* Return the user pointer associated with the error functions *)

-function png_get_error_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;

-

-(* Replace the default data output functions with a user supplied one(s).

- * If buffered output is not used, then output_flush_fn can be set to NULL.

- * If PNG_WRITE_FLUSH_SUPPORTED is not defined at libpng compile time

- * output_flush_fn will be ignored (and thus can be NULL).

- *)

-procedure png_set_write_fn(png_ptr:png_structp; io_ptr:png_voidp; write_data_fn:png_rw_ptr; output_flush_fn:png_flush_ptr);cdecl; external LibPng;

-

-(* Replace the default data input function with a user supplied one. *)

-procedure png_set_read_fn(png_ptr:png_structp; io_ptr:png_voidp; read_data_fn:png_rw_ptr);cdecl; external LibPng;

-

-(* Return the user pointer associated with the I/O functions *)

-function png_get_io_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;

-

-procedure png_set_read_status_fn(png_ptr:png_structp; read_row_fn:png_read_status_ptr);cdecl; external LibPng;

-procedure png_set_write_status_fn(png_ptr:png_structp; write_row_fn:png_write_status_ptr);cdecl; external LibPng;

-procedure png_set_read_user_transform_fn(png_ptr:png_structp; read_user_transform_fn:png_user_transform_ptr);cdecl; external LibPng;

-procedure png_set_write_user_transform_fn(png_ptr:png_structp; write_user_transform_fn:png_user_transform_ptr);cdecl; external LibPng;

-procedure png_set_user_transform_info(png_ptr:png_structp; user_transform_ptr:png_voidp; user_transform_depth:integer; user_transform_channels:integer);cdecl; external LibPng;

-function png_get_user_transform_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;

-procedure png_set_read_user_chunk_fn(png_ptr:png_structp; user_chunk_ptr:png_voidp; read_user_chunk_fn:png_user_chunk_ptr);cdecl; external LibPng;

-function png_get_user_chunk_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;

-procedure png_set_progressive_read_fn(png_ptr:png_structp; progressive_ptr:png_voidp; info_fn:png_progressive_info_ptr; row_fn:png_progressive_row_ptr; end_fn:png_progressive_end_ptr);cdecl; external LibPng;

-function png_get_progressive_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;

-procedure png_process_data(png_ptr:png_structp; info_ptr:png_infop; buffer:png_bytep; buffer_size:png_size_t);cdecl; external LibPng;

-procedure png_progressive_combine_row(png_ptr:png_structp; old_row:png_bytep; new_row:png_bytep);cdecl; external LibPng;

-function png_malloc(png_ptr:png_structp; size:png_uint_32):png_voidp;cdecl; external LibPng;

-procedure png_free(png_ptr:png_structp; ptr:png_voidp);cdecl; external LibPng;

-procedure png_free_data(png_ptr:png_structp; info_ptr:png_infop; free_me:png_uint_32; num:integer);cdecl; external LibPng;

-procedure png_data_freer(png_ptr:png_structp; info_ptr:png_infop; freer:integer; mask:png_uint_32);cdecl; external LibPng;

-function png_memcpy_check(png_ptr:png_structp; s1:png_voidp; s2:png_voidp; size:png_uint_32):png_voidp;cdecl; external LibPng;

-function png_memset_check(png_ptr:png_structp; s1:png_voidp; value:integer; size:png_uint_32):png_voidp;cdecl; external LibPng;

-procedure png_error(png_ptr:png_structp; error:png_const_charp);cdecl; external LibPng;

-procedure png_chunk_error(png_ptr:png_structp; error:png_const_charp);cdecl; external LibPng;

-procedure png_warning(png_ptr:png_structp; message:png_const_charp);cdecl; external LibPng;

-procedure png_chunk_warning(png_ptr:png_structp; message:png_const_charp);cdecl; external LibPng;

-function png_get_valid(png_ptr:png_structp; info_ptr:png_infop; flag:png_uint_32):png_uint_32;cdecl; external LibPng;

-function png_get_rowbytes(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;

-function png_get_rows(png_ptr:png_structp; info_ptr:png_infop):png_bytepp;cdecl; external LibPng;

-procedure png_set_rows(png_ptr:png_structp; info_ptr:png_infop; row_pointers:png_bytepp);cdecl; external LibPng;

-function png_get_channels(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;

-function png_get_image_width(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;

-function png_get_image_height(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;

-function png_get_bit_depth(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;

-function png_get_color_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;

-function png_get_filter_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;

-function png_get_interlace_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;

-function png_get_compression_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;

-function png_get_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;

-function png_get_x_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;

-function png_get_y_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;

-function png_get_pixel_aspect_ratio(png_ptr:png_structp; info_ptr:png_infop):single;cdecl; external LibPng;

-function png_get_x_offset_pixels(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng;

-function png_get_y_offset_pixels(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng;

-function png_get_x_offset_microns(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng;

-function png_get_y_offset_microns(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng;

-function png_get_signature(png_ptr:png_structp; info_ptr:png_infop):png_bytep;cdecl; external LibPng;

-

-function png_get_bKGD(png_ptr:png_structp; info_ptr:png_infop; background:Ppng_color_16p):png_uint_32;cdecl; external LibPng;

-procedure png_set_bKGD(png_ptr:png_structp; info_ptr:png_infop; background:png_color_16p);cdecl; external LibPng;

-function png_get_cHRM(png_ptr:png_structp; info_ptr:png_infop; white_x:Pdouble; white_y:Pdouble; red_x:Pdouble;

-           red_y:Pdouble; green_x:Pdouble; green_y:Pdouble; blue_x:Pdouble; blue_y:Pdouble):png_uint_32;cdecl; external LibPng;

-function png_get_cHRM_fixed(png_ptr:png_structp; info_ptr:png_infop; int_white_x:Ppng_fixed_point; int_white_y:Ppng_fixed_point; int_red_x:Ppng_fixed_point;

-           int_red_y:Ppng_fixed_point; int_green_x:Ppng_fixed_point; int_green_y:Ppng_fixed_point; int_blue_x:Ppng_fixed_point; int_blue_y:Ppng_fixed_point):png_uint_32;cdecl; external LibPng;

-procedure png_set_cHRM(png_ptr:png_structp; info_ptr:png_infop; white_x:double; white_y:double; red_x:double;

-            red_y:double; green_x:double; green_y:double; blue_x:double; blue_y:double);cdecl; external LibPng;

-procedure png_set_cHRM_fixed(png_ptr:png_structp; info_ptr:png_infop; int_white_x:png_fixed_point; int_white_y:png_fixed_point; int_red_x:png_fixed_point;

-            int_red_y:png_fixed_point; int_green_x:png_fixed_point; int_green_y:png_fixed_point; int_blue_x:png_fixed_point; int_blue_y:png_fixed_point);cdecl; external LibPng;

-function png_get_gAMA(png_ptr:png_structp; info_ptr:png_infop; file_gamma:Pdouble):png_uint_32;cdecl; external LibPng;

-function png_get_gAMA_fixed(png_ptr:png_structp; info_ptr:png_infop; int_file_gamma:Ppng_fixed_point):png_uint_32;cdecl; external LibPng;

-procedure png_set_gAMA(png_ptr:png_structp; info_ptr:png_infop; file_gamma:double);cdecl; external LibPng;

-procedure png_set_gAMA_fixed(png_ptr:png_structp; info_ptr:png_infop; int_file_gamma:png_fixed_point);cdecl; external LibPng;

-function png_get_hIST(png_ptr:png_structp; info_ptr:png_infop; hist:Ppng_uint_16p):png_uint_32;cdecl; external LibPng;

-procedure png_set_hIST(png_ptr:png_structp; info_ptr:png_infop; hist:png_uint_16p);cdecl; external LibPng;

-function png_get_IHDR(png_ptr:png_structp; info_ptr:png_infop; width:Ppng_uint_32; height:Ppng_uint_32; bit_depth:Pinteger;

-           color_type:Pinteger; interlace_type:Pinteger; compression_type:Pinteger; filter_type:Pinteger):png_uint_32;cdecl; external LibPng;

-procedure png_set_IHDR(png_ptr:png_structp; info_ptr:png_infop; width:png_uint_32; height:png_uint_32; bit_depth:integer;

-            color_type:integer; interlace_type:integer; compression_type:integer; filter_type:integer);cdecl; external LibPng;

-function png_get_oFFs(png_ptr:png_structp; info_ptr:png_infop; offset_x:Ppng_int_32; offset_y:Ppng_int_32; unit_type:Pinteger):png_uint_32;cdecl; external LibPng;

-procedure png_set_oFFs(png_ptr:png_structp; info_ptr:png_infop; offset_x:png_int_32; offset_y:png_int_32; unit_type:integer);cdecl; external LibPng;

-function png_get_pCAL(png_ptr:png_structp; info_ptr:png_infop; purpose:Ppng_charp; X0:Ppng_int_32; X1:Ppng_int_32;

-           atype:Pinteger; nparams:Pinteger; units:Ppng_charp; params:Ppng_charpp):png_uint_32;cdecl; external LibPng;

-procedure png_set_pCAL(png_ptr:png_structp; info_ptr:png_infop; purpose:png_charp; X0:png_int_32; X1:png_int_32;

-            atype:integer; nparams:integer; units:png_charp; params:png_charpp);cdecl; external LibPng;

-function png_get_pHYs(png_ptr:png_structp; info_ptr:png_infop; res_x:Ppng_uint_32; res_y:Ppng_uint_32; unit_type:Pinteger):png_uint_32;cdecl; external LibPng;

-procedure png_set_pHYs(png_ptr:png_structp; info_ptr:png_infop; res_x:png_uint_32; res_y:png_uint_32; unit_type:integer);cdecl; external LibPng;

-function png_get_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:Ppng_colorp; num_palette:Pinteger):png_uint_32;cdecl; external LibPng;

-procedure png_set_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:png_colorp; num_palette:integer);cdecl; external LibPng;

-function png_get_sBIT(png_ptr:png_structp; info_ptr:png_infop; sig_bit:Ppng_color_8p):png_uint_32;cdecl; external LibPng;

-procedure png_set_sBIT(png_ptr:png_structp; info_ptr:png_infop; sig_bit:png_color_8p);cdecl; external LibPng;

-function png_get_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:Pinteger):png_uint_32;cdecl; external LibPng;

-procedure png_set_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:integer);cdecl; external LibPng;

-procedure png_set_sRGB_gAMA_and_cHRM(png_ptr:png_structp; info_ptr:png_infop; intent:integer);cdecl; external LibPng;

-function png_get_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charpp; compression_type:Pinteger; profile:png_charpp;

-           proflen:Ppng_uint_32):png_uint_32;cdecl; external LibPng;

-procedure png_set_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charp; compression_type:integer; profile:png_charp;

-            proflen:png_uint_32);cdecl; external LibPng;

-function png_get_sPLT(png_ptr:png_structp; info_ptr:png_infop; entries:png_sPLT_tpp):png_uint_32;cdecl; external LibPng;

-procedure png_set_sPLT(png_ptr:png_structp; info_ptr:png_infop; entries:png_sPLT_tp; nentries:integer);cdecl; external LibPng;

-

-(* png_get_text also returns the number of text chunks in *num_text *)

-function png_get_text(png_ptr:png_structp; info_ptr:png_infop; text_ptr:Ppng_textp; num_text:Pinteger):png_uint_32;cdecl; external LibPng;

-

-(*

- *  Note while png_set_text() will accept a structure whose text,

- *  language, and  translated keywords are NULL pointers, the structure

- *  returned by png_get_text will always contain regular

- *  zero-terminated C strings.  They might be empty strings but

- *  they will never be NULL pointers.

- *)

-procedure png_set_text(png_ptr:png_structp; info_ptr:png_infop; text_ptr:png_textp; num_text:integer);cdecl; external LibPng;

-

-function png_get_tIME(png_ptr:png_structp; info_ptr:png_infop; mod_time:Ppng_timep):png_uint_32;cdecl; external LibPng;

-procedure png_set_tIME(png_ptr:png_structp; info_ptr:png_infop; mod_time:png_timep);cdecl; external LibPng;

-function png_get_tRNS(png_ptr:png_structp; info_ptr:png_infop; trans:Ppng_bytep; num_trans:Pinteger; trans_values:Ppng_color_16p):png_uint_32;cdecl; external LibPng;

-procedure png_set_tRNS(png_ptr:png_structp; info_ptr:png_infop; trans:png_bytep; num_trans:integer; trans_values:png_color_16p);cdecl; external LibPng;

-function png_get_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:Pinteger; width:Pdouble; height:Pdouble):png_uint_32;cdecl; external LibPng;

-procedure png_set_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:integer; width:double; height:double);cdecl; external LibPng;

-procedure png_set_sCAL_s(png_ptr:png_structp; info_ptr:png_infop; aunit:integer; swidth:png_charp; sheight:png_charp);cdecl; external LibPng;

-

-procedure png_set_keep_unknown_chunks(png_ptr:png_structp; keep:integer; chunk_list:png_bytep; num_chunks:integer);cdecl; external LibPng;

-procedure png_set_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; unknowns:png_unknown_chunkp; num_unknowns:integer);cdecl; external LibPng;

-procedure png_set_unknown_chunk_location(png_ptr:png_structp; info_ptr:png_infop; chunk:integer; location:integer);cdecl; external LibPng;

-function png_get_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; entries:png_unknown_chunkpp):png_uint_32;cdecl; external LibPng;

-

-procedure png_set_invalid(png_ptr:png_structp; info_ptr:png_infop; mask:integer);cdecl; external LibPng;

-

-procedure png_read_png(png_ptr:png_structp; info_ptr:png_infop; transforms:integer; params:png_voidp);cdecl; external LibPng;

-procedure png_write_png(png_ptr:png_structp; info_ptr:png_infop; transforms:integer; params:png_voidp);cdecl; external LibPng;

-

-function png_get_header_ver(png_ptr:png_structp):png_charp;cdecl; external LibPng;

-function png_get_header_version(png_ptr:png_structp):png_charp;cdecl; external LibPng;

-function png_get_libpng_ver(png_ptr:png_structp):png_charp;cdecl; external LibPng;

-

-implementation

-

-end.

+(*
+ * libpng pascal headers
+ * Version: 1.2.12
+ *)
+
+{$IFDEF FPC}
+  {$ifndef NO_SMART_LINK}
+  {$smartlink on}
+  {$endif}
+{$ENDIF}
+unit png;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE DELPHI}
+  {$PACKRECORDS C}
+{$ENDIF}
+
+uses
+  {$IFDEF MSWINDOWS}
+  Windows,
+  {$ENDIF}
+  {$IFDEF UNIX}
+  baseunix,
+  {$ENDIF}
+  zlib;
+
+const
+{$ifdef MSWINDOWS}
+  // use libpng12-0 (Version 1.2.18), delivered wih SDL_Image
+  LibPng = 'libpng12-0'; // 'libpng13';
+  // matching lib version for libpng13.dll, needed for initialization
+  PNG_LIBPNG_VER_STRING='1.2.12';
+  // define the compiler that was used to built the DLL (necessary for jmp_buf)
+  // SDL_Image was compiled with GCC
+  //{$define MSVC_DLL} // MS Visual C++
+  {$define GCC_DLL}  // GCC
+{$else}
+  LibPng = 'png';
+  // matching lib version for libpng, needed for initialization
+  PNG_LIBPNG_VER_STRING='1.2.12';
+{$endif}
+
+
+{$ifdef MSWINDOWS}
+const
+   // JB_LEN (#elements in jmp_buf) depends on the compiler used to compile the DLL
+   //   MSVC++: 16 (x86/AMD64), GCC: 52
+   {$if Defined(MSVC_DLL)}
+   JB_LEN = 16;
+   {$elseif Defined(GCC_DLL)}
+   JB_LEN = 52;
+   {$else}
+   JB_LEN = 0;
+   {$ifend}
+{$endif}
+
+type
+   {$IFNDEF FPC}
+   // defines for Delphi
+   size_t = longword;
+   {$ENDIF}
+
+   {$ifdef MSWINDOWS}
+     {$if JB_LEN > 0}
+     jmp_buf = array[0..JB_LEN-1] of integer;
+     // the png_struct cannot be accessed if the size of jmp_buf is unknown
+     {$define UsePngStruct}
+     {$ifend}
+     // Do NOT use time_t on windows! It might be 32 or 64bit, depending on the compiler and system.
+     // MSVS-2005 starts using 64bit for time_t on x86 by default, but GCC uses just 32bit.
+     //time_t = longint;
+   {$endif}
+
+   z_stream = TZStream;
+
+   png_uint_32 = dword;
+   png_int_32 = longint;
+   png_uint_16 = word;
+   png_int_16 = smallint;
+   png_byte = byte;
+   ppng_uint_32 = ^png_uint_32;
+   ppng_int_32 = ^png_int_32;
+   ppng_uint_16 = ^png_uint_16;
+   ppng_int_16 = ^png_int_16;
+   ppng_byte = ^png_byte;
+   pppng_uint_32 = ^ppng_uint_32;
+   pppng_int_32 = ^ppng_int_32;
+   pppng_uint_16 = ^ppng_uint_16;
+   pppng_int_16 = ^ppng_int_16;
+   pppng_byte = ^ppng_byte;
+   png_size_t = size_t;
+   png_fixed_point = png_int_32;
+   ppng_fixed_point = ^png_fixed_point;
+   pppng_fixed_point = ^ppng_fixed_point;
+   png_voidp = pointer;
+   png_bytep = Ppng_byte;
+   ppng_bytep = ^png_bytep;
+   png_uint_32p = Ppng_uint_32;
+   png_int_32p = Ppng_int_32;
+   png_uint_16p = Ppng_uint_16;
+   ppng_uint_16p = ^png_uint_16p;
+   png_int_16p = Ppng_int_16;
+   png_const_charp = {const} Pchar;
+   png_charp = Pchar;
+   ppng_charp = ^png_charp;
+   png_fixed_point_p = Ppng_fixed_point;
+   png_FILE_p = Pointer;
+   png_doublep = Pdouble;
+   png_bytepp = PPpng_byte;
+   png_uint_32pp = PPpng_uint_32;
+   png_int_32pp = PPpng_int_32;
+   png_uint_16pp = PPpng_uint_16;
+   png_int_16pp = PPpng_int_16;
+   png_const_charpp = {const} PPchar;
+   png_charpp = PPchar;
+   ppng_charpp = ^png_charpp;
+   png_fixed_point_pp = PPpng_fixed_point;
+   PPDouble = ^PDouble;
+   png_doublepp = PPdouble;
+   PPPChar = ^PPCHar;
+   png_charppp = PPPchar;
+   Pcharf = Pchar;
+   PPcharf = ^Pcharf;
+   png_zcharp = Pcharf;
+   png_zcharpp = PPcharf;
+   png_zstreamp = Pzstream;
+
+const
+  (* Maximum positive integer used in PNG is (2^31)-1 *)
+  PNG_UINT_31_MAX = (png_uint_32($7fffffff));
+  PNG_UINT_32_MAX = (png_uint_32(-1));
+  PNG_SIZE_MAX    = (png_size_t(-1));
+  {$if defined(PNG_1_0_X) or defined (PNG_1_2_X)}
+  (* PNG_MAX_UINT is deprecated; use PNG_UINT_31_MAX instead. *)
+  PNG_MAX_UINT = PNG_UINT_31_MAX;
+  {$ifend}
+
+  (* These describe the color_type field in png_info. *)
+  (* color type masks *)
+  PNG_COLOR_MASK_PALETTE  = 1;
+  PNG_COLOR_MASK_COLOR    = 2;
+  PNG_COLOR_MASK_ALPHA    = 4;
+
+  (* color types.  Note that not all combinations are legal *)
+  PNG_COLOR_TYPE_GRAY = 0;
+  PNG_COLOR_TYPE_PALETTE    = (PNG_COLOR_MASK_COLOR or PNG_COLOR_MASK_PALETTE);
+  PNG_COLOR_TYPE_RGB        = (PNG_COLOR_MASK_COLOR);
+  PNG_COLOR_TYPE_RGB_ALPHA  = (PNG_COLOR_MASK_COLOR or PNG_COLOR_MASK_ALPHA);
+  PNG_COLOR_TYPE_GRAY_ALPHA = (PNG_COLOR_MASK_ALPHA);
+  (* aliases *)
+  PNG_COLOR_TYPE_RGBA = PNG_COLOR_TYPE_RGB_ALPHA;
+  PNG_COLOR_TYPE_GA   = PNG_COLOR_TYPE_GRAY_ALPHA;
+
+  (* This is for compression type. PNG 1.0-1.2 only define the single type. *)
+  PNG_COMPRESSION_TYPE_BASE = 0; (* Deflate method 8, 32K window *)
+  PNG_COMPRESSION_TYPE_DEFAULT = PNG_COMPRESSION_TYPE_BASE;
+
+  (* This is for filter type. PNG 1.0-1.2 only define the single type. *)
+  PNG_FILTER_TYPE_BASE     = 0; (* Single row per-byte filtering *)
+  PNG_INTRAPIXEL_DIFFERENCING = 64; (* Used only in MNG datastreams *)
+  PNG_FILTER_TYPE_DEFAULT  = PNG_FILTER_TYPE_BASE;
+
+  (* These are for the interlacing type.  These values should NOT be changed. *)
+  PNG_INTERLACE_NONE      = 0; (* Non-interlaced image *)
+  PNG_INTERLACE_ADAM7     = 1; (* Adam7 interlacing *)
+  PNG_INTERLACE_LAST      = 2; (* Not a valid value *)
+
+  (* These are for the oFFs chunk.  These values should NOT be changed. *)
+  PNG_OFFSET_PIXEL        = 0; (* Offset in pixels *)
+  PNG_OFFSET_MICROMETER   = 1; (* Offset in micrometers (1/10^6 meter) *)
+  PNG_OFFSET_LAST         = 2; (* Not a valid value *)
+
+  (* These are for the pCAL chunk.  These values should NOT be changed. *)
+  PNG_EQUATION_LINEAR     = 0; (* Linear transformation *)
+  PNG_EQUATION_BASE_E     = 1; (* Exponential base e transform *)
+  PNG_EQUATION_ARBITRARY  = 2; (* Arbitrary base exponential transform *)
+  PNG_EQUATION_HYPERBOLIC = 3; (* Hyperbolic sine transformation *)
+  PNG_EQUATION_LAST       = 4; (* Not a valid value *)
+
+  (* These are for the sCAL chunk.  These values should NOT be changed. *)
+  PNG_SCALE_UNKNOWN       = 0; (* unknown unit (image scale) *)
+  PNG_SCALE_METER         = 1; (* meters per pixel *)
+  PNG_SCALE_RADIAN        = 2; (* radians per pixel *)
+  PNG_SCALE_LAST          = 3; (* Not a valid value *)
+
+  (* These are for the pHYs chunk.  These values should NOT be changed. *)
+  PNG_RESOLUTION_UNKNOWN  = 0; (* pixels/unknown unit (aspect ratio) *)
+  PNG_RESOLUTION_METER    = 1; (* pixels/meter *)
+  PNG_RESOLUTION_LAST     = 2; (* Not a valid value *)
+
+  (* These are for the sRGB chunk.  These values should NOT be changed. *)
+  PNG_sRGB_INTENT_PERCEPTUAL = 0;
+  PNG_sRGB_INTENT_RELATIVE   = 1;
+  PNG_sRGB_INTENT_SATURATION = 2;
+  PNG_sRGB_INTENT_ABSOLUTE   = 3;
+  PNG_sRGB_INTENT_LAST       = 4; (* Not a valid value *)
+
+  (* This is for text chunks *)
+  PNG_KEYWORD_MAX_LENGTH   = 79;
+
+  (* Maximum number of entries in PLTE/sPLT/tRNS arrays *)
+  PNG_MAX_PALETTE_LENGTH  = 256;
+
+  (* These determine if an ancillary chunk's data has been successfully read
+   * from the PNG header, or if the application has filled in the corresponding
+   * data in the info_struct to be written into the output file.  The values
+   * of the PNG_INFO_<chunk> defines should NOT be changed.
+   *)
+  PNG_INFO_gAMA = $0001;
+  PNG_INFO_sBIT = $0002;
+  PNG_INFO_cHRM = $0004;
+  PNG_INFO_PLTE = $0008;
+  PNG_INFO_tRNS = $0010;
+  PNG_INFO_bKGD = $0020;
+  PNG_INFO_hIST = $0040;
+  PNG_INFO_pHYs = $0080;
+  PNG_INFO_oFFs = $0100;
+  PNG_INFO_tIME = $0200;
+  PNG_INFO_pCAL = $0400;
+  PNG_INFO_sRGB = $0800;  (* GR-P, 0.96a *)
+  PNG_INFO_iCCP = $1000;  (* ESR, 1.0.6 *)
+  PNG_INFO_sPLT = $2000;  (* ESR, 1.0.6 *)
+  PNG_INFO_sCAL = $4000;  (* ESR, 1.0.6 *)
+  PNG_INFO_IDAT = $8000;  (* ESR, 1.0.6 *)
+
+
+(*
+var
+  png_libpng_ver    : array[0..11] of char;   external LibPng name 'png_libpng_ver';
+  png_pass_start    : array[0..6] of integer; external LibPng name 'png_pass_start';
+  png_pass_inc      : array[0..6] of integer; external LibPng name 'png_pass_inc';
+  png_pass_ystart   : array[0..6] of integer; external LibPng name 'png_pass_ystart';
+  png_pass_yinc     : array[0..6] of integer; external LibPng name 'png_pass_yinc';
+  png_pass_mask     : array[0..6] of integer; external LibPng name 'png_pass_mask';
+  png_pass_dsp_mask : array[0..6] of integer; external LibPng name 'png_pass_dsp_mask';
+*)
+
+type
+  (* Three color definitions.  The order of the red, green, and blue, (and the
+   * exact size) is not important, although the size of the fields need to
+   * be png_byte or png_uint_16 (as defined below).
+   *)
+  png_color = record
+       red : png_byte;
+       green : png_byte;
+       blue : png_byte;
+    end;
+  ppng_color = ^png_color;
+  pppng_color = ^ppng_color;
+  png_color_struct = png_color;
+  png_colorp = Ppng_color;
+  ppng_colorp = ^png_colorp;
+  png_colorpp = PPpng_color;
+
+  png_color_16 = record
+       index : png_byte;    (* used for palette files *)
+       red : png_uint_16;   (* for use in red green blue files *)
+       green : png_uint_16;
+       blue : png_uint_16;
+       gray : png_uint_16;  (* for use in grayscale files *)
+    end;
+  ppng_color_16 = ^png_color_16 ;
+  pppng_color_16 = ^ppng_color_16 ;
+  png_color_16_struct = png_color_16;
+  png_color_16p = Ppng_color_16;
+  ppng_color_16p = ^png_color_16p;
+  png_color_16pp = PPpng_color_16;
+
+  png_color_8 = record
+       red : png_byte;    (* for use in red green blue files *)
+       green : png_byte;
+       blue : png_byte;
+       gray : png_byte;   (* for use in grayscale files *)
+       alpha : png_byte;  (* for alpha channel files *)
+    end;
+  ppng_color_8 = ^png_color_8;
+  pppng_color_8 = ^ppng_color_8;
+  png_color_8_struct = png_color_8;
+  png_color_8p = Ppng_color_8;
+  ppng_color_8p = ^png_color_8p;
+  png_color_8pp = PPpng_color_8;
+   
+  (*
+   * The following two structures are used for the in-core representation
+   * of sPLT chunks.
+   *)
+  png_sPLT_entry = record
+       red : png_uint_16;
+       green : png_uint_16;
+       blue : png_uint_16;
+       alpha : png_uint_16;
+       frequency : png_uint_16;
+    end;
+  ppng_sPLT_entry = ^png_sPLT_entry;
+  pppng_sPLT_entry = ^ppng_sPLT_entry;
+  png_sPLT_entry_struct = png_sPLT_entry;
+  png_sPLT_entryp = Ppng_sPLT_entry;
+  png_sPLT_entrypp = PPpng_sPLT_entry;
+
+  (*  When the depth of the sPLT palette is 8 bits, the color and alpha samples
+   *  occupy the LSB of their respective members, and the MSB of each member
+   *  is zero-filled.  The frequency member always occupies the full 16 bits.
+   *)
+
+  png_sPLT_t = record
+       name : png_charp;          (* palette name *)
+       depth : png_byte;          (* depth of palette samples *)
+       entries : png_sPLT_entryp; (* palette entries *)
+       nentries : png_int_32;     (* number of palette entries *)
+    end;
+  ppng_sPLT_t = ^png_sPLT_t;
+  pppng_sPLT_t = ^ppng_sPLT_t;
+  png_sPLT_struct = png_sPLT_t;
+  png_sPLT_tp = Ppng_sPLT_t;
+  png_sPLT_tpp = PPpng_sPLT_t;
+   
+  (* png_text holds the contents of a text/ztxt/itxt chunk in a PNG file,
+   * and whether that contents is compressed or not.  The "key" field
+   * points to a regular zero-terminated C string.  The "text", "lang", and
+   * "lang_key" fields can be regular C strings, empty strings, or NULL pointers.
+   * However, the * structure returned by png_get_text() will always contain
+   * regular zero-terminated C strings (possibly empty), never NULL pointers,
+   * so they can be safely used in printf() and other string-handling functions.
+   *)
+  png_text = record
+       compression : integer;    (* compression value:
+                                   -1: tEXt, none
+                                    0: zTXt, deflate
+                                    1: iTXt, none
+                                    2: iTXt, deflate  *)
+       key : png_charp;          (* keyword, 1-79 character description of "text" *)
+       text : png_charp;         (* comment, may be an empty string (ie "")
+                                    or a NULL pointer *)
+       text_length : png_size_t; (* length of the text string *)
+    end;
+  ppng_text = ^png_text;
+  pppng_text = ^ppng_text;
+  png_text_struct = png_text;
+  png_textp = Ppng_text;
+  ppng_textp = ^png_textp;
+  png_textpp = PPpng_text;
+   
+  (* png_time is a way to hold the time in an machine independent way.
+   * Two conversions are provided, both from time_t and struct tm.  There
+   * is no portable way to convert to either of these structures, as far
+   * as I know.  If you know of a portable way, send it to me.  As a side
+   * note - PNG has always been Year 2000 compliant!
+   *)
+  png_time = record
+       year : png_uint_16; (* full year, as in, 1995 *)
+       month : png_byte;   (* month of year, 1 - 12 *)
+       day : png_byte;     (* day of month, 1 - 31 *)
+       hour : png_byte;    (* hour of day, 0 - 23 *)
+       minute : png_byte;  (* minute of hour, 0 - 59 *)
+       second : png_byte;  (* second of minute, 0 - 60 (for leap seconds) *)
+    end;
+  ppng_time = ^png_time;
+  pppng_time = ^ppng_time;
+  png_time_struct = png_time;
+  png_timep = Ppng_time;
+  PPNG_TIMEP = ^PNG_TIMEP;
+  png_timepp = PPpng_time;
+
+const
+  PNG_CHUNK_NAME_LENGTH = 5; 
+type
+  (* png_unknown_chunk is a structure to hold queued chunks for which there is
+   * no specific support.  The idea is that we can use this to queue
+   * up private chunks for output even though the library doesn't actually
+   * know about their semantics.
+   *)
+  png_unknown_chunk = record
+       name : array[0..PNG_CHUNK_NAME_LENGTH-1] of png_byte;
+       data : Ppng_byte;
+       size : png_size_t;
+       
+       (* libpng-using applications should NOT directly modify this byte. *)
+       location : png_byte; (* mode of operation at read time *)
+    end;
+  ppng_unknown_chunk = ^png_unknown_chunk;
+  pppng_unknown_chunk = ^ppng_unknown_chunk;
+  png_unknown_chunk_t = png_unknown_chunk;
+  png_unknown_chunkp = Ppng_unknown_chunk;
+  png_unknown_chunkpp = PPpng_unknown_chunk;
+   
+  (* png_info is a structure that holds the information in a PNG file so
+   * that the application can find out the characteristics of the image.
+   * If you are reading the file, this structure will tell you what is
+   * in the PNG file.  If you are writing the file, fill in the information
+   * you want to put into the PNG file, then call png_write_info().
+   * The names chosen should be very close to the PNG specification, so
+   * consult that document for information about the meaning of each field.
+   *
+   * With libpng < 0.95, it was only possible to directly set and read the
+   * the values in the png_info_struct, which meant that the contents and
+   * order of the values had to remain fixed.  With libpng 0.95 and later,
+   * however, there are now functions that abstract the contents of
+   * png_info_struct from the application, so this makes it easier to use
+   * libpng with dynamic libraries, and even makes it possible to use
+   * libraries that don't have all of the libpng ancillary chunk-handing
+   * functionality.
+   *
+   * In any case, the order of the parameters in png_info_struct should NOT
+   * be changed for as long as possible to keep compatibility with applications
+   * that use the old direct-access method with png_info_struct.
+   *
+   * The following members may have allocated storage attached that should be
+   * cleaned up before the structure is discarded: palette, trans, text,
+   * pcal_purpose, pcal_units, pcal_params, hist, iccp_name, iccp_profile,
+   * splt_palettes, scal_unit, row_pointers, and unknowns.   By default, these
+   * are automatically freed when the info structure is deallocated, if they were
+   * allocated internally by libpng.  This behavior can be changed by means
+   * of the png_data_freer() function.
+   *
+   * More allocation details: all the chunk-reading functions that
+   * change these members go through the corresponding png_set_*
+   * functions.  A function to clear these members is available: see
+   * png_free_data().  The png_set_* functions do not depend on being
+   * able to point info structure members to any of the storage they are
+   * passed (they make their own copies), EXCEPT that the png_set_text
+   * functions use the same storage passed to them in the text_ptr or
+   * itxt_ptr structure argument, and the png_set_rows and png_set_unknowns
+   * functions do not make their own copies.
+   *)
+  png_info = record
+       width : png_uint_32;       (* width of image in pixels (from IHDR) *)
+       height : png_uint_32;      (* height of image in pixels (from IHDR) *)
+       valid : png_uint_32;       (* valid chunk data (see PNG_INFO_ below) *)
+       rowbytes : png_uint_32;    (* bytes needed to hold an untransformed row *)
+       palette : png_colorp;      (* array of color values (valid & PNG_INFO_PLTE) *)
+       num_palette : png_uint_16; (* number of color entries in "palette" (PLTE) *)
+       num_trans : png_uint_16;   (* number of transparent palette color (tRNS) *)
+       bit_depth : png_byte;      (* 1, 2, 4, 8, or 16 bits/channel (from IHDR) *)
+       color_type : png_byte;     (* see PNG_COLOR_TYPE_ below (from IHDR) *)
+       (* The following three should have been named *_method not *_type *)
+       compression_type : png_byte; (* must be PNG_COMPRESSION_TYPE_BASE (IHDR) *)
+       filter_type : png_byte;    (* must be PNG_FILTER_TYPE_BASE (from IHDR) *)
+       interlace_type : png_byte; (* One of PNG_INTERLACE_NONE, PNG_INTERLACE_ADAM7 *)
+
+       (* The following is informational only on read, and not used on writes. *)
+       channels : png_byte;       (* number of data channels per pixel (1, 2, 3, 4) *)
+       pixel_depth : png_byte;    (* number of bits per pixel *)
+       spare_byte : png_byte;     (* to align the data, and for future use *)
+       signature : array[0..7] of png_byte; (* magic bytes read by libpng from start of file *)
+
+       (* The rest of the data is optional.  If you are reading, check the
+        * valid field to see if the information in these are valid.  If you
+        * are writing, set the valid field to those chunks you want written,
+        * and initialize the appropriate fields below.
+        *)
+        
+       gamma : single;
+       srgb_intent : png_byte;
+       num_text : integer;
+       max_text : integer;
+       text : png_textp;
+       mod_time : png_time;
+       sig_bit : png_color_8;
+       trans : png_bytep;
+       trans_values : png_color_16;
+       background : png_color_16;
+       x_offset : png_int_32;
+       y_offset : png_int_32;
+       offset_unit_type : png_byte;
+       x_pixels_per_unit : png_uint_32;
+       y_pixels_per_unit : png_uint_32;
+       phys_unit_type : png_byte;
+       hist : png_uint_16p;
+       x_white : single;
+       y_white : single;
+       x_red : single;
+       y_red : single;
+       x_green : single;
+       y_green : single;
+       x_blue : single;
+       y_blue : single;
+       pcal_purpose : png_charp;
+       pcal_X0 : png_int_32;
+       pcal_X1 : png_int_32;
+       pcal_units : png_charp;
+       pcal_params : png_charpp;
+       pcal_type : png_byte;
+       pcal_nparams : png_byte;
+       free_me : png_uint_32;
+       unknown_chunks : png_unknown_chunkp;
+       unknown_chunks_num : png_size_t;
+       iccp_name : png_charp;
+       iccp_profile : png_charp;
+       iccp_proflen : png_uint_32;
+       iccp_compression : png_byte;
+       splt_palettes : png_sPLT_tp;
+       splt_palettes_num : png_uint_32;
+       scal_unit : png_byte;
+       scal_pixel_width : double;
+       scal_pixel_height : double;
+       scal_s_width : png_charp;
+       scal_s_height : png_charp;
+       row_pointers : png_bytepp;
+       int_gamma : png_fixed_point;
+       int_x_white : png_fixed_point;
+       int_y_white : png_fixed_point;
+       int_x_red : png_fixed_point;
+       int_y_red : png_fixed_point;
+       int_x_green : png_fixed_point;
+       int_y_green : png_fixed_point;
+       int_x_blue : png_fixed_point;
+       int_y_blue : png_fixed_point;
+    end;
+  ppng_info = ^png_info;
+  pppng_info = ^ppng_info;
+  png_info_struct = png_info;
+  png_infop = Ppng_info;
+  png_infopp = PPpng_info;
+  
+  (* This is used for the transformation routines, as some of them
+   * change these values for the row.  It also should enable using
+   * the routines for other purposes.
+   *)
+  png_row_info = record
+       width : png_uint_32;    (* width of row *)
+       rowbytes : png_uint_32; (* number of bytes in row *)
+       color_type : png_byte;  (* color type of row *)
+       bit_depth : png_byte;   (* bit depth of row *)
+       channels : png_byte;    (* number of channels (1, 2, 3, or 4) *)
+       pixel_depth : png_byte; (* bits per pixel (depth * channels) *)
+    end;
+  ppng_row_info = ^png_row_info;
+  pppng_row_info = ^ppng_row_info;
+  png_row_info_struct = png_row_info;
+  png_row_infop = Ppng_row_info;
+  png_row_infopp = PPpng_row_info;
+  png_structp = ^png_struct;
+
+
+  (* These are the function types for the I/O functions and for the functions
+   * that allow the user to override the default I/O functions with his or her
+   * own.  The png_error_ptr type should match that of user-supplied warning
+   * and error functions, while the png_rw_ptr type should match that of the
+   * user read/write data functions.
+   *)
+  png_error_ptr = procedure(Arg1 : png_structp; Arg2 : png_const_charp);cdecl;
+  png_rw_ptr = procedure(Arg1 : png_structp; Arg2 : png_bytep; Arg3 : png_size_t);cdecl;
+  png_flush_ptr = procedure (Arg1 : png_structp) ;cdecl;
+  png_read_status_ptr = procedure (Arg1 : png_structp; Arg2 : png_uint_32; Arg3: integer);cdecl;
+  png_write_status_ptr = procedure (Arg1 : png_structp; Arg2:png_uint_32;Arg3 : integer) ;cdecl;
+  png_progressive_info_ptr = procedure (Arg1 : png_structp; Arg2 : png_infop) ;cdecl;
+  png_progressive_end_ptr = procedure (Arg1 : png_structp; Arg2 : png_infop) ;cdecl;
+  png_progressive_row_ptr = procedure (Arg1 : png_structp; Arg2 : png_bytep; Arg3 : png_uint_32; Arg4 : integer) ;cdecl;
+  png_user_transform_ptr = procedure (Arg1 : png_structp; Arg2 : png_row_infop; Arg3 : png_bytep) ;cdecl;
+  png_user_chunk_ptr = function (Arg1 : png_structp; Arg2 : png_unknown_chunkp): integer;cdecl;
+  png_unknown_chunk_ptr = procedure (Arg1 : png_structp);cdecl;
+  png_malloc_ptr = function (Arg1 : png_structp; Arg2 : png_size_t) : png_voidp ;cdecl;
+  png_free_ptr = procedure (Arg1 : png_structp; Arg2 : png_voidp) ; cdecl;
+
+  png_struct_def = record
+        {$ifdef UsePngStruct}
+        jmpbuf : jmp_buf;            (* used in png_error *)
+        error_fn : png_error_ptr;    (* function for printing errors and aborting *)
+        warning_fn : png_error_ptr;  (* function for printing warnings *)
+        error_ptr : png_voidp;       (* user supplied struct for error functions *)
+        write_data_fn : png_rw_ptr;  (* function for writing output data *)
+        read_data_fn : png_rw_ptr;   (* function for reading input data *)
+        io_ptr : png_voidp;          (* ptr to application struct for I/O functions *)
+
+        read_user_transform_fn : png_user_transform_ptr;  (* user read transform *)
+
+        write_user_transform_fn : png_user_transform_ptr; (* user write transform *)
+
+        (* These were added in libpng-1.0.2 *)
+        user_transform_ptr : png_voidp; (* user supplied struct for user transform *)
+        user_transform_depth : png_byte;    (* bit depth of user transformed pixels *)
+        user_transform_channels : png_byte; (* channels in user transformed pixels *)
+
+        mode : png_uint_32;          (* tells us where we are in the PNG file *)
+        flags : png_uint_32;         (* flags indicating various things to libpng *)
+        transformations : png_uint_32; (* which transformations to perform *)
+
+        zstream : z_stream;          (* pointer to decompression structure (below) *)
+        zbuf : png_bytep;            (* buffer for zlib *)
+        zbuf_size : png_size_t;      (* size of zbuf *)
+        zlib_level : integer;        (* holds zlib compression level *)
+        zlib_method : integer;       (* holds zlib compression method *)
+        zlib_window_bits : integer;  (* holds zlib compression window bits *)
+        zlib_mem_level : integer;    (* holds zlib compression memory level *)
+        zlib_strategy : integer;     (* holds zlib compression strategy *)
+
+        width : png_uint_32;         (* width of image in pixels *)
+        height : png_uint_32;        (* height of image in pixels *)
+        num_rows : png_uint_32;      (* number of rows in current pass *)
+        usr_width : png_uint_32;     (* width of row at start of write *)
+        rowbytes : png_uint_32;      (* size of row in bytes *)
+        irowbytes : png_uint_32;     (* size of current interlaced row in bytes *)
+        iwidth : png_uint_32;        (* width of current interlaced row in pixels *)
+        row_number : png_uint_32;    (* current row in interlace pass *)
+        prev_row : png_bytep;        (* buffer to save previous (unfiltered) row *)
+        row_buf : png_bytep;         (* buffer to save current (unfiltered) row *)
+        sub_row : png_bytep;         (* buffer to save "sub" row when filtering *)
+        up_row : png_bytep;          (* buffer to save "up" row when filtering *)
+        avg_row : png_bytep;         (* buffer to save "avg" row when filtering *)
+        paeth_row : png_bytep;       (* buffer to save "Paeth" row when filtering *)
+        row_info : png_row_info;     (* used for transformation routines *)
+        
+        idat_size : png_uint_32;     (* current IDAT size for read *)
+        crc : png_uint_32;           (* current chunk CRC value *)
+        palette : png_colorp;        (* palette from the input file *)
+        num_palette : png_uint_16;   (* number of color entries in palette *)
+        num_trans : png_uint_16;     (* number of transparency values *)
+        chunk_name : array[0..4] of png_byte; (* null-terminated name of current chunk *)
+        compression : png_byte;      (* file compression type (always 0) *)
+        filter : png_byte;           (* file filter type (always 0) *)
+        interlaced : png_byte;       (* PNG_INTERLACE_NONE, PNG_INTERLACE_ADAM7 *)
+        pass : png_byte;             (* current interlace pass (0 - 6) *)
+        do_filter : png_byte;        (* row filter flags (see PNG_FILTER_ below ) *)
+        color_type : png_byte;       (* color type of file *)
+        bit_depth : png_byte;        (* bit depth of file *)
+        usr_bit_depth : png_byte;    (* bit depth of users row *)
+        pixel_depth : png_byte;      (* number of bits per pixel *)
+        channels : png_byte;         (* number of channels in file *)
+        usr_channels : png_byte;     (* channels at start of write *)
+        sig_bytes : png_byte;        (* magic bytes read/written from start of file *)
+
+        filler : png_uint_16;
+
+        background_gamma_type : png_byte;
+        background_gamma : single;
+        background : png_color_16;
+        background_1 : png_color_16;
+        output_flush_fn : png_flush_ptr;
+        flush_dist : png_uint_32;
+        flush_rows : png_uint_32;
+        gamma_shift : integer;
+        gamma : single;
+        screen_gamma : single;
+        gamma_table : png_bytep;
+        gamma_from_1 : png_bytep;
+        gamma_to_1 : png_bytep;
+        gamma_16_table : png_uint_16pp;
+        gamma_16_from_1 : png_uint_16pp;
+        gamma_16_to_1 : png_uint_16pp;
+        sig_bit : png_color_8;
+        shift : png_color_8;
+        trans : png_bytep;
+        trans_values : png_color_16;
+        read_row_fn : png_read_status_ptr;
+        write_row_fn : png_write_status_ptr;
+        info_fn : png_progressive_info_ptr;
+        row_fn : png_progressive_row_ptr;
+        end_fn : png_progressive_end_ptr;
+        save_buffer_ptr : png_bytep;
+        save_buffer : png_bytep;
+        current_buffer_ptr : png_bytep;
+        current_buffer : png_bytep;
+        push_length : png_uint_32;
+        skip_length : png_uint_32;
+        save_buffer_size : png_size_t;
+        save_buffer_max : png_size_t;
+        buffer_size : png_size_t;
+        current_buffer_size : png_size_t;
+        process_mode : integer;
+        cur_palette : integer;
+        current_text_size : png_size_t;
+        current_text_left : png_size_t;
+        current_text : png_charp;
+        current_text_ptr : png_charp;
+        palette_lookup : png_bytep;
+        dither_index : png_bytep;
+        hist : png_uint_16p;
+        heuristic_method : png_byte;
+        num_prev_filters : png_byte;
+        prev_filters : png_bytep;
+        filter_weights : png_uint_16p;
+        inv_filter_weights : png_uint_16p;
+        filter_costs : png_uint_16p;
+        inv_filter_costs : png_uint_16p;
+        time_buffer : png_charp;
+        free_me : png_uint_32;
+        user_chunk_ptr : png_voidp;
+        read_user_chunk_fn : png_user_chunk_ptr;
+        num_chunk_list : integer;
+        chunk_list : png_bytep;
+        rgb_to_gray_status : png_byte;
+        rgb_to_gray_red_coeff : png_uint_16;
+        rgb_to_gray_green_coeff : png_uint_16;
+        rgb_to_gray_blue_coeff : png_uint_16;
+        empty_plte_permitted : png_byte;
+        int_gamma : png_fixed_point;
+        {$endif UsePngStruct}
+     end;
+   ppng_struct_def = ^png_struct_def;
+   pppng_struct_def = ^ppng_struct_def;
+   png_struct = png_struct_def;
+   ppng_struct = ^png_struct;
+   pppng_struct = ^ppng_struct;
+
+   version_1_0_8 = png_structp;
+   png_structpp = PPpng_struct;
+
+function png_access_version_number:png_uint_32;cdecl; external LibPng;
+
+procedure png_set_sig_bytes(png_ptr:png_structp; num_bytes:integer);cdecl; external LibPng;
+function png_sig_cmp(sig:png_bytep; start:png_size_t; num_to_check:png_size_t):integer;cdecl; external LibPng;
+function png_check_sig(sig:png_bytep; num:integer):integer;cdecl; external LibPng;
+
+(* Allocate and initialize png_ptr struct for reading, and any other memory. *)
+function png_create_read_struct(user_png_ver:png_const_charp; error_ptr:png_voidp; error_fn:png_error_ptr; warn_fn:png_error_ptr):png_structp;cdecl; external LibPng;
+
+(* Allocate and initialize png_ptr struct for writing, and any other memory *)
+function png_create_write_struct(user_png_ver:png_const_charp; error_ptr:png_voidp; error_fn:png_error_ptr; warn_fn:png_error_ptr):png_structp;cdecl; external LibPng;
+
+function png_get_compression_buffer_size(png_ptr:png_structp):png_uint_32;cdecl; external LibPng;
+procedure png_set_compression_buffer_size(png_ptr:png_structp; size:png_uint_32);cdecl; external LibPng;
+function png_reset_zstream(png_ptr:png_structp):integer;cdecl; external LibPng;
+
+procedure png_write_chunk(png_ptr:png_structp; chunk_name:png_bytep; data:png_bytep; length:png_size_t);cdecl; external LibPng;
+procedure png_write_chunk_start(png_ptr:png_structp; chunk_name:png_bytep; length:png_uint_32);cdecl; external LibPng;
+procedure png_write_chunk_data(png_ptr:png_structp; data:png_bytep; length:png_size_t);cdecl; external LibPng;
+procedure png_write_chunk_end(png_ptr:png_structp);cdecl; external LibPng;
+
+(* Allocate and initialize the info structure *)
+function png_create_info_struct(png_ptr:png_structp):png_infop;cdecl; external LibPng;
+
+(* Initialize the info structure (old interface - DEPRECATED) *)
+procedure png_info_init(info_ptr:png_infop);cdecl; external LibPng;
+
+(* Writes all the PNG information before the image. *)
+procedure png_write_info_before_PLTE(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;
+procedure png_write_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;
+
+(* read the information before the actual image data. *)
+procedure png_read_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;
+
+function png_convert_to_rfc1123(png_ptr:png_structp; ptime:png_timep):png_charp;cdecl; external LibPng;
+procedure png_convert_from_struct_tm(ptime:png_timep; ttime:Pointer);cdecl; external LibPng;
+{$IFDEF UNIX}
+procedure png_convert_from_time_t(ptime:png_timep; ttime:time_t);cdecl; external LibPng;
+{$ENDIF}
+procedure png_set_expand(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_gray_1_2_4_to_8(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_palette_to_rgb(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_tRNS_to_alpha(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_bgr(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_gray_to_rgb(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_rgb_to_gray(png_ptr:png_structp; error_action:integer; red:double; green:double);cdecl; external LibPng;
+procedure png_set_rgb_to_gray_fixed(png_ptr:png_structp; error_action:integer; red:png_fixed_point; green:png_fixed_point);cdecl; external LibPng;
+function png_get_rgb_to_gray_status(png_ptr:png_structp):png_byte;cdecl; external LibPng;
+procedure png_build_grayscale_palette(bit_depth:integer; palette:png_colorp);cdecl; external LibPng;
+procedure png_set_strip_alpha(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_swap_alpha(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_invert_alpha(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_filler(png_ptr:png_structp; filler:png_uint_32; flags:integer);cdecl; external LibPng;
+procedure png_set_swap(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_packing(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_packswap(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_shift(png_ptr:png_structp; true_bits:png_color_8p);cdecl; external LibPng;
+function png_set_interlace_handling(png_ptr:png_structp):integer;cdecl; external LibPng;
+procedure png_set_invert_mono(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_background(png_ptr:png_structp; background_color:png_color_16p; background_gamma_code:integer; need_expand:integer; background_gamma:double);cdecl; external LibPng;
+procedure png_set_strip_16(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_set_dither(png_ptr:png_structp; palette:png_colorp; num_palette:integer; maximum_colors:integer; histogram:png_uint_16p;
+            full_dither:integer);cdecl; external LibPng;
+procedure png_set_gamma(png_ptr:png_structp; screen_gamma:double; default_file_gamma:double);cdecl; external LibPng;
+procedure png_permit_empty_plte(png_ptr:png_structp; empty_plte_permitted:integer);cdecl; external LibPng;
+procedure png_set_flush(png_ptr:png_structp; nrows:integer);cdecl; external LibPng;
+procedure png_write_flush(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_start_read_image(png_ptr:png_structp);cdecl; external LibPng;
+procedure png_read_update_info(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;
+
+(* read one or more rows of image data. *)
+procedure png_read_rows(png_ptr:png_structp; row:png_bytepp; display_row:png_bytepp; num_rows:png_uint_32);cdecl; external LibPng;
+
+(* read a row of data. *)
+procedure png_read_row(png_ptr:png_structp; row:png_bytep; display_row:png_bytep);cdecl; external LibPng;
+
+(* read the whole image into memory at once. *)
+procedure png_read_image(png_ptr:png_structp; image:png_bytepp);cdecl; external LibPng;
+
+(* write a row of image data *)
+procedure png_write_row(png_ptr:png_structp; row:png_bytep);cdecl; external LibPng;
+
+(* write a few rows of image data *)
+procedure png_write_rows(png_ptr:png_structp; row:png_bytepp; num_rows:png_uint_32);cdecl; external LibPng;
+
+(* write the image data *)
+procedure png_write_image(png_ptr:png_structp; image:png_bytepp);cdecl; external LibPng;
+
+(* writes the end of the PNG file. *)
+procedure png_write_end(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;
+
+(* read the end of the PNG file. *)
+procedure png_read_end(png_ptr:png_structp; info_ptr:png_infop);cdecl; external LibPng;
+
+(* free any memory associated with the png_info_struct *)
+procedure png_destroy_info_struct(png_ptr:png_structp; info_ptr_ptr:png_infopp);cdecl; external LibPng;
+
+(* free any memory associated with the png_struct and the png_info_structs *)
+procedure png_destroy_read_struct(png_ptr_ptr:png_structpp; info_ptr_ptr:png_infopp; end_info_ptr_ptr:png_infopp);cdecl; external LibPng;
+
+(* free all memory used by the read (old method - NOT DLL EXPORTED) *)
+procedure png_read_destroy(png_ptr:png_structp; info_ptr:png_infop; end_info_ptr:png_infop);cdecl; external LibPng;
+
+(* free any memory associated with the png_struct and the png_info_structs *)
+procedure png_destroy_write_struct(png_ptr_ptr:png_structpp; info_ptr_ptr:png_infopp);cdecl; external LibPng;
+
+procedure png_write_destroy_info(info_ptr:png_infop);cdecl; external LibPng;
+procedure png_write_destroy(png_ptr:png_structp);cdecl; external LibPng;
+
+procedure png_set_crc_action(png_ptr:png_structp; crit_action:integer; ancil_action:integer);cdecl; external LibPng;
+
+procedure png_set_filter(png_ptr:png_structp; method:integer; filters:integer);cdecl; external LibPng;
+procedure png_set_filter_heuristics(png_ptr:png_structp; heuristic_method:integer; num_weights:integer; filter_weights:png_doublep; filter_costs:png_doublep);cdecl; external LibPng;
+
+procedure png_set_compression_level(png_ptr:png_structp; level:integer);cdecl; external LibPng;
+procedure png_set_compression_mem_level(png_ptr:png_structp; mem_level:integer);cdecl; external LibPng;
+procedure png_set_compression_strategy(png_ptr:png_structp; strategy:integer);cdecl; external LibPng;
+procedure png_set_compression_window_bits(png_ptr:png_structp; window_bits:integer);cdecl; external LibPng;
+procedure png_set_compression_method(png_ptr:png_structp; method:integer);cdecl; external LibPng;
+
+procedure png_init_io(png_ptr:png_structp; fp:png_FILE_p);cdecl; external LibPng;
+
+(* Replace the (error and abort), and warning functions with user
+ * supplied functions.  If no messages are to be printed you must still
+ * write and use replacement functions. The replacement error_fn should
+ * still do a longjmp to the last setjmp location if you are using this
+ * method of error handling.  If error_fn or warning_fn is NULL, the
+ * default function will be used.
+ *)
+procedure png_set_error_fn(png_ptr:png_structp; error_ptr:png_voidp; error_fn:png_error_ptr; warning_fn:png_error_ptr);cdecl; external LibPng;
+
+(* Return the user pointer associated with the error functions *)
+function png_get_error_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;
+
+(* Replace the default data output functions with a user supplied one(s).
+ * If buffered output is not used, then output_flush_fn can be set to NULL.
+ * If PNG_WRITE_FLUSH_SUPPORTED is not defined at libpng compile time
+ * output_flush_fn will be ignored (and thus can be NULL).
+ *)
+procedure png_set_write_fn(png_ptr:png_structp; io_ptr:png_voidp; write_data_fn:png_rw_ptr; output_flush_fn:png_flush_ptr);cdecl; external LibPng;
+
+(* Replace the default data input function with a user supplied one. *)
+procedure png_set_read_fn(png_ptr:png_structp; io_ptr:png_voidp; read_data_fn:png_rw_ptr);cdecl; external LibPng;
+
+(* Return the user pointer associated with the I/O functions *)
+function png_get_io_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;
+
+procedure png_set_read_status_fn(png_ptr:png_structp; read_row_fn:png_read_status_ptr);cdecl; external LibPng;
+procedure png_set_write_status_fn(png_ptr:png_structp; write_row_fn:png_write_status_ptr);cdecl; external LibPng;
+procedure png_set_read_user_transform_fn(png_ptr:png_structp; read_user_transform_fn:png_user_transform_ptr);cdecl; external LibPng;
+procedure png_set_write_user_transform_fn(png_ptr:png_structp; write_user_transform_fn:png_user_transform_ptr);cdecl; external LibPng;
+procedure png_set_user_transform_info(png_ptr:png_structp; user_transform_ptr:png_voidp; user_transform_depth:integer; user_transform_channels:integer);cdecl; external LibPng;
+function png_get_user_transform_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;
+procedure png_set_read_user_chunk_fn(png_ptr:png_structp; user_chunk_ptr:png_voidp; read_user_chunk_fn:png_user_chunk_ptr);cdecl; external LibPng;
+function png_get_user_chunk_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;
+procedure png_set_progressive_read_fn(png_ptr:png_structp; progressive_ptr:png_voidp; info_fn:png_progressive_info_ptr; row_fn:png_progressive_row_ptr; end_fn:png_progressive_end_ptr);cdecl; external LibPng;
+function png_get_progressive_ptr(png_ptr:png_structp):png_voidp;cdecl; external LibPng;
+procedure png_process_data(png_ptr:png_structp; info_ptr:png_infop; buffer:png_bytep; buffer_size:png_size_t);cdecl; external LibPng;
+procedure png_progressive_combine_row(png_ptr:png_structp; old_row:png_bytep; new_row:png_bytep);cdecl; external LibPng;
+function png_malloc(png_ptr:png_structp; size:png_uint_32):png_voidp;cdecl; external LibPng;
+procedure png_free(png_ptr:png_structp; ptr:png_voidp);cdecl; external LibPng;
+procedure png_free_data(png_ptr:png_structp; info_ptr:png_infop; free_me:png_uint_32; num:integer);cdecl; external LibPng;
+procedure png_data_freer(png_ptr:png_structp; info_ptr:png_infop; freer:integer; mask:png_uint_32);cdecl; external LibPng;
+function png_memcpy_check(png_ptr:png_structp; s1:png_voidp; s2:png_voidp; size:png_uint_32):png_voidp;cdecl; external LibPng;
+function png_memset_check(png_ptr:png_structp; s1:png_voidp; value:integer; size:png_uint_32):png_voidp;cdecl; external LibPng;
+procedure png_error(png_ptr:png_structp; error:png_const_charp);cdecl; external LibPng;
+procedure png_chunk_error(png_ptr:png_structp; error:png_const_charp);cdecl; external LibPng;
+procedure png_warning(png_ptr:png_structp; message:png_const_charp);cdecl; external LibPng;
+procedure png_chunk_warning(png_ptr:png_structp; message:png_const_charp);cdecl; external LibPng;
+function png_get_valid(png_ptr:png_structp; info_ptr:png_infop; flag:png_uint_32):png_uint_32;cdecl; external LibPng;
+function png_get_rowbytes(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;
+function png_get_rows(png_ptr:png_structp; info_ptr:png_infop):png_bytepp;cdecl; external LibPng;
+procedure png_set_rows(png_ptr:png_structp; info_ptr:png_infop; row_pointers:png_bytepp);cdecl; external LibPng;
+function png_get_channels(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;
+function png_get_image_width(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;
+function png_get_image_height(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;
+function png_get_bit_depth(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;
+function png_get_color_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;
+function png_get_filter_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;
+function png_get_interlace_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;
+function png_get_compression_type(png_ptr:png_structp; info_ptr:png_infop):png_byte;cdecl; external LibPng;
+function png_get_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;
+function png_get_x_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;
+function png_get_y_pixels_per_meter(png_ptr:png_structp; info_ptr:png_infop):png_uint_32;cdecl; external LibPng;
+function png_get_pixel_aspect_ratio(png_ptr:png_structp; info_ptr:png_infop):single;cdecl; external LibPng;
+function png_get_x_offset_pixels(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng;
+function png_get_y_offset_pixels(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng;
+function png_get_x_offset_microns(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng;
+function png_get_y_offset_microns(png_ptr:png_structp; info_ptr:png_infop):png_int_32;cdecl; external LibPng;
+function png_get_signature(png_ptr:png_structp; info_ptr:png_infop):png_bytep;cdecl; external LibPng;
+
+function png_get_bKGD(png_ptr:png_structp; info_ptr:png_infop; background:Ppng_color_16p):png_uint_32;cdecl; external LibPng;
+procedure png_set_bKGD(png_ptr:png_structp; info_ptr:png_infop; background:png_color_16p);cdecl; external LibPng;
+function png_get_cHRM(png_ptr:png_structp; info_ptr:png_infop; white_x:Pdouble; white_y:Pdouble; red_x:Pdouble;
+           red_y:Pdouble; green_x:Pdouble; green_y:Pdouble; blue_x:Pdouble; blue_y:Pdouble):png_uint_32;cdecl; external LibPng;
+function png_get_cHRM_fixed(png_ptr:png_structp; info_ptr:png_infop; int_white_x:Ppng_fixed_point; int_white_y:Ppng_fixed_point; int_red_x:Ppng_fixed_point;
+           int_red_y:Ppng_fixed_point; int_green_x:Ppng_fixed_point; int_green_y:Ppng_fixed_point; int_blue_x:Ppng_fixed_point; int_blue_y:Ppng_fixed_point):png_uint_32;cdecl; external LibPng;
+procedure png_set_cHRM(png_ptr:png_structp; info_ptr:png_infop; white_x:double; white_y:double; red_x:double;
+            red_y:double; green_x:double; green_y:double; blue_x:double; blue_y:double);cdecl; external LibPng;
+procedure png_set_cHRM_fixed(png_ptr:png_structp; info_ptr:png_infop; int_white_x:png_fixed_point; int_white_y:png_fixed_point; int_red_x:png_fixed_point;
+            int_red_y:png_fixed_point; int_green_x:png_fixed_point; int_green_y:png_fixed_point; int_blue_x:png_fixed_point; int_blue_y:png_fixed_point);cdecl; external LibPng;
+function png_get_gAMA(png_ptr:png_structp; info_ptr:png_infop; file_gamma:Pdouble):png_uint_32;cdecl; external LibPng;
+function png_get_gAMA_fixed(png_ptr:png_structp; info_ptr:png_infop; int_file_gamma:Ppng_fixed_point):png_uint_32;cdecl; external LibPng;
+procedure png_set_gAMA(png_ptr:png_structp; info_ptr:png_infop; file_gamma:double);cdecl; external LibPng;
+procedure png_set_gAMA_fixed(png_ptr:png_structp; info_ptr:png_infop; int_file_gamma:png_fixed_point);cdecl; external LibPng;
+function png_get_hIST(png_ptr:png_structp; info_ptr:png_infop; hist:Ppng_uint_16p):png_uint_32;cdecl; external LibPng;
+procedure png_set_hIST(png_ptr:png_structp; info_ptr:png_infop; hist:png_uint_16p);cdecl; external LibPng;
+function png_get_IHDR(png_ptr:png_structp; info_ptr:png_infop; width:Ppng_uint_32; height:Ppng_uint_32; bit_depth:Pinteger;
+           color_type:Pinteger; interlace_type:Pinteger; compression_type:Pinteger; filter_type:Pinteger):png_uint_32;cdecl; external LibPng;
+procedure png_set_IHDR(png_ptr:png_structp; info_ptr:png_infop; width:png_uint_32; height:png_uint_32; bit_depth:integer;
+            color_type:integer; interlace_type:integer; compression_type:integer; filter_type:integer);cdecl; external LibPng;
+function png_get_oFFs(png_ptr:png_structp; info_ptr:png_infop; offset_x:Ppng_int_32; offset_y:Ppng_int_32; unit_type:Pinteger):png_uint_32;cdecl; external LibPng;
+procedure png_set_oFFs(png_ptr:png_structp; info_ptr:png_infop; offset_x:png_int_32; offset_y:png_int_32; unit_type:integer);cdecl; external LibPng;
+function png_get_pCAL(png_ptr:png_structp; info_ptr:png_infop; purpose:Ppng_charp; X0:Ppng_int_32; X1:Ppng_int_32;
+           atype:Pinteger; nparams:Pinteger; units:Ppng_charp; params:Ppng_charpp):png_uint_32;cdecl; external LibPng;
+procedure png_set_pCAL(png_ptr:png_structp; info_ptr:png_infop; purpose:png_charp; X0:png_int_32; X1:png_int_32;
+            atype:integer; nparams:integer; units:png_charp; params:png_charpp);cdecl; external LibPng;
+function png_get_pHYs(png_ptr:png_structp; info_ptr:png_infop; res_x:Ppng_uint_32; res_y:Ppng_uint_32; unit_type:Pinteger):png_uint_32;cdecl; external LibPng;
+procedure png_set_pHYs(png_ptr:png_structp; info_ptr:png_infop; res_x:png_uint_32; res_y:png_uint_32; unit_type:integer);cdecl; external LibPng;
+function png_get_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:Ppng_colorp; num_palette:Pinteger):png_uint_32;cdecl; external LibPng;
+procedure png_set_PLTE(png_ptr:png_structp; info_ptr:png_infop; palette:png_colorp; num_palette:integer);cdecl; external LibPng;
+function png_get_sBIT(png_ptr:png_structp; info_ptr:png_infop; sig_bit:Ppng_color_8p):png_uint_32;cdecl; external LibPng;
+procedure png_set_sBIT(png_ptr:png_structp; info_ptr:png_infop; sig_bit:png_color_8p);cdecl; external LibPng;
+function png_get_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:Pinteger):png_uint_32;cdecl; external LibPng;
+procedure png_set_sRGB(png_ptr:png_structp; info_ptr:png_infop; intent:integer);cdecl; external LibPng;
+procedure png_set_sRGB_gAMA_and_cHRM(png_ptr:png_structp; info_ptr:png_infop; intent:integer);cdecl; external LibPng;
+function png_get_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charpp; compression_type:Pinteger; profile:png_charpp;
+           proflen:Ppng_uint_32):png_uint_32;cdecl; external LibPng;
+procedure png_set_iCCP(png_ptr:png_structp; info_ptr:png_infop; name:png_charp; compression_type:integer; profile:png_charp;
+            proflen:png_uint_32);cdecl; external LibPng;
+function png_get_sPLT(png_ptr:png_structp; info_ptr:png_infop; entries:png_sPLT_tpp):png_uint_32;cdecl; external LibPng;
+procedure png_set_sPLT(png_ptr:png_structp; info_ptr:png_infop; entries:png_sPLT_tp; nentries:integer);cdecl; external LibPng;
+
+(* png_get_text also returns the number of text chunks in *num_text *)
+function png_get_text(png_ptr:png_structp; info_ptr:png_infop; text_ptr:Ppng_textp; num_text:Pinteger):png_uint_32;cdecl; external LibPng;
+
+(*
+ *  Note while png_set_text() will accept a structure whose text,
+ *  language, and  translated keywords are NULL pointers, the structure
+ *  returned by png_get_text will always contain regular
+ *  zero-terminated C strings.  They might be empty strings but
+ *  they will never be NULL pointers.
+ *)
+procedure png_set_text(png_ptr:png_structp; info_ptr:png_infop; text_ptr:png_textp; num_text:integer);cdecl; external LibPng;
+
+function png_get_tIME(png_ptr:png_structp; info_ptr:png_infop; mod_time:Ppng_timep):png_uint_32;cdecl; external LibPng;
+procedure png_set_tIME(png_ptr:png_structp; info_ptr:png_infop; mod_time:png_timep);cdecl; external LibPng;
+function png_get_tRNS(png_ptr:png_structp; info_ptr:png_infop; trans:Ppng_bytep; num_trans:Pinteger; trans_values:Ppng_color_16p):png_uint_32;cdecl; external LibPng;
+procedure png_set_tRNS(png_ptr:png_structp; info_ptr:png_infop; trans:png_bytep; num_trans:integer; trans_values:png_color_16p);cdecl; external LibPng;
+function png_get_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:Pinteger; width:Pdouble; height:Pdouble):png_uint_32;cdecl; external LibPng;
+procedure png_set_sCAL(png_ptr:png_structp; info_ptr:png_infop; aunit:integer; width:double; height:double);cdecl; external LibPng;
+procedure png_set_sCAL_s(png_ptr:png_structp; info_ptr:png_infop; aunit:integer; swidth:png_charp; sheight:png_charp);cdecl; external LibPng;
+
+procedure png_set_keep_unknown_chunks(png_ptr:png_structp; keep:integer; chunk_list:png_bytep; num_chunks:integer);cdecl; external LibPng;
+procedure png_set_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; unknowns:png_unknown_chunkp; num_unknowns:integer);cdecl; external LibPng;
+procedure png_set_unknown_chunk_location(png_ptr:png_structp; info_ptr:png_infop; chunk:integer; location:integer);cdecl; external LibPng;
+function png_get_unknown_chunks(png_ptr:png_structp; info_ptr:png_infop; entries:png_unknown_chunkpp):png_uint_32;cdecl; external LibPng;
+
+procedure png_set_invalid(png_ptr:png_structp; info_ptr:png_infop; mask:integer);cdecl; external LibPng;
+
+procedure png_read_png(png_ptr:png_structp; info_ptr:png_infop; transforms:integer; params:png_voidp);cdecl; external LibPng;
+procedure png_write_png(png_ptr:png_structp; info_ptr:png_infop; transforms:integer; params:png_voidp);cdecl; external LibPng;
+
+function png_get_header_ver(png_ptr:png_structp):png_charp;cdecl; external LibPng;
+function png_get_header_version(png_ptr:png_structp):png_charp;cdecl; external LibPng;
+function png_get_libpng_ver(png_ptr:png_structp):png_charp;cdecl; external LibPng;
+
+implementation
+
+end.