[wxWidgets.git] / src / tiff / tools / tiff2rgba.c

/* $Id$ */

/*
 * Copyright (c) 1991-1997 Sam Leffler
 * Copyright (c) 1991-1997 Silicon Graphics, Inc.
 *
 * Permission to use, copy, modify, distribute, and sell this software and 
 * its documentation for any purpose is hereby granted without fee, provided
 * that (i) the above copyright notices and this permission notice appear in
 * all copies of the software and related documentation, and (ii) the names of
 * Sam Leffler and Silicon Graphics may not be used in any advertising or
 * publicity relating to the software without the specific, prior written
 * permission of Sam Leffler and Silicon Graphics.
 *
 * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
 *
 * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
 * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 * OF THIS SOFTWARE.
 */

#include "tif_config.h"

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif

#ifdef NEED_LIBPORT
# include "libport.h"
#endif

#include "tiffiop.h"
#include "tiffio.h"

#define	streq(a,b)	(strcmp(a,b) == 0)
#define	CopyField(tag, v) \
    if (TIFFGetField(in, tag, &v)) TIFFSetField(out, tag, v)

#ifndef howmany
#define	howmany(x, y)	(((x)+((y)-1))/(y))
#endif
#define	roundup(x, y)	(howmany(x,y)*((uint32)(y)))

uint16 compression = COMPRESSION_PACKBITS;
uint32 rowsperstrip = (uint32) -1;
int process_by_block = 0; /* default is whole image at once */
int no_alpha = 0;
int bigtiff_output = 0;


static int tiffcvt(TIFF* in, TIFF* out);
static void usage(int code);

int
main(int argc, char* argv[])
{
	TIFF *in, *out;
	int c;
	extern int optind;
	extern char *optarg;

	while ((c = getopt(argc, argv, "c:r:t:bn8")) != -1)
		switch (c) {
			case 'b':
				process_by_block = 1;
				break;

			case 'c':
				if (streq(optarg, "none"))
					compression = COMPRESSION_NONE;
				else if (streq(optarg, "packbits"))
					compression = COMPRESSION_PACKBITS;
				else if (streq(optarg, "lzw"))
					compression = COMPRESSION_LZW;
				else if (streq(optarg, "jpeg"))
					compression = COMPRESSION_JPEG;
				else if (streq(optarg, "zip"))
					compression = COMPRESSION_DEFLATE;
				else
					usage(-1);
				break;

			case 'r':
				rowsperstrip = atoi(optarg);
				break;

			case 't':
				rowsperstrip = atoi(optarg);
				break;

			case 'n':
				no_alpha = 1;
				break;

			case '8':
				bigtiff_output = 1;
				break;

			case '?':
				usage(0);
				/*NOTREACHED*/
		}

	if (argc - optind < 2)
		usage(-1);

	out = TIFFOpen(argv[argc-1], bigtiff_output?"w8":"w");
	if (out == NULL)
		return (-2);

	for (; optind < argc-1; optind++) {
		in = TIFFOpen(argv[optind], "r");
		if (in != NULL) {
			do {
				if (!tiffcvt(in, out) ||
				    !TIFFWriteDirectory(out)) {
					(void) TIFFClose(out);
					(void) TIFFClose(in);
					return (1);
				}
			} while (TIFFReadDirectory(in));
			(void) TIFFClose(in);
		}
	}
	(void) TIFFClose(out);
	return (0);
}

static int
cvt_by_tile( TIFF *in, TIFF *out )

{
    uint32* raster;			/* retrieve RGBA image */
    uint32  width, height;		/* image width & height */
    uint32  tile_width, tile_height;
    uint32  row, col;
    uint32  *wrk_line;
    int	    ok = 1;

    TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &width);
    TIFFGetField(in, TIFFTAG_IMAGELENGTH, &height);

    if( !TIFFGetField(in, TIFFTAG_TILEWIDTH, &tile_width)
        || !TIFFGetField(in, TIFFTAG_TILELENGTH, &tile_height) ) {
        TIFFError(TIFFFileName(in), "Source image not tiled");
        return (0);
    }
    
    TIFFSetField(out, TIFFTAG_TILEWIDTH, tile_width );
    TIFFSetField(out, TIFFTAG_TILELENGTH, tile_height );

    /*
     * Allocate tile buffer
     */
    raster = (uint32*)_TIFFmalloc(tile_width * tile_height * sizeof (uint32));
    if (raster == 0) {
        TIFFError(TIFFFileName(in), "No space for raster buffer");
        return (0);
    }

    /*
     * Allocate a scanline buffer for swapping during the vertical
     * mirroring pass.
     */
    wrk_line = (uint32*)_TIFFmalloc(tile_width * sizeof (uint32));
    if (!wrk_line) {
        TIFFError(TIFFFileName(in), "No space for raster scanline buffer");
        ok = 0;
    }
    
    /*
     * Loop over the tiles.
     */
    for( row = 0; ok && row < height; row += tile_height )
    {
        for( col = 0; ok && col < width; col += tile_width )
        {
            uint32 i_row;

            /* Read the tile into an RGBA array */
            if (!TIFFReadRGBATile(in, col, row, raster)) {
                ok = 0;
                break;
            }


	    /*
	     * XXX: raster array has 4-byte unsigned integer type, that is why
	     * we should rearrange it here.
	     */
#if HOST_BIGENDIAN
	    TIFFSwabArrayOfLong(raster, tile_width * tile_height);
#endif

            /*
             * For some reason the TIFFReadRGBATile() function chooses the
             * lower left corner as the origin.  Vertically mirror scanlines.
             */
            for( i_row = 0; i_row < tile_height / 2; i_row++ )
            {
                uint32	*top_line, *bottom_line;

                top_line = raster + tile_width * i_row;
                bottom_line = raster + tile_width * (tile_height-i_row-1);

                _TIFFmemcpy(wrk_line, top_line, 4*tile_width);
                _TIFFmemcpy(top_line, bottom_line, 4*tile_width);
                _TIFFmemcpy(bottom_line, wrk_line, 4*tile_width);
            }

            /*
             * Write out the result in a tile.
             */

            if( TIFFWriteEncodedTile( out,
                                      TIFFComputeTile( out, col, row, 0, 0),
                                      raster,
                                      4 * tile_width * tile_height ) == -1 )
            {
                ok = 0;
                break;
            }
        }
    }

    _TIFFfree( raster );
    _TIFFfree( wrk_line );

    return ok;
}

static int
cvt_by_strip( TIFF *in, TIFF *out )

{
    uint32* raster;			/* retrieve RGBA image */
    uint32  width, height;		/* image width & height */
    uint32  row;
    uint32  *wrk_line;
    int	    ok = 1;

    TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &width);
    TIFFGetField(in, TIFFTAG_IMAGELENGTH, &height);

    if( !TIFFGetField(in, TIFFTAG_ROWSPERSTRIP, &rowsperstrip) ) {
        TIFFError(TIFFFileName(in), "Source image not in strips");
        return (0);
    }
    
    TIFFSetField(out, TIFFTAG_ROWSPERSTRIP, rowsperstrip);

    /*
     * Allocate strip buffer
     */
    raster = (uint32*)_TIFFmalloc(width * rowsperstrip * sizeof (uint32));
    if (raster == 0) {
        TIFFError(TIFFFileName(in), "No space for raster buffer");
        return (0);
    }

    /*
     * Allocate a scanline buffer for swapping during the vertical
     * mirroring pass.
     */
    wrk_line = (uint32*)_TIFFmalloc(width * sizeof (uint32));
    if (!wrk_line) {
        TIFFError(TIFFFileName(in), "No space for raster scanline buffer");
        ok = 0;
    }
    
    /*
     * Loop over the strips.
     */
    for( row = 0; ok && row < height; row += rowsperstrip )
    {
        int	rows_to_write, i_row;

        /* Read the strip into an RGBA array */
        if (!TIFFReadRGBAStrip(in, row, raster)) {
            ok = 0;
            break;
        }

	/*
	 * XXX: raster array has 4-byte unsigned integer type, that is why
	 * we should rearrange it here.
	 */
#if HOST_BIGENDIAN
	TIFFSwabArrayOfLong(raster, width * rowsperstrip);
#endif

        /*
         * Figure out the number of scanlines actually in this strip.
         */
        if( row + rowsperstrip > height )
            rows_to_write = height - row;
        else
            rows_to_write = rowsperstrip;

        /*
         * For some reason the TIFFReadRGBAStrip() function chooses the
         * lower left corner as the origin.  Vertically mirror scanlines.
         */

        for( i_row = 0; i_row < rows_to_write / 2; i_row++ )
        {
            uint32	*top_line, *bottom_line;

            top_line = raster + width * i_row;
            bottom_line = raster + width * (rows_to_write-i_row-1);

            _TIFFmemcpy(wrk_line, top_line, 4*width);
            _TIFFmemcpy(top_line, bottom_line, 4*width);
            _TIFFmemcpy(bottom_line, wrk_line, 4*width);
        }

        /*
         * Write out the result in a strip
         */

        if( TIFFWriteEncodedStrip( out, row / rowsperstrip, raster,
                                   4 * rows_to_write * width ) == -1 )
        {
            ok = 0;
            break;
        }
    }

    _TIFFfree( raster );
    _TIFFfree( wrk_line );

    return ok;
}

/*
 * cvt_whole_image()
 *
 * read the whole image into one big RGBA buffer and then write out
 * strips from that.  This is using the traditional TIFFReadRGBAImage()
 * API that we trust.
 */

static int
cvt_whole_image( TIFF *in, TIFF *out )

{
    uint32* raster;			/* retrieve RGBA image */
    uint32  width, height;		/* image width & height */
    uint32  row;
    size_t pixel_count;
        
    TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &width);
    TIFFGetField(in, TIFFTAG_IMAGELENGTH, &height);
    pixel_count = width * height;

    /* XXX: Check the integer overflow. */
    if (!width || !height || pixel_count / width != height) {
        TIFFError(TIFFFileName(in),
		  "Malformed input file; can't allocate buffer for raster of %lux%lu size",
		  (unsigned long)width, (unsigned long)height);
        return 0;
    }

    rowsperstrip = TIFFDefaultStripSize(out, rowsperstrip);
    TIFFSetField(out, TIFFTAG_ROWSPERSTRIP, rowsperstrip);

    raster = (uint32*)_TIFFCheckMalloc(in, pixel_count, sizeof(uint32), "raster buffer");
    if (raster == 0) {
        TIFFError(TIFFFileName(in), "Failed to allocate buffer (%lu elements of %lu each)",
		  (unsigned long)pixel_count, (unsigned long)sizeof(uint32));
        return (0);
    }

    /* Read the image in one chunk into an RGBA array */
    if (!TIFFReadRGBAImageOriented(in, width, height, raster,
                                   ORIENTATION_TOPLEFT, 0)) {
        _TIFFfree(raster);
        return (0);
    }

    /*
     * XXX: raster array has 4-byte unsigned integer type, that is why
     * we should rearrange it here.
     */
#if HOST_BIGENDIAN
    TIFFSwabArrayOfLong(raster, width * height);
#endif

    /*
     * Do we want to strip away alpha components?
     */
    if (no_alpha)
    {
        size_t count = pixel_count;
        unsigned char *src, *dst;

	src = dst = (unsigned char *) raster;
        while (count > 0)
        {
	    *(dst++) = *(src++);
	    *(dst++) = *(src++);
	    *(dst++) = *(src++);
	    src++;
	    count--;
        }
    }

    /*
     * Write out the result in strips
     */
    for (row = 0; row < height; row += rowsperstrip)
    {
        unsigned char * raster_strip;
        int	rows_to_write;
        int	bytes_per_pixel;

        if (no_alpha)
        {
            raster_strip = ((unsigned char *) raster) + 3 * row * width;
            bytes_per_pixel = 3;
        }
        else
        {
            raster_strip = (unsigned char *) (raster + row * width);
            bytes_per_pixel = 4;
        }

        if( row + rowsperstrip > height )
            rows_to_write = height - row;
        else
            rows_to_write = rowsperstrip;

        if( TIFFWriteEncodedStrip( out, row / rowsperstrip, raster_strip,
                             bytes_per_pixel * rows_to_write * width ) == -1 )
        {
            _TIFFfree( raster );
            return 0;
        }
    }

    _TIFFfree( raster );

    return 1;
}


static int
tiffcvt(TIFF* in, TIFF* out)
{
	uint32 width, height;		/* image width & height */
	uint16 shortv;
	float floatv;
	char *stringv;
	uint32 longv;
        uint16 v[1];

	TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &width);
	TIFFGetField(in, TIFFTAG_IMAGELENGTH, &height);

	CopyField(TIFFTAG_SUBFILETYPE, longv);
	TIFFSetField(out, TIFFTAG_IMAGEWIDTH, width);
	TIFFSetField(out, TIFFTAG_IMAGELENGTH, height);
	TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, 8);
	TIFFSetField(out, TIFFTAG_COMPRESSION, compression);
	TIFFSetField(out, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_RGB);

	CopyField(TIFFTAG_FILLORDER, shortv);
	TIFFSetField(out, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT);

        if( no_alpha )
            TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 3);
        else
            TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 4);

        if( !no_alpha )
        {
            v[0] = EXTRASAMPLE_ASSOCALPHA;
            TIFFSetField(out, TIFFTAG_EXTRASAMPLES, 1, v);
        }

	CopyField(TIFFTAG_XRESOLUTION, floatv);
	CopyField(TIFFTAG_YRESOLUTION, floatv);
	CopyField(TIFFTAG_RESOLUTIONUNIT, shortv);
	TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
	TIFFSetField(out, TIFFTAG_SOFTWARE, TIFFGetVersion());
	CopyField(TIFFTAG_DOCUMENTNAME, stringv);

        if( process_by_block && TIFFIsTiled( in ) )
            return( cvt_by_tile( in, out ) );
        else if( process_by_block )
            return( cvt_by_strip( in, out ) );
        else
            return( cvt_whole_image( in, out ) );
}

static char* stuff[] = {
    "usage: tiff2rgba [-c comp] [-r rows] [-b] [-n] [-8] input... output",
    "where comp is one of the following compression algorithms:",
    " jpeg\t\tJPEG encoding",
    " zip\t\tLempel-Ziv & Welch encoding",
    " lzw\t\tLempel-Ziv & Welch encoding",
    " packbits\tPackBits encoding",
    " none\t\tno compression",
    "and the other options are:",
    " -r\trows/strip",
    " -b (progress by block rather than as a whole image)",
    " -n don't emit alpha component.",
    " -8 write BigTIFF file instead of ClassicTIFF",
    NULL
};

static void
usage(int code)
{
	char buf[BUFSIZ];
	int i;

	setbuf(stderr, buf);
        fprintf(stderr, "%s\n\n", TIFFGetVersion());
	for (i = 0; stuff[i] != NULL; i++)
		fprintf(stderr, "%s\n", stuff[i]);
	exit(code);
}

/* vim: set ts=8 sts=8 sw=8 noet: */
/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 8
 * fill-column: 78
 * End:
 */
Commit	Line	Data
8414a40c VZ	1	/* $Id$ */
	2
	3	/*
	4	* Copyright (c) 1991-1997 Sam Leffler
	5	* Copyright (c) 1991-1997 Silicon Graphics, Inc.
	6	*
	7	* Permission to use, copy, modify, distribute, and sell this software and
	8	* its documentation for any purpose is hereby granted without fee, provided
	9	* that (i) the above copyright notices and this permission notice appear in
	10	* all copies of the software and related documentation, and (ii) the names of
	11	* Sam Leffler and Silicon Graphics may not be used in any advertising or
	12	* publicity relating to the software without the specific, prior written
	13	* permission of Sam Leffler and Silicon Graphics.
80ed523f VZ	14	*
	15	* THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
	16	* EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
	17	* WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
	18	*
8414a40c VZ	19	* IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
	20	* ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
	21	* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
80ed523f VZ	22	* WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
80ed523f VZ	23	* LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
8414a40c VZ	24	* OF THIS SOFTWARE.
	25	*/
	26
	27	#include "tif_config.h"
	28
	29	#include <stdio.h>
	30	#include <string.h>
	31	#include <stdlib.h>
	32
	33	#ifdef HAVE_UNISTD_H
	34	# include <unistd.h>
	35	#endif
	36
80ed523f VZ	37	#ifdef NEED_LIBPORT
	38	# include "libport.h"
	39	#endif
	40
	41	#include "tiffiop.h"
8414a40c VZ	42	#include "tiffio.h"
	43
	44	#define streq(a,b) (strcmp(a,b) == 0)
	45	#define CopyField(tag, v) \
	46	if (TIFFGetField(in, tag, &v)) TIFFSetField(out, tag, v)
	47
	48	#ifndef howmany
	49	#define howmany(x, y) (((x)+((y)-1))/(y))
	50	#endif
	51	#define roundup(x, y) (howmany(x,y)*((uint32)(y)))
	52
80ed523f VZ	53	uint16 compression = COMPRESSION_PACKBITS;
	54	uint32 rowsperstrip = (uint32) -1;
	55	int process_by_block = 0; /* default is whole image at once */
	56	int no_alpha = 0;
	57	int bigtiff_output = 0;
8414a40c VZ	58
8414a40c VZ	59
80ed523f VZ	60	static int tiffcvt(TIFF* in, TIFF* out);
80ed523f VZ	61	static void usage(int code);
8414a40c VZ	62
	63	int
	64	main(int argc, char* argv[])
	65	{
80ed523f VZ	66	TIFF in, out;
	67	int c;
	68	extern int optind;
	69	extern char *optarg;
	70
	71	while ((c = getopt(argc, argv, "c:r:t:bn8")) != -1)
	72	switch (c) {
	73	case 'b':
	74	process_by_block = 1;
	75	break;
	76
	77	case 'c':
	78	if (streq(optarg, "none"))
	79	compression = COMPRESSION_NONE;
	80	else if (streq(optarg, "packbits"))
	81	compression = COMPRESSION_PACKBITS;
	82	else if (streq(optarg, "lzw"))
	83	compression = COMPRESSION_LZW;
	84	else if (streq(optarg, "jpeg"))
	85	compression = COMPRESSION_JPEG;
	86	else if (streq(optarg, "zip"))
	87	compression = COMPRESSION_DEFLATE;
	88	else
	89	usage(-1);
	90	break;
	91
	92	case 'r':
	93	rowsperstrip = atoi(optarg);
	94	break;
	95
	96	case 't':
	97	rowsperstrip = atoi(optarg);
	98	break;
	99
	100	case 'n':
	101	no_alpha = 1;
	102	break;
	103
	104	case '8':
	105	bigtiff_output = 1;
	106	break;
	107
	108	case '?':
	109	usage(0);
	110	/NOTREACHED/
	111	}
	112
	113	if (argc - optind < 2)
	114	usage(-1);
	115
	116	out = TIFFOpen(argv[argc-1], bigtiff_output?"w8":"w");
	117	if (out == NULL)
	118	return (-2);
	119
	120	for (; optind < argc-1; optind++) {
	121	in = TIFFOpen(argv[optind], "r");
	122	if (in != NULL) {
	123	do {
	124	if (!tiffcvt(in, out) \|\|
	125	!TIFFWriteDirectory(out)) {
	126	(void) TIFFClose(out);
	127	(void) TIFFClose(in);
	128	return (1);
	129	}
130	} while (TIFFReadDirectory(in));
131	(void) TIFFClose(in);
132	}
133	}
134	(void) TIFFClose(out);
135	return (0);
8414a40c VZ	136	}
	137
	138	static int
	139	cvt_by_tile( TIFF in, TIFF out )
	140
	141	{
	142	uint32* raster; /* retrieve RGBA image */
	143	uint32 width, height; /* image width & height */
	144	uint32 tile_width, tile_height;
	145	uint32 row, col;
	146	uint32 *wrk_line;
	147	int ok = 1;
	148
	149	TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &width);
	150	TIFFGetField(in, TIFFTAG_IMAGELENGTH, &height);
	151
	152	if( !TIFFGetField(in, TIFFTAG_TILEWIDTH, &tile_width)
	153	\|\| !TIFFGetField(in, TIFFTAG_TILELENGTH, &tile_height) ) {
	154	TIFFError(TIFFFileName(in), "Source image not tiled");
	155	return (0);
	156	}
	157
	158	TIFFSetField(out, TIFFTAG_TILEWIDTH, tile_width );
	159	TIFFSetField(out, TIFFTAG_TILELENGTH, tile_height );
	160
	161	/*
	162	* Allocate tile buffer
	163	*/
	164	raster = (uint32)_TIFFmalloc(tile_width tile_height * sizeof (uint32));
	165	if (raster == 0) {
	166	TIFFError(TIFFFileName(in), "No space for raster buffer");
	167	return (0);
	168	}
	169
	170	/*
	171	* Allocate a scanline buffer for swapping during the vertical
	172	* mirroring pass.
	173	*/
	174	wrk_line = (uint32)_TIFFmalloc(tile_width sizeof (uint32));
	175	if (!wrk_line) {
	176	TIFFError(TIFFFileName(in), "No space for raster scanline buffer");
	177	ok = 0;
	178	}
	179
	180	/*
	181	* Loop over the tiles.
	182	*/
	183	for( row = 0; ok && row < height; row += tile_height )
	184	{
	185	for( col = 0; ok && col < width; col += tile_width )
	186	{
	187	uint32 i_row;
	188
	189	/* Read the tile into an RGBA array */
	190	if (!TIFFReadRGBATile(in, col, row, raster)) {
	191	ok = 0;
	192	break;
	193	}
	194
80ed523f VZ	195
	196	/*
	197	* XXX: raster array has 4-byte unsigned integer type, that is why
	198	* we should rearrange it here.
	199	*/
	200	#if HOST_BIGENDIAN
	201	TIFFSwabArrayOfLong(raster, tile_width * tile_height);
	202	#endif
	203
8414a40c VZ	204	/*
	205	* For some reason the TIFFReadRGBATile() function chooses the
	206	* lower left corner as the origin. Vertically mirror scanlines.
	207	*/
	208	for( i_row = 0; i_row < tile_height / 2; i_row++ )
	209	{
	210	uint32 top_line, bottom_line;
	211
	212	top_line = raster + tile_width * i_row;
	213	bottom_line = raster + tile_width * (tile_height-i_row-1);
	214
	215	_TIFFmemcpy(wrk_line, top_line, 4*tile_width);
	216	_TIFFmemcpy(top_line, bottom_line, 4*tile_width);
	217	_TIFFmemcpy(bottom_line, wrk_line, 4*tile_width);
	218	}
	219
	220	/*
	221	* Write out the result in a tile.
	222	*/
	223
	224	if( TIFFWriteEncodedTile( out,
	225	TIFFComputeTile( out, col, row, 0, 0),
	226	raster,
	227	4 * tile_width * tile_height ) == -1 )
	228	{
	229	ok = 0;
	230	break;
	231	}
	232	}
	233	}
	234
	235	_TIFFfree( raster );
	236	_TIFFfree( wrk_line );
	237
	238	return ok;
	239	}
	240
	241	static int
	242	cvt_by_strip( TIFF in, TIFF out )
	243
	244	{
	245	uint32* raster; /* retrieve RGBA image */
	246	uint32 width, height; /* image width & height */
	247	uint32 row;
	248	uint32 *wrk_line;
	249	int ok = 1;
	250
	251	TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &width);
	252	TIFFGetField(in, TIFFTAG_IMAGELENGTH, &height);
	253
	254	if( !TIFFGetField(in, TIFFTAG_ROWSPERSTRIP, &rowsperstrip) ) {
	255	TIFFError(TIFFFileName(in), "Source image not in strips");
	256	return (0);
	257	}
	258
	259	TIFFSetField(out, TIFFTAG_ROWSPERSTRIP, rowsperstrip);
	260
	261	/*
	262	* Allocate strip buffer
	263	*/
	264	raster = (uint32)_TIFFmalloc(width rowsperstrip * sizeof (uint32));
	265	if (raster == 0) {
	266	TIFFError(TIFFFileName(in), "No space for raster buffer");
	267	return (0);
268	}
269
270	/*
271	* Allocate a scanline buffer for swapping during the vertical
272	* mirroring pass.
273	*/
274	wrk_line = (uint32)_TIFFmalloc(width sizeof (uint32));
275	if (!wrk_line) {
276	TIFFError(TIFFFileName(in), "No space for raster scanline buffer");
277	ok = 0;
278	}
279
280	/*
281	* Loop over the strips.
282	*/
283	for( row = 0; ok && row < height; row += rowsperstrip )
284	{
285	int rows_to_write, i_row;
286
287	/* Read the strip into an RGBA array */
288	if (!TIFFReadRGBAStrip(in, row, raster)) {
289	ok = 0;
290	break;
291	}
292
80ed523f VZ	293	/*
	294	* XXX: raster array has 4-byte unsigned integer type, that is why
	295	* we should rearrange it here.
	296	*/
	297	#if HOST_BIGENDIAN
	298	TIFFSwabArrayOfLong(raster, width * rowsperstrip);
	299	#endif
	300
8414a40c VZ	301	/*
	302	* Figure out the number of scanlines actually in this strip.
	303	*/
	304	if( row + rowsperstrip > height )
	305	rows_to_write = height - row;
	306	else
	307	rows_to_write = rowsperstrip;
	308
	309	/*
	310	* For some reason the TIFFReadRGBAStrip() function chooses the
	311	* lower left corner as the origin. Vertically mirror scanlines.
	312	*/
	313
	314	for( i_row = 0; i_row < rows_to_write / 2; i_row++ )
	315	{
	316	uint32 top_line, bottom_line;
	317
	318	top_line = raster + width * i_row;
	319	bottom_line = raster + width * (rows_to_write-i_row-1);
	320
	321	_TIFFmemcpy(wrk_line, top_line, 4*width);
	322	_TIFFmemcpy(top_line, bottom_line, 4*width);
	323	_TIFFmemcpy(bottom_line, wrk_line, 4*width);
	324	}
	325
	326	/*
	327	* Write out the result in a strip
	328	*/
	329
	330	if( TIFFWriteEncodedStrip( out, row / rowsperstrip, raster,
	331	4 * rows_to_write * width ) == -1 )
	332	{
	333	ok = 0;
	334	break;
	335	}
	336	}
	337
	338	_TIFFfree( raster );
	339	_TIFFfree( wrk_line );
	340
	341	return ok;
	342	}
	343
	344	/*
	345	* cvt_whole_image()
	346	*
	347	* read the whole image into one big RGBA buffer and then write out
	348	* strips from that. This is using the traditional TIFFReadRGBAImage()
	349	* API that we trust.
	350	*/
	351
	352	static int
	353	cvt_whole_image( TIFF in, TIFF out )
	354
	355	{
	356	uint32* raster; /* retrieve RGBA image */
	357	uint32 width, height; /* image width & height */
	358	uint32 row;
80ed523f	359	size_t pixel_count;
8414a40c VZ	360
	361	TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &width);
	362	TIFFGetField(in, TIFFTAG_IMAGELENGTH, &height);
