summaryrefslogtreecommitdiff
path: root/tiff/tools/tiff2rgba.c
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2015-08-23 12:17:05 +0200
committerJörg Frings-Fürst <debian@jff-webhosting.net>2015-08-23 12:17:05 +0200
commitc0b89ac5bfb90835ef01573267020e42d4fe070c (patch)
tree733c16852d964d84b7565af4bdaff0bcca901b88 /tiff/tools/tiff2rgba.c
parent094535c010320967639e8e86f974d878e80baa72 (diff)
Imported Upstream version 1.8.0upstream/1.8.0
Diffstat (limited to 'tiff/tools/tiff2rgba.c')
-rw-r--r--tiff/tools/tiff2rgba.c548
1 files changed, 0 insertions, 548 deletions
diff --git a/tiff/tools/tiff2rgba.c b/tiff/tools/tiff2rgba.c
deleted file mode 100644
index 9ba2877..0000000
--- a/tiff/tools/tiff2rgba.c
+++ /dev/null
@@ -1,548 +0,0 @@
-/* $Id: tiff2rgba.c,v 1.13.2.3 2010-06-12 02:55:16 bfriesen Exp $ */
-
-/*
- * 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
-
-#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;
-
-
-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:bn")) != -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 '?':
- usage(0);
- /*NOTREACHED*/
- }
-
- if (argc - optind < 2)
- usage(-1);
-
- out = TIFFOpen(argv[argc-1], "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);
- return (1);
- }
- } while (TIFFReadDirectory(in));
- (void) TIFFClose(in);
- }
- }
- (void) TIFFClose(out);
- return (0);
-}
-
-#define multiply(a,b) TIFFSafeMultiply(tsize_t,a,b)
-
-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;
- tsize_t raster_size;
- 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_size = multiply(multiply(tile_width, tile_height), sizeof (uint32));
- if (!raster_size) {
- TIFFError(TIFFFileName(in),
- "Can't allocate buffer for raster of size %lux%lu",
- (unsigned long) tile_width, (unsigned long) tile_height);
- return (0);
- }
- raster = (uint32*)_TIFFmalloc(raster_size);
- if (raster == 0) {
- TIFFError(TIFFFileName(in), "No space for raster buffer");
- return (0);
- }
-
- /*
- * Allocate a scanline buffer for swapping during the vertical
- * mirroring pass. (Request can't overflow given prior checks.)
- */
- 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;
- tsize_t raster_size;
- 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_size = multiply(multiply(width, rowsperstrip), sizeof (uint32));
- if (!raster_size) {
- TIFFError(TIFFFileName(in),
- "Can't allocate buffer for raster of size %lux%lu",
- (unsigned long) width, (unsigned long) rowsperstrip);
- return (0);
- }
- raster = (uint32*)_TIFFmalloc(raster_size);
- if (raster == 0) {
- TIFFError(TIFFFileName(in), "No space for raster buffer");
- return (0);
- }
-
- /*
- * Allocate a scanline buffer for swapping during the vertical
- * mirroring pass. (Request can't overflow given prior checks.)
- */
- 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), "Requested buffer size is %lu elements %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] 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.",
- 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:
- */