
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <stdio.h>
#include <stdlib.h>
#include "gd.h"

/* If palette is true, we convert from truecolor to palette at the end,
   to test gdImageTrueColorToPalette and see file size/
   quality tradeoffs. */

void testDrawing (gdImagePtr im_in,
		  double scale, int blending, int palette, char *filename);

int
main (int argc, char *argv[])
{
#ifdef HAVE_LIBPNG
	/* Input and output files */
	FILE *in;

	/* Input image */
	gdImagePtr im_in = 0;

	if (argc != 2) {
		fprintf (stderr, "Usage: testac filename.png\n");
		exit (1);
	}
	/* Load original PNG, which should contain alpha channel
	   information. We will use it in two ways: preserving it
	   literally, for use with compatible browsers, and
	   compositing it ourselves against a background of our
	   choosing (alpha blending). We'll change its size
	   and try creating palette versions of it. */
	in = fopen (argv[1], "rb");
	if (!in) {
		fprintf (stderr, "Can't load %s.\n", argv[1]);
		exit (1);
	} else {
		im_in = gdImageCreateFromPng (in);
		fclose (in);
	}
	testDrawing (im_in, 1.0, 0, 0, "noblending-fullsize-truecolor.png");
	testDrawing (im_in, 1.0, 1, 0, "blending-fullsize-truecolor.png");
	testDrawing (im_in, 0.5, 0, 0, "noblending-halfsize-truecolor.png");
	testDrawing (im_in, 0.5, 1, 0, "blending-halfsize-truecolor.png");
	testDrawing (im_in, 2.0, 0, 0, "noblending-doublesize-truecolor.png");
	testDrawing (im_in, 2.0, 1, 0, "blending-doublesize-truecolor.png");
	testDrawing (im_in, 1.0, 0, 1, "noblending-fullsize-palette.png");
	testDrawing (im_in, 1.0, 1, 1, "blending-fullsize-palette.png");
	testDrawing (im_in, 0.5, 0, 1, "noblending-halfsize-palette.png");
	testDrawing (im_in, 0.5, 1, 1, "blending-halfsize-palette.png");
	testDrawing (im_in, 2.0, 0, 1, "noblending-doublesize-palette.png");
	testDrawing (im_in, 2.0, 1, 1, "blending-doublesize-palette.png");
	gdImageDestroy (im_in);
#else
	fprintf (stderr, "No PNG library support.\n");
#endif

	return 0;
}

/* If palette is true, we convert from truecolor to palette at the end,
   to test gdImageTrueColorToPalette and see file size/
   quality tradeoffs. */
void
testDrawing (gdImagePtr im_in,
	     double scale, int blending, int palette, char *filename)
{
	gdImagePtr im_out;
	FILE *out;
	/* Create output image. */
	im_out = gdImageCreateTrueColor ((int) (gdImageSX (im_in) * scale),
					 (int) (gdImageSY (im_in) * scale));
	/*
	   Request alpha blending. This causes future
	   drawing operations to perform alpha channel blending
	   with the background, resulting in an opaque image.
	   Without this call, pixels in the foreground color are
	   copied literally, *including* the alpha channel value,
	   resulting in an output image which is potentially
	   not opaque. This flag can be set and cleared as often
	   as desired. */
	gdImageAlphaBlending (im_out, blending);

	/* Flood with light blue. */
	gdImageFill (im_out, (int) (gdImageSX (im_in) * scale / 2),
		     (int) (gdImageSY (im_in) * scale / 2),
		     gdTrueColor (192, 192, 255));
	/* Copy the source image. Alpha blending should result in
	   compositing against red. With blending turned off, the
	   browser or viewer will composite against its preferred
	   background, or, if it does not support an alpha channel,
	   we will see the original colors for the pixels that
	   ought to be transparent or semitransparent. */
	gdImageCopyResampled (im_out, im_in,
			      0, 0,
			      0, 0,
			      (int) (gdImageSX (im_in) * scale),
			      (int) (gdImageSY (im_in) * scale), gdImageSX (im_in),
			      gdImageSY (im_in));
	/* Write PNG */
	out = fopen (filename, "wb");

	/* If this image is the result of alpha channel blending,
	   it will not contain an interesting alpha channel itself.
	   Save a little file size by not saving the alpha channel.
	   Otherwise the file would typically be slightly larger. */
	gdImageSaveAlpha (im_out, !blending);

	/* If requested, convert from truecolor to palette. */
	if (palette) {
		/* Dithering, 256 colors. */
		gdImageTrueColorToPalette (im_out, 1, 256);
	}

#ifdef HAVE_LIBPNG
	gdImagePng (im_out, out);
#else
	fprintf (stderr, "No PNG library support.\n");
#endif
	fclose (out);

	gdImageDestroy (im_out);
}