80ed523f VZ	363	pixel_count = width * height;
	364
	365	/* XXX: Check the integer overflow. */
	366	if (!width \|\| !height \|\| pixel_count / width != height) {
	367	TIFFError(TIFFFileName(in),
	368	"Malformed input file; can't allocate buffer for raster of %lux%lu size",
	369	(unsigned long)width, (unsigned long)height);
	370	return 0;
	371	}
8414a40c VZ	372
	373	rowsperstrip = TIFFDefaultStripSize(out, rowsperstrip);
	374	TIFFSetField(out, TIFFTAG_ROWSPERSTRIP, rowsperstrip);
	375
80ed523f	376	raster = (uint32*)_TIFFCheckMalloc(in, pixel_count, sizeof(uint32), "raster buffer");
8414a40c	377	if (raster == 0) {
80ed523f VZ	378	TIFFError(TIFFFileName(in), "Failed to allocate buffer (%lu elements of %lu each)",
80ed523f VZ	379	(unsigned long)pixel_count, (unsigned long)sizeof(uint32));
8414a40c VZ	380	return (0);
	381	}
	382
	383	/* Read the image in one chunk into an RGBA array */
	384	if (!TIFFReadRGBAImageOriented(in, width, height, raster,
	385	ORIENTATION_TOPLEFT, 0)) {
	386	_TIFFfree(raster);
	387	return (0);
	388	}
	389
	390	/*
80ed523f VZ	391	* XXX: raster array has 4-byte unsigned integer type, that is why
	392	* we should rearrange it here.
	393	*/
	394	#if HOST_BIGENDIAN
	395	TIFFSwabArrayOfLong(raster, width * height);
	396	#endif
	397
	398	/*
	399	* Do we want to strip away alpha components?
	400	*/
	401	if (no_alpha)
8414a40c	402	{
80ed523f	403	size_t count = pixel_count;
8414a40c VZ	404	unsigned char src, dst;
8414a40c VZ	405
80ed523f VZ	406	src = dst = (unsigned char *) raster;
80ed523f VZ	407	while (count > 0)
8414a40c	408	{
80ed523f VZ	409	(dst++) = (src++);
	410	(dst++) = (src++);
	411	(dst++) = (src++);
	412	src++;
	413	count--;
8414a40c VZ	414	}
	415	}
	416
80ed523f VZ	417	/*
	418	* Write out the result in strips
	419	*/
	420	for (row = 0; row < height; row += rowsperstrip)
8414a40c VZ	421	{
	422	unsigned char * raster_strip;
	423	int rows_to_write;
	424	int bytes_per_pixel;
	425
80ed523f	426	if (no_alpha)
8414a40c VZ	427	{
	428	raster_strip = ((unsigned char ) raster) + 3 row * width;
	429	bytes_per_pixel = 3;
	430	}
	431	else
	432	{
	433	raster_strip = (unsigned char ) (raster + row width);
	434	bytes_per_pixel = 4;
	435	}
	436
	437	if( row + rowsperstrip > height )
	438	rows_to_write = height - row;
	439	else
	440	rows_to_write = rowsperstrip;
	441
	442	if( TIFFWriteEncodedStrip( out, row / rowsperstrip, raster_strip,
	443	bytes_per_pixel * rows_to_write * width ) == -1 )
	444	{
	445	_TIFFfree( raster );
	446	return 0;
	447	}
	448	}
	449
	450	_TIFFfree( raster );
	451
	452	return 1;
	453	}
	454
	455
	456	static int
	457	tiffcvt(TIFF* in, TIFF* out)
	458	{
	459	uint32 width, height; /* image width & height */
	460	uint16 shortv;
	461	float floatv;
	462	char *stringv;
	463	uint32 longv;
	464	uint16 v[1];
	465
	466	TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &width);
	467	TIFFGetField(in, TIFFTAG_IMAGELENGTH, &height);
	468
	469	CopyField(TIFFTAG_SUBFILETYPE, longv);
	470	TIFFSetField(out, TIFFTAG_IMAGEWIDTH, width);
	471	TIFFSetField(out, TIFFTAG_IMAGELENGTH, height);
	472	TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, 8);
	473	TIFFSetField(out, TIFFTAG_COMPRESSION, compression);
	474	TIFFSetField(out, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_RGB);
	475
	476	CopyField(TIFFTAG_FILLORDER, shortv);
	477	TIFFSetField(out, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT);
	478
	479	if( no_alpha )
	480	TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 3);
	481	else
	482	TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 4);
	483
	484	if( !no_alpha )
	485	{
	486	v[0] = EXTRASAMPLE_ASSOCALPHA;
	487	TIFFSetField(out, TIFFTAG_EXTRASAMPLES, 1, v);
	488	}
	489
	490	CopyField(TIFFTAG_XRESOLUTION, floatv);
491	CopyField(TIFFTAG_YRESOLUTION, floatv);
492	CopyField(TIFFTAG_RESOLUTIONUNIT, shortv);
493	TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
494	TIFFSetField(out, TIFFTAG_SOFTWARE, TIFFGetVersion());
495	CopyField(TIFFTAG_DOCUMENTNAME, stringv);
496
497	if( process_by_block && TIFFIsTiled( in ) )
498	return( cvt_by_tile( in, out ) );
499	else if( process_by_block )
500	return( cvt_by_strip( in, out ) );
501	else
502	return( cvt_whole_image( in, out ) );
503	}
504
505	static char* stuff[] = {
80ed523f	506	"usage: tiff2rgba [-c comp] [-r rows] [-b] [-n] [-8] input... output",
8414a40c VZ	507	"where comp is one of the following compression algorithms:",
	508	" jpeg\t\tJPEG encoding",
	509	" zip\t\tLempel-Ziv & Welch encoding",
	510	" lzw\t\tLempel-Ziv & Welch encoding",
	511	" packbits\tPackBits encoding",
	512	" none\t\tno compression",
	513	"and the other options are:",
	514	" -r\trows/strip",
	515	" -b (progress by block rather than as a whole image)",
	516	" -n don't emit alpha component.",
80ed523f	517	" -8 write BigTIFF file instead of ClassicTIFF",
8414a40c VZ	518	NULL
	519	};
	520
	521	static void
	522	usage(int code)
	523	{
	524	char buf[BUFSIZ];
	525	int i;
	526
	527	setbuf(stderr, buf);
	528	fprintf(stderr, "%s\n\n", TIFFGetVersion());
	529	for (i = 0; stuff[i] != NULL; i++)
	530	fprintf(stderr, "%s\n", stuff[i]);
	531	exit(code);
	532	}
	533
	534	/* vim: set ts=8 sts=8 sw=8 noet: */
80ed523f VZ	535	/*
	536	* Local Variables:
	537	* mode: c
	538	* c-basic-offset: 8
	539	* fill-column: 78
	540	* End:
	541	*/