home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / wxos2240.zip / wxWindows-2.4.0 / src / png / example.c < prev    next >
C/C++ Source or Header  |  2002-10-08  |  30KB  |  805 lines
  1.  
  2. #if 0 /* in case someone actually tries to compile this */
  3.  
  4. /* example.c - an example of using libpng */
  5.  
  6. /* This is an example of how to use libpng to read and write PNG files.
  7.  * The file libpng.txt is much more verbose then this.  If you have not
  8.  * read it, do so first.  This was designed to be a starting point of an
  9.  * implementation.  This is not officially part of libpng, is hereby placed
  10.  * in the public domain, and therefore does not require a copyright notice.
  11.  *
  12.  * This file does not currently compile, because it is missing certain
  13.  * parts, like allocating memory to hold an image.  You will have to
  14.  * supply these parts to get it to compile.  For an example of a minimal
  15.  * working PNG reader/writer, see pngtest.c, included in this distribution;
  16.  * see also the programs in the contrib directory.
  17.  */
  18.  
  19. #include "png.h"
  20.  
  21.  /* The png_jmpbuf() macro, used in error handling, became available in
  22.   * libpng version 1.0.6.  If you want to be able to run your code with older
  23.   * versions of libpng, you must define the macro yourself (but only if it
  24.   * is not already defined by libpng!).
  25.   */
  26.  
  27. #ifndef png_jmpbuf
  28. #  define png_jmpbuf(png_ptr) ((png_ptr)->jmpbuf)
  29. #endif
  30.  
  31. /* Check to see if a file is a PNG file using png_sig_cmp().  png_sig_cmp()
  32.  * returns zero if the image is a PNG and nonzero if it isn't a PNG.
  33.  *
  34.  * The function check_if_png() shown here, but not used, returns nonzero (true)
  35.  * if the file can be opened and is a PNG, 0 (false) otherwise.
  36.  *
  37.  * If this call is successful, and you are going to keep the file open,
  38.  * you should call png_set_sig_bytes(png_ptr, PNG_BYTES_TO_CHECK); once
  39.  * you have created the png_ptr, so that libpng knows your application
  40.  * has read that many bytes from the start of the file.  Make sure you
  41.  * don't call png_set_sig_bytes() with more than 8 bytes read or give it
  42.  * an incorrect number of bytes read, or you will either have read too
  43.  * many bytes (your fault), or you are telling libpng to read the wrong
  44.  * number of magic bytes (also your fault).
  45.  *
  46.  * Many applications already read the first 2 or 4 bytes from the start
  47.  * of the image to determine the file type, so it would be easiest just
  48.  * to pass the bytes to png_sig_cmp() or even skip that if you know
  49.  * you have a PNG file, and call png_set_sig_bytes().
  50.  */
  51. #define PNG_BYTES_TO_CHECK 4
  52. int check_if_png(char *file_name, FILE **fp)
  53. {
  54.    char buf[PNG_BYTES_TO_CHECK];
  55.  
  56.    /* Open the prospective PNG file. */
  57.    if ((*fp = fopen(file_name, "rb")) == NULL)
  58.       return 0;
  59.  
  60.    /* Read in some of the signature bytes */
  61.    if (fread(buf, 1, PNG_BYTES_TO_CHECK, *fp) != PNG_BYTES_TO_CHECK)
  62.       return 0;
  63.  
  64.    /* Compare the first PNG_BYTES_TO_CHECK bytes of the signature.
  65.       Return nonzero (true) if they match */
  66.  
  67.    return(!png_sig_cmp(buf, (png_size_t)0, PNG_BYTES_TO_CHECK));
  68. }
  69.  
  70. /* Read a PNG file.  You may want to return an error code if the read
  71.  * fails (depending upon the failure).  There are two "prototypes" given
  72.  * here - one where we are given the filename, and we need to open the
  73.  * file, and the other where we are given an open file (possibly with
  74.  * some or all of the magic bytes read - see comments above).
  75.  */
  76. #ifdef open_file /* prototype 1 */
  77. void read_png(char *file_name)  /* We need to open the file */
  78. {
  79.    png_structp png_ptr;
  80.    png_infop info_ptr;
  81.    unsigned int sig_read = 0;
  82.    png_uint_32 width, height;
  83.    int bit_depth, color_type, interlace_type;
  84.    FILE *fp;
  85.  
  86.    if ((fp = fopen(file_name, "rb")) == NULL)
  87.       return (ERROR);
  88. #else no_open_file /* prototype 2 */
  89. void read_png(FILE *fp, unsigned int sig_read)  /* file is already open */
  90. {
  91.    png_structp png_ptr;
  92.    png_infop info_ptr;
  93.    png_uint_32 width, height;
  94.    int bit_depth, color_type, interlace_type;
  95. #endif no_open_file /* only use one prototype! */
  96.  
  97.    /* Create and initialize the png_struct with the desired error handler
  98.     * functions.  If you want to use the default stderr and longjump method,
  99.     * you can supply NULL for the last three parameters.  We also supply the
  100.     * the compiler header file version, so that we know if the application
  101.     * was compiled with a compatible version of the library.  REQUIRED
  102.     */
  103.    png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING,
  104.       png_voidp user_error_ptr, user_error_fn, user_warning_fn);
  105.  
  106.    if (png_ptr == NULL)
  107.    {
  108.       fclose(fp);
  109.       return (ERROR);
  110.    }
  111.  
  112.    /* Allocate/initialize the memory for image information.  REQUIRED. */
  113.    info_ptr = png_create_info_struct(png_ptr);
  114.    if (info_ptr == NULL)
  115.    {
  116.       fclose(fp);
  117.       png_destroy_read_struct(&png_ptr, png_infopp_NULL, png_infopp_NULL);
  118.       return (ERROR);
  119.    }
  120.  
  121.    /* Set error handling if you are using the setjmp/longjmp method (this is
  122.     * the normal method of doing things with libpng).  REQUIRED unless you
  123.     * set up your own error handlers in the png_create_read_struct() earlier.
  124.     */
  125.  
  126.    if (setjmp(png_jmpbuf(png_ptr)))
  127.    {
  128.       /* Free all of the memory associated with the png_ptr and info_ptr */
  129.       png_destroy_read_struct(&png_ptr, &info_ptr, png_infopp_NULL);
  130.       fclose(fp);
  131.       /* If we get here, we had a problem reading the file */
  132.       return (ERROR);
  133.    }
  134.  
  135.    /* One of the following I/O initialization methods is REQUIRED */
  136. #ifdef streams /* PNG file I/O method 1 */
  137.    /* Set up the input control if you are using standard C streams */
  138.    png_init_io(png_ptr, fp);
  139.  
  140. #else no_streams /* PNG file I/O method 2 */
  141.    /* If you are using replacement read functions, instead of calling
  142.     * png_init_io() here you would call:
  143.     */
  144.    png_set_read_fn(png_ptr, (void *)user_io_ptr, user_read_fn);
  145.    /* where user_io_ptr is a structure you want available to the callbacks */
  146. #endif no_streams /* Use only one I/O method! */
  147.  
  148.    /* If we have already read some of the signature */
  149.    png_set_sig_bytes(png_ptr, sig_read);
  150.  
  151. #ifdef hilevel
  152.    /*
  153.     * If you have enough memory to read in the entire image at once,
  154.     * and you need to specify only transforms that can be controlled
  155.     * with one of the PNG_TRANSFORM_* bits (this presently excludes
  156.     * dithering, filling, setting background, and doing gamma
  157.     * adjustment), then you can read the entire image (including
  158.     * pixels) into the info structure with this call:
  159.     */
  160.    png_read_png(png_ptr, info_ptr, png_transforms, png_voidp_NULL);
  161. #else
  162.    /* OK, you're doing it the hard way, with the lower-level functions */
  163.  
  164.    /* The call to png_read_info() gives us all of the information from the
  165.     * PNG file before the first IDAT (image data chunk).  REQUIRED
  166.     */
  167.    png_read_info(png_ptr, info_ptr);
  168.  
  169.    png_get_IHDR(png_ptr, info_ptr, &width, &height, &bit_depth, &color_type,
  170.        &interlace_type, int_p_NULL, int_p_NULL);
  171.  
  172. /* Set up the data transformations you want.  Note that these are all
  173.  * optional.  Only call them if you want/need them.  Many of the
  174.  * transformations only work on specific types of images, and many
  175.  * are mutually exclusive.
  176.  */
  177.  
  178.    /* tell libpng to strip 16 bit/color files down to 8 bits/color */
  179.    png_set_strip_16(png_ptr);
  180.  
  181.    /* Strip alpha bytes from the input data without combining with the
  182.     * background (not recommended).
  183.     */
  184.    png_set_strip_alpha(png_ptr);
  185.  
  186.    /* Extract multiple pixels with bit depths of 1, 2, and 4 from a single
  187.     * byte into separate bytes (useful for paletted and grayscale images).
  188.     */
  189.    png_set_packing(png_ptr);
  190.  
  191.    /* Change the order of packed pixels to least significant bit first
  192.     * (not useful if you are using png_set_packing). */
  193.    png_set_packswap(png_ptr);
  194.  
  195.    /* Expand paletted colors into true RGB triplets */
  196.    if (color_type == PNG_COLOR_TYPE_PALETTE)
  197.       png_set_palette_rgb(png_ptr);
  198.  
  199.    /* Expand grayscale images to the full 8 bits from 1, 2, or 4 bits/pixel */
  200.    if (color_type == PNG_COLOR_TYPE_GRAY && bit_depth < 8)
  201.       png_set_gray_1_2_4_to_8(png_ptr);
  202.  
  203.    /* Expand paletted or RGB images with transparency to full alpha channels
  204.     * so the data will be available as RGBA quartets.
  205.     */
  206.    if (png_get_valid(png_ptr, info_ptr, PNG_INFO_tRNS))
  207.       png_set_tRNS_to_alpha(png_ptr);
  208.  
  209.    /* Set the background color to draw transparent and alpha images over.
  210.     * It is possible to set the red, green, and blue components directly
  211.     * for paletted images instead of supplying a palette index.  Note that
  212.     * even if the PNG file supplies a background, you are not required to
  213.     * use it - you should use the (solid) application background if it has one.
  214.     */
  215.  
  216.    png_color_16 my_background, *image_background;
  217.  
  218.    if (png_get_bKGD(png_ptr, info_ptr, &image_background))
  219.       png_set_background(png_ptr, image_background,
  220.                          PNG_BACKGROUND_GAMMA_FILE, 1, 1.0);
  221.    else
  222.       png_set_background(png_ptr, &my_background,
  223.                          PNG_BACKGROUND_GAMMA_SCREEN, 0, 1.0);
  224.  
  225.    /* Some suggestions as to how to get a screen gamma value */
  226.  
  227.    /* Note that screen gamma is the display_exponent, which includes
  228.     * the CRT_exponent and any correction for viewing conditions */
  229.    if (/* We have a user-defined screen gamma value */)
  230.    {
  231.       screen_gamma = user-defined screen_gamma;
  232.    }
  233.    /* This is one way that applications share the same screen gamma value */
  234.    else if ((gamma_str = getenv("SCREEN_GAMMA")) != NULL)
  235.    {
  236.       screen_gamma = atof(gamma_str);
  237.    }
  238.    /* If we don't have another value */
  239.    else
  240.    {
  241.       screen_gamma = 2.2;  /* A good guess for a PC monitors in a dimly
  242.                               lit room */
  243.       screen_gamma = 1.7 or 1.0;  /* A good guess for Mac systems */
  244.    }
  245.  
  246.    /* Tell libpng to handle the gamma conversion for you.  The final call
  247.     * is a good guess for PC generated images, but it should be configurable
  248.     * by the user at run time by the user.  It is strongly suggested that
  249.     * your application support gamma correction.
  250.     */
  251.  
  252.    int intent;
  253.  
  254.    if (png_get_sRGB(png_ptr, info_ptr, &intent))
  255.       png_set_gamma(png_ptr, screen_gamma, 0.45455);
  256.    else
  257.    {
  258.       double image_gamma;
  259.       if (png_get_gAMA(png_ptr, info_ptr, &image_gamma))
  260.          png_set_gamma(png_ptr, screen_gamma, image_gamma);
  261.       else
  262.          png_set_gamma(png_ptr, screen_gamma, 0.45455);
  263.    }
  264.  
  265.    /* Dither RGB files down to 8 bit palette or reduce palettes
  266.     * to the number of colors available on your screen.
  267.     */
  268.    if (color_type & PNG_COLOR_MASK_COLOR)
  269.    {
  270.       int num_palette;
  271.       png_colorp palette;
  272.  
  273.       /* This reduces the image to the application supplied palette */
  274.       if (/* we have our own palette */)
  275.       {
  276.          /* An array of colors to which the image should be dithered */
  277.          png_color std_color_cube[MAX_SCREEN_COLORS];
  278.  
  279.          png_set_dither(png_ptr, std_color_cube, MAX_SCREEN_COLORS,
  280.             MAX_SCREEN_COLORS, png_uint_16p_NULL, 0);
  281.       }
  282.       /* This reduces the image to the palette supplied in the file */
  283.       else if (png_get_PLTE(png_ptr, info_ptr, &palette, &num_palette))
  284.       {
  285.          png_uint_16p histogram = NULL;
  286.  
  287.          png_get_hIST(png_ptr, info_ptr, &histogram);
  288.  
  289.          png_set_dither(png_ptr, palette, num_palette,
  290.                         max_screen_colors, histogram, 0);
  291.       }
  292.    }
  293.  
  294.    /* invert monochrome files to have 0 as white and 1 as black */
  295.    png_set_invert_mono(png_ptr);
  296.  
  297.    /* If you want to shift the pixel values from the range [0,255] or
  298.     * [0,65535] to the original [0,7] or [0,31], or whatever range the
  299.     * colors were originally in:
  300.     */
  301.    if (png_get_valid(png_ptr, info_ptr, PNG_INFO_sBIT))
  302.    {
  303.       png_color_8p sig_bit;
  304.  
  305.       png_get_sBIT(png_ptr, info_ptr, &sig_bit);
  306.       png_set_shift(png_ptr, sig_bit);
  307.    }
  308.  
  309.    /* flip the RGB pixels to BGR (or RGBA to BGRA) */
  310.    if (color_type & PNG_COLOR_MASK_COLOR)
  311.       png_set_bgr(png_ptr);
  312.  
  313.    /* swap the RGBA or GA data to ARGB or AG (or BGRA to ABGR) */
  314.    png_set_swap_alpha(png_ptr);
  315.  
  316.    /* swap bytes of 16 bit files to least significant byte first */
  317.    png_set_swap(png_ptr);
  318.  
  319.    /* Add filler (or alpha) byte (before/after each RGB triplet) */
  320.    png_set_filler(png_ptr, 0xff, PNG_FILLER_AFTER);
  321.  
  322.    /* Turn on interlace handling.  REQUIRED if you are not using
  323.     * png_read_image().  To see how to handle interlacing passes,
  324.     * see the png_read_row() method below:
  325.     */
  326.    number_passes = png_set_interlace_handling(png_ptr);
  327.  
  328.    /* Optional call to gamma correct and add the background to the palette
  329.     * and update info structure.  REQUIRED if you are expecting libpng to
  330.     * update the palette for you (ie you selected such a transform above).
  331.     */
  332.    png_read_update_info(png_ptr, info_ptr);
  333.  
  334.    /* Allocate the memory to hold the image using the fields of info_ptr. */
  335.  
  336.    /* The easiest way to read the image: */
  337.    png_bytep row_pointers[height];
  338.  
  339.    for (row = 0; row < height; row++)
  340.    {
  341.       row_pointers[row] = png_malloc(png_ptr, png_get_rowbytes(png_ptr,
  342.          info_ptr));
  343.    }
  344.  
  345.    /* Now it's time to read the image.  One of these methods is REQUIRED */
  346. #ifdef entire /* Read the entire image in one go */
  347.    png_read_image(png_ptr, row_pointers);
  348.  
  349. #else no_entire /* Read the image one or more scanlines at a time */
  350.    /* The other way to read images - deal with interlacing: */
  351.  
  352.    for (pass = 0; pass < number_passes; pass++)
  353.    {
  354. #ifdef single /* Read the image a single row at a time */
  355.       for (y = 0; y < height; y++)
  356.       {
  357.          png_read_rows(png_ptr, &row_pointers[y], png_bytepp_NULL, 1);
  358.       }
  359.  
  360. #else no_single /* Read the image several rows at a time */
  361.       for (y = 0; y < height; y += number_of_rows)
  362.       {
  363. #ifdef sparkle /* Read the image using the "sparkle" effect. */
  364.          png_read_rows(png_ptr, &row_pointers[y], png_bytepp_NULL,
  365.             number_of_rows);
  366. #else no_sparkle /* Read the image using the "rectangle" effect */
  367.          png_read_rows(png_ptr, png_bytepp_NULL, &row_pointers[y],
  368.             number_of_rows);
  369. #endif no_sparkle /* use only one of these two methods */
  370.       }
  371.  
  372.       /* if you want to display the image after every pass, do
  373.          so here */
  374. #endif no_single /* use only one of these two methods */
  375.    }
  376. #endif no_entire /* use only one of these two methods */
  377.  
  378.    /* read rest of file, and get additional chunks in info_ptr - REQUIRED */
  379.    png_read_end(png_ptr, info_ptr);
  380. #endif hilevel
  381.  
  382.    /* At this point you have read the entire image */
  383.  
  384.    /* clean up after the read, and free any memory allocated - REQUIRED */
  385.    png_destroy_read_struct(&png_ptr, &info_ptr, png_infopp_NULL);
  386.  
  387.    /* close the file */
  388.    fclose(fp);
  389.  
  390.    /* that's it */
  391.    return (OK);
  392. }
  393.  
  394. /* progressively read a file */
  395.  
  396. int
  397. initialize_png_reader(png_structp *png_ptr, png_infop *info_ptr)
  398. {
  399.    /* Create and initialize the png_struct with the desired error handler
  400.     * functions.  If you want to use the default stderr and longjump method,
  401.     * you can supply NULL for the last three parameters.  We also check that
  402.     * the library version is compatible in case we are using dynamically
  403.     * linked libraries.
  404.     */
  405.    *png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING,
  406.        png_voidp user_error_ptr, user_error_fn, user_warning_fn);
  407.  
  408.    if (*png_ptr == NULL)
  409.    {
  410.       *info_ptr = NULL;
  411.       return (ERROR);
  412.    }
  413.  
  414.    *info_ptr = png_create_info_struct(png_ptr);
  415.  
  416.    if (*info_ptr == NULL)
  417.    {
  418.       png_destroy_read_struct(png_ptr, info_ptr, png_infopp_NULL);
  419.       return (ERROR);
  420.    }
  421.  
  422.    if (setjmp(png_jmpbuf((*png_ptr))))
  423.    {
  424.       png_destroy_read_struct(png_ptr, info_ptr, png_infopp_NULL);
  425.       return (ERROR);
  426.    }
  427.  
  428.    /* This one's new.  You will need to provide all three
  429.     * function callbacks, even if you aren't using them all.
  430.     * If you aren't using all functions, you can specify NULL
  431.     * parameters.  Even when all three functions are NULL,
  432.     * you need to call png_set_progressive_read_fn().
  433.     * These functions shouldn't be dependent on global or
  434.     * static variables if you are decoding several images
  435.     * simultaneously.  You should store stream specific data
  436.     * in a separate struct, given as the second parameter,
  437.     * and retrieve the pointer from inside the callbacks using
  438.     * the function png_get_progressive_ptr(png_ptr).
  439.     */
  440.    png_set_progressive_read_fn(*png_ptr, (void *)stream_data,
  441.       info_callback, row_callback, end_callback);
  442.  
  443.    return (OK);
  444. }
  445.  
  446. int
  447. process_data(png_structp *png_ptr, png_infop *info_ptr,
  448.    png_bytep buffer, png_uint_32 length)
  449. {
  450.    if (setjmp(png_jmpbuf((*png_ptr))))
  451.    {
  452.       /* Free the png_ptr and info_ptr memory on error */
  453.       png_destroy_read_struct(png_ptr, info_ptr, png_infopp_NULL);
  454.       return (ERROR);
  455.    }
  456.  
  457.    /* This one's new also.  Simply give it chunks of data as
  458.     * they arrive from the data stream (in order, of course).
  459.     * On Segmented machines, don't give it any more than 64K.
  460.     * The library seems to run fine with sizes of 4K, although
  461.     * you can give it much less if necessary (I assume you can
  462.     * give it chunks of 1 byte, but I haven't tried with less
  463.     * than 256 bytes yet).  When this function returns, you may
  464.     * want to display any rows that were generated in the row
  465.     * callback, if you aren't already displaying them there.
  466.     */
  467.    png_process_data(*png_ptr, *info_ptr, buffer, length);
  468.    return (OK);
  469. }
  470.  
  471. info_callback(png_structp png_ptr, png_infop info)
  472. {
  473. /* do any setup here, including setting any of the transformations
  474.  * mentioned in the Reading PNG files section.  For now, you _must_
  475.  * call either png_start_read_image() or png_read_update_info()
  476.  * after all the transformations are set (even if you don't set
  477.  * any).  You may start getting rows before png_process_data()
  478.  * returns, so this is your last chance to prepare for that.
  479.  */
  480. }
  481.  
  482. row_callback(png_structp png_ptr, png_bytep new_row,
  483.    png_uint_32 row_num, int pass)
  484. {
  485. /*
  486.  * This function is called for every row in the image.  If the
  487.  * image is interlaced, and you turned on the interlace handler,
  488.  * this function will be called for every row in every pass.
  489.  *
  490.  * In this function you will receive a pointer to new row data from
  491.  * libpng called new_row that is to replace a corresponding row (of
  492.  * the same data format) in a buffer allocated by your application.
  493.  * 
  494.  * The new row data pointer new_row may be NULL, indicating there is
  495.  * no new data to be replaced (in cases of interlace loading).
  496.  * 
  497.  * If new_row is not NULL then you need to call
  498.  * png_progressive_combine_row() to replace the corresponding row as
  499.  * shown below:
  500.  */
  501.    /* Check if row_num is in bounds. */
  502.    if((row_num >= 0) && (row_num < height))
  503.    {
  504.      /* Get pointer to corresponding row in our
  505.       * PNG read buffer.
  506.       */
  507.      png_bytep old_row = ((png_bytep *)our_data)[row_num];
  508.  
  509.      /* If both rows are allocated then copy the new row
  510.       * data to the corresponding row data.
  511.       */
  512.      if((old_row != NULL) && (new_row != NULL))
  513.      png_progressive_combine_row(png_ptr, old_row, new_row);
  514.    }
  515. /*
  516.  * The rows and passes are called in order, so you don't really
  517.  * need the row_num and pass, but I'm supplying them because it
  518.  * may make your life easier.
  519.  *
  520.  * For the non-NULL rows of interlaced images, you must call
  521.  * png_progressive_combine_row() passing in the new row and the
  522.  * old row, as demonstrated above.  You can call this function for
  523.  * NULL rows (it will just return) and for non-interlaced images
  524.  * (it just does the png_memcpy for you) if it will make the code
  525.  * easier.  Thus, you can just do this for all cases:
  526.  */
  527.  
  528.    png_progressive_combine_row(png_ptr, old_row, new_row);
  529.  
  530. /* where old_row is what was displayed for previous rows.  Note
  531.  * that the first pass (pass == 0 really) will completely cover
  532.  * the old row, so the rows do not have to be initialized.  After
  533.  * the first pass (and only for interlaced images), you will have
  534.  * to pass the current row as new_row, and the function will combine
  535.  * the old row and the new row.
  536.  */
  537. }
  538.  
  539. end_callback(png_structp png_ptr, png_infop info)
  540. {
  541. /* this function is called when the whole image has been read,
  542.  * including any chunks after the image (up to and including
  543.  * the IEND).  You will usually have the same info chunk as you
  544.  * had in the header, although some data may have been added
  545.  * to the comments and time fields.
  546.  *
  547.  * Most people won't do much here, perhaps setting a flag that
  548.  * marks the image as finished.
  549.  */
  550. }
  551.  
  552. /* write a png file */
  553. void write_png(char *file_name /* , ... other image information ... */)
  554. {
  555.    FILE *fp;
  556.    png_structp png_ptr;
  557.    png_infop info_ptr;
  558.    png_colorp palette;
  559.  
  560.    /* open the file */
  561.    fp = fopen(file_name, "wb");
  562.    if (fp == NULL)
  563.       return (ERROR);
  564.  
  565.    /* Create and initialize the png_struct with the desired error handler
  566.     * functions.  If you want to use the default stderr and longjump method,
  567.     * you can supply NULL for the last three parameters.  We also check that
  568.     * the library version is compatible with the one used at compile time,
  569.     * in case we are using dynamically linked libraries.  REQUIRED.
  570.     */
  571.    png_ptr = png_create_write_struct(PNG_LIBPNG_VER_STRING,
  572.       png_voidp user_error_ptr, user_error_fn, user_warning_fn);
  573.  
  574.    if (png_ptr == NULL)
  575.    {
  576.       fclose(fp);
  577.       return (ERROR);
  578.    }
  579.  
  580.    /* Allocate/initialize the image information data.  REQUIRED */
  581.    info_ptr = png_create_info_struct(png_ptr);
  582.    if (info_ptr == NULL)
  583.    {
  584.       fclose(fp);
  585.       png_destroy_write_struct(&png_ptr,  png_infopp_NULL);
  586.       return (ERROR);
  587.    }
  588.  
  589.    /* Set error handling.  REQUIRED if you aren't supplying your own
  590.     * error handling functions in the png_create_write_struct() call.
  591.     */
  592.    if (setjmp(png_jmpbuf(png_ptr)))
  593.    {
  594.       /* If we get here, we had a problem reading the file */
  595.       fclose(fp);
  596.       png_destroy_write_struct(&png_ptr, &info_ptr);
  597.       return (ERROR);
  598.    }
  599.  
  600.    /* One of the following I/O initialization functions is REQUIRED */
  601. #ifdef streams /* I/O initialization method 1 */
  602.    /* set up the output control if you are using standard C streams */
  603.    png_init_io(png_ptr, fp);
  604. #else no_streams /* I/O initialization method 2 */
  605.    /* If you are using replacement read functions, instead of calling
  606.     * png_init_io() here you would call */
  607.    png_set_write_fn(png_ptr, (void *)user_io_ptr, user_write_fn,
  608.       user_IO_flush_function);
  609.    /* where user_io_ptr is a structure you want available to the callbacks */
  610. #endif no_streams /* only use one initialization method */
  611.  
  612. #ifdef hilevel
  613.    /* This is the easy way.  Use it if you already have all the
  614.     * image info living info in the structure.  You could "|" many
  615.     * PNG_TRANSFORM flags into the png_transforms integer here.
  616.     */
  617.    png_write_png(png_ptr, info_ptr, png_transforms, png_voidp_NULL);
  618. #else
  619.    /* This is the hard way */
  620.  
  621.    /* Set the image information here.  Width and height are up to 2^31,
  622.     * bit_depth is one of 1, 2, 4, 8, or 16, but valid values also depend on
  623.     * the color_type selected. color_type is one of PNG_COLOR_TYPE_GRAY,
  624.     * PNG_COLOR_TYPE_GRAY_ALPHA, PNG_COLOR_TYPE_PALETTE, PNG_COLOR_TYPE_RGB,
  625.     * or PNG_COLOR_TYPE_RGB_ALPHA.  interlace is either PNG_INTERLACE_NONE or
  626.     * PNG_INTERLACE_ADAM7, and the compression_type and filter_type MUST
  627.     * currently be PNG_COMPRESSION_TYPE_BASE and PNG_FILTER_TYPE_BASE. REQUIRED
  628.     */
  629.    png_set_IHDR(png_ptr, info_ptr, width, height, bit_depth, PNG_COLOR_TYPE_???,
  630.       PNG_INTERLACE_????, PNG_COMPRESSION_TYPE_BASE, PNG_FILTER_TYPE_BASE);
  631.  
  632.    /* set the palette if there is one.  REQUIRED for indexed-color images */
  633.    palette = (png_colorp)png_malloc(png_ptr, PNG_MAX_PALETTE_LENGTH
  634.              * sizeof (png_color));
  635.    /* ... set palette colors ... */
  636.    png_set_PLTE(png_ptr, info_ptr, palette, PNG_MAX_PALETTE_LENGTH);
  637.    /* You must not free palette here, because png_set_PLTE only makes a link to
  638.       the palette that you malloced.  Wait until you are about to destroy
  639.       the png structure. */
  640.  
  641.    /* optional significant bit chunk */
  642.    /* if we are dealing with a grayscale image then */
  643.    sig_bit.gray = true_bit_depth;
  644.    /* otherwise, if we are dealing with a color image then */
  645.    sig_bit.red = true_red_bit_depth;
  646.    sig_bit.green = true_green_bit_depth;
  647.    sig_bit.blue = true_blue_bit_depth;
  648.    /* if the image has an alpha channel then */
  649.    sig_bit.alpha = true_alpha_bit_depth;
  650.    png_set_sBIT(png_ptr, info_ptr, sig_bit);
  651.  
  652.  
  653.    /* Optional gamma chunk is strongly suggested if you have any guess
  654.     * as to the correct gamma of the image.
  655.     */
  656.    png_set_gAMA(png_ptr, info_ptr, gamma);
  657.  
  658.    /* Optionally write comments into the image */
  659.    text_ptr[0].key = "Title";
  660.    text_ptr[0].text = "Mona Lisa";
  661.    text_ptr[0].compression = PNG_TEXT_COMPRESSION_NONE;
  662.    text_ptr[1].key = "Author";
  663.    text_ptr[1].text = "Leonardo DaVinci";
  664.    text_ptr[1].compression = PNG_TEXT_COMPRESSION_NONE;
  665.    text_ptr[2].key = "Description";
  666.    text_ptr[2].text = "<long text>";
  667.    text_ptr[2].compression = PNG_TEXT_COMPRESSION_zTXt;
  668. #ifdef PNG_iTXt_SUPPORTED
  669.    text_ptr[0].lang = NULL;
  670.    text_ptr[1].lang = NULL;
  671.    text_ptr[2].lang = NULL;
  672. #endif
  673.    png_set_text(png_ptr, info_ptr, text_ptr, 3);
  674.  
  675.    /* other optional chunks like cHRM, bKGD, tRNS, tIME, oFFs, pHYs, */
  676.    /* note that if sRGB is present the gAMA and cHRM chunks must be ignored
  677.     * on read and must be written in accordance with the sRGB profile */
  678.  
  679.    /* Write the file header information.  REQUIRED */
  680.    png_write_info(png_ptr, info_ptr);
  681.  
  682.    /* If you want, you can write the info in two steps, in case you need to
  683.     * write your private chunk ahead of PLTE:
  684.     *
  685.     *   png_write_info_before_PLTE(write_ptr, write_info_ptr);
  686.     *   write_my_chunk();
  687.     *   png_write_info(png_ptr, info_ptr);
  688.     *
  689.     * However, given the level of known- and unknown-chunk support in 1.1.0
  690.     * and up, this should no longer be necessary.
  691.     */
  692.  
  693.    /* Once we write out the header, the compression type on the text
  694.     * chunks gets changed to PNG_TEXT_COMPRESSION_NONE_WR or
  695.     * PNG_TEXT_COMPRESSION_zTXt_WR, so it doesn't get written out again
  696.     * at the end.
  697.     */
  698.  
  699.    /* set up the transformations you want.  Note that these are
  700.     * all optional.  Only call them if you want them.
  701.     */
  702.  
  703.    /* invert monochrome pixels */
  704.    png_set_invert_mono(png_ptr);
  705.  
  706.    /* Shift the pixels up to a legal bit depth and fill in
  707.     * as appropriate to correctly scale the image.
  708.     */
  709.    png_set_shift(png_ptr, &sig_bit);
  710.  
  711.    /* pack pixels into bytes */
  712.    png_set_packing(png_ptr);
  713.  
  714.    /* swap location of alpha bytes from ARGB to RGBA */
  715.    png_set_swap_alpha(png_ptr);
  716.  
  717.    /* Get rid of filler (OR ALPHA) bytes, pack XRGB/RGBX/ARGB/RGBA into
  718.     * RGB (4 channels -> 3 channels). The second parameter is not used.
  719.     */
  720.    png_set_filler(png_ptr, 0, PNG_FILLER_BEFORE);
  721.  
  722.    /* flip BGR pixels to RGB */
  723.    png_set_bgr(png_ptr);
  724.  
  725.    /* swap bytes of 16-bit files to most significant byte first */
  726.    png_set_swap(png_ptr);
  727.  
  728.    /* swap bits of 1, 2, 4 bit packed pixel formats */
  729.    png_set_packswap(png_ptr);
  730.  
  731.    /* turn on interlace handling if you are not using png_write_image() */
  732.    if (interlacing)
  733.       number_passes = png_set_interlace_handling(png_ptr);
  734.    else
  735.       number_passes = 1;
  736.  
  737.    /* The easiest way to write the image (you may have a different memory
  738.     * layout, however, so choose what fits your needs best).  You need to
  739.     * use the first method if you aren't handling interlacing yourself.
  740.     */
  741.    png_uint_32 k, height, width;
  742.    png_byte image[height][width*bytes_per_pixel];
  743.    png_bytep row_pointers[height];
  744.    for (k = 0; k < height; k++)
  745.      row_pointers[k] = image + k*width*bytes_per_pixel;
  746.  
  747.    /* One of the following output methods is REQUIRED */
  748. #ifdef entire /* write out the entire image data in one call */
  749.    png_write_image(png_ptr, row_pointers);
  750.  
  751.    /* the other way to write the image - deal with interlacing */
  752.  
  753. #else no_entire /* write out the image data by one or more scanlines */
  754.    /* The number of passes is either 1 for non-interlaced images,
  755.     * or 7 for interlaced images.
  756.     */
  757.    for (pass = 0; pass < number_passes; pass++)
  758.    {
  759.       /* Write a few rows at a time. */
  760.       png_write_rows(png_ptr, &row_pointers[first_row], number_of_rows);
  761.  
  762.       /* If you are only writing one row at a time, this works */
  763.       for (y = 0; y < height; y++)
  764.       {
  765.          png_write_rows(png_ptr, &row_pointers[y], 1);
  766.       }
  767.    }
  768. #endif no_entire /* use only one output method */
  769.  
  770.    /* You can write optional chunks like tEXt, zTXt, and tIME at the end
  771.     * as well.  Shouldn't be necessary in 1.1.0 and up as all the public
  772.     * chunks are supported and you can use png_set_unknown_chunks() to
  773.     * register unknown chunks into the info structure to be written out.
  774.     */
  775.  
  776.    /* It is REQUIRED to call this to finish writing the rest of the file */
  777.    png_write_end(png_ptr, info_ptr);
  778. #endif hilevel
  779.  
  780.    /* If you png_malloced a palette, free it here (don't free info_ptr->palette,
  781.       as recommended in versions 1.0.5m and earlier of this example; if
  782.       libpng mallocs info_ptr->palette, libpng will free it).  If you
  783.       allocated it with malloc() instead of png_malloc(), use free() instead
  784.       of png_free(). */
  785.    png_free(png_ptr, palette);
  786.    palette=NULL;
  787.  
  788.    /* Similarly, if you png_malloced any data that you passed in with
  789.       png_set_something(), such as a hist or trans array, free it here,
  790.       when you can be sure that libpng is through with it. */
  791.    png_free(png_ptr, trans);
  792.    trans=NULL;
  793.  
  794.    /* clean up after the write, and free any memory allocated */
  795.    png_destroy_write_struct(&png_ptr, &info_ptr);
  796.  
  797.    /* close the file */
  798.    fclose(fp);
  799.  
  800.    /* that's it */
  801.    return (OK);
  802. }
  803.  
  804. #endif /* if 0 */
  805.