src/tiff/tools/tiff2bw.c


/*
 * Copyright (c) 1988-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 <stdlib.h>
#include <string.h>
#include <ctype.h>

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

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

#include "tiffio.h"

#define	streq(a,b)	(strcmp((a),(b)) == 0)
#define	strneq(a,b,n)	(strncmp(a,b,n) == 0)

/* x% weighting -> fraction of full color */
#define	PCT(x)	(((x)*255+127)/100)
int	RED = PCT(30);		/* 30% */
int	GREEN = PCT(59);	/* 59% */
int	BLUE = PCT(11);		/* 11% */

static	void usage(void);
static	int processCompressOptions(char*);

static void
compresscontig(unsigned char* out, unsigned char* rgb, uint32 n)
{
	register int v, red = RED, green = GREEN, blue = BLUE;

	while (n-- > 0) {
		v = red*(*rgb++);
		v += green*(*rgb++);
		v += blue*(*rgb++);
		*out++ = v>>8;
	}
}

static void
compresssep(unsigned char* out,
	    unsigned char* r, unsigned char* g, unsigned char* b, uint32 n)
{
	register uint32 red = RED, green = GREEN, blue = BLUE;

	while (n-- > 0)
		*out++ = (unsigned char)
			((red*(*r++) + green*(*g++) + blue*(*b++)) >> 8);
}

static int
checkcmap(TIFF* tif, int n, uint16* r, uint16* g, uint16* b)
{
	while (n-- > 0)
		if (*r++ >= 256 || *g++ >= 256 || *b++ >= 256)
			return (16);
	TIFFWarning(TIFFFileName(tif), "Assuming 8-bit colormap");
	return (8);
}

static void
compresspalette(unsigned char* out, unsigned char* data, uint32 n, uint16* rmap, uint16* gmap, uint16* bmap)
{
	register int v, red = RED, green = GREEN, blue = BLUE;

	while (n-- > 0) {
		unsigned int ix = *data++;
		v = red*rmap[ix];
		v += green*gmap[ix];
		v += blue*bmap[ix];
		*out++ = v>>8;
	}
}

static	uint16 compression = (uint16) -1;
static	uint16 predictor = 0;
static	int jpegcolormode = JPEGCOLORMODE_RGB;
static	int quality = 75;		/* JPEG quality */

static	void cpTags(TIFF* in, TIFF* out);

int
main(int argc, char* argv[])
{
	uint32 rowsperstrip = (uint32) -1;
	TIFF *in, *out;
	uint32 w, h;
	uint16 samplesperpixel;
	uint16 bitspersample;
	uint16 config;
	uint16 photometric;
	uint16* red;
	uint16* green;
	uint16* blue;
	tsize_t rowsize;
	register uint32 row;
	register tsample_t s;
	unsigned char *inbuf, *outbuf;
	char thing[1024];
	int c;
	extern int optind;
	extern char *optarg;

	while ((c = getopt(argc, argv, "c:r:R:G:B:")) != -1)
		switch (c) {
		case 'c':		/* compression scheme */
			if (!processCompressOptions(optarg))
				usage();
			break;
		case 'r':		/* rows/strip */
			rowsperstrip = atoi(optarg);
			break;
		case 'R':
			RED = PCT(atoi(optarg));
			break;
		case 'G':
			GREEN = PCT(atoi(optarg));
			break;
		case 'B':
			BLUE = PCT(atoi(optarg));
			break;
		case '?':
			usage();
			/*NOTREACHED*/
		}
	if (argc - optind < 2)
		usage();
	in = TIFFOpen(argv[optind], "r");
	if (in == NULL)
		return (-1);
	photometric = 0;
	TIFFGetField(in, TIFFTAG_PHOTOMETRIC, &photometric);
	if (photometric != PHOTOMETRIC_RGB && photometric != PHOTOMETRIC_PALETTE ) {
		fprintf(stderr,
	    "%s: Bad photometric; can only handle RGB and Palette images.\n",
		    argv[optind]);
		return (-1);
	}
	TIFFGetField(in, TIFFTAG_SAMPLESPERPIXEL, &samplesperpixel);
	if (samplesperpixel != 1 && samplesperpixel != 3) {
		fprintf(stderr, "%s: Bad samples/pixel %u.\n",
		    argv[optind], samplesperpixel);
		return (-1);
	}
	TIFFGetField(in, TIFFTAG_BITSPERSAMPLE, &bitspersample);
	if (bitspersample != 8) {
		fprintf(stderr,
		    " %s: Sorry, only handle 8-bit samples.\n", argv[optind]);
		return (-1);
	}
	TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &w);
	TIFFGetField(in, TIFFTAG_IMAGELENGTH, &h);
	TIFFGetField(in, TIFFTAG_PLANARCONFIG, &config);

	out = TIFFOpen(argv[optind+1], "w");
	if (out == NULL)
		return (-1);
	TIFFSetField(out, TIFFTAG_IMAGEWIDTH, w);
	TIFFSetField(out, TIFFTAG_IMAGELENGTH, h);
	TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, 8);
	TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 1);
	TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
	cpTags(in, out);
	if (compression != (uint16) -1) {
		TIFFSetField(out, TIFFTAG_COMPRESSION, compression);
		switch (compression) {
		case COMPRESSION_JPEG:
			TIFFSetField(out, TIFFTAG_JPEGQUALITY, quality);
			TIFFSetField(out, TIFFTAG_JPEGCOLORMODE, jpegcolormode);
			break;
		case COMPRESSION_LZW:
		case COMPRESSION_DEFLATE:
			if (predictor != 0)
				TIFFSetField(out, TIFFTAG_PREDICTOR, predictor);
			break;
		}
	}
	TIFFSetField(out, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_MINISBLACK);
	sprintf(thing, "B&W version of %s", argv[optind]);
	TIFFSetField(out, TIFFTAG_IMAGEDESCRIPTION, thing);
	TIFFSetField(out, TIFFTAG_SOFTWARE, "tiff2bw");
	outbuf = (unsigned char *)_TIFFmalloc(TIFFScanlineSize(out));
	TIFFSetField(out, TIFFTAG_ROWSPERSTRIP,
	    TIFFDefaultStripSize(out, rowsperstrip));

#define	pack(a,b)	((a)<<8 | (b))
	switch (pack(photometric, config)) {
	case pack(PHOTOMETRIC_PALETTE, PLANARCONFIG_CONTIG):
	case pack(PHOTOMETRIC_PALETTE, PLANARCONFIG_SEPARATE):
		TIFFGetField(in, TIFFTAG_COLORMAP, &red, &green, &blue);
		/*
		 * Convert 16-bit colormap to 8-bit (unless it looks
		 * like an old-style 8-bit colormap).
		 */
		if (checkcmap(in, 1<<bitspersample, red, green, blue) == 16) {
			int i;
#define	CVT(x)		(((x) * 255L) / ((1L<<16)-1))
			for (i = (1<<bitspersample)-1; i >= 0; i--) {
				red[i] = CVT(red[i]);
				green[i] = CVT(green[i]);
				blue[i] = CVT(blue[i]);
			}
#undef CVT
		}
		inbuf = (unsigned char *)_TIFFmalloc(TIFFScanlineSize(in));
		for (row = 0; row < h; row++) {
			if (TIFFReadScanline(in, inbuf, row, 0) < 0)
				break;
			compresspalette(outbuf, inbuf, w, red, green, blue);
			if (TIFFWriteScanline(out, outbuf, row, 0) < 0)
				break;
		}
		break;
	case pack(PHOTOMETRIC_RGB, PLANARCONFIG_CONTIG):
		inbuf = (unsigned char *)_TIFFmalloc(TIFFScanlineSize(in));
		for (row = 0; row < h; row++) {
			if (TIFFReadScanline(in, inbuf, row, 0) < 0)
				break;
			compresscontig(outbuf, inbuf, w);
			if (TIFFWriteScanline(out, outbuf, row, 0) < 0)
				break;
		}
		break;
	case pack(PHOTOMETRIC_RGB, PLANARCONFIG_SEPARATE):
		rowsize = TIFFScanlineSize(in);
		inbuf = (unsigned char *)_TIFFmalloc(3*rowsize);
		for (row = 0; row < h; row++) {
			for (s = 0; s < 3; s++)
				if (TIFFReadScanline(in,
				    inbuf+s*rowsize, row, s) < 0)
					 return (-1);
			compresssep(outbuf,
			    inbuf, inbuf+rowsize, inbuf+2*rowsize, w);
			if (TIFFWriteScanline(out, outbuf, row, 0) < 0)
				break;
		}
		break;
	}
#undef pack
	TIFFClose(out);
	return (0);
}

static int
processCompressOptions(char* opt)
{
	if (streq(opt, "none"))
		compression = COMPRESSION_NONE;
	else if (streq(opt, "packbits"))
		compression = COMPRESSION_PACKBITS;
	else if (strneq(opt, "jpeg", 4)) {
		char* cp = strchr(opt, ':');

                compression = COMPRESSION_JPEG;
                while( cp )
                {
                    if (isdigit((int)cp[1]))
			quality = atoi(cp+1);
                    else if (cp[1] == 'r' )
			jpegcolormode = JPEGCOLORMODE_RAW;
                    else
                        usage();

                    cp = strchr(cp+1,':');
                }
	} else if (strneq(opt, "lzw", 3)) {
		char* cp = strchr(opt, ':');
		if (cp)
			predictor = atoi(cp+1);
		compression = COMPRESSION_LZW;
	} else if (strneq(opt, "zip", 3)) {
		char* cp = strchr(opt, ':');
		if (cp)
			predictor = atoi(cp+1);
		compression = COMPRESSION_DEFLATE;
	} else
		return (0);
	return (1);
}

#define	CopyField(tag, v) \
    if (TIFFGetField(in, tag, &v)) TIFFSetField(out, tag, v)
#define	CopyField2(tag, v1, v2) \
    if (TIFFGetField(in, tag, &v1, &v2)) TIFFSetField(out, tag, v1, v2)
#define	CopyField3(tag, v1, v2, v3) \
    if (TIFFGetField(in, tag, &v1, &v2, &v3)) TIFFSetField(out, tag, v1, v2, v3)
#define	CopyField4(tag, v1, v2, v3, v4) \
    if (TIFFGetField(in, tag, &v1, &v2, &v3, &v4)) TIFFSetField(out, tag, v1, v2, v3, v4)

static void
cpTag(TIFF* in, TIFF* out, uint16 tag, uint16 count, TIFFDataType type)
{
	switch (type) {
	case TIFF_SHORT:
		if (count == 1) {
			uint16 shortv;
			CopyField(tag, shortv);
		} else if (count == 2) {
			uint16 shortv1, shortv2;
			CopyField2(tag, shortv1, shortv2);
		} else if (count == 4) {
			uint16 *tr, *tg, *tb, *ta;
			CopyField4(tag, tr, tg, tb, ta);
		} else if (count == (uint16) -1) {
			uint16 shortv1;
			uint16* shortav;
			CopyField2(tag, shortv1, shortav);
		}
		break;
	case TIFF_LONG:
		{ uint32 longv;
		  CopyField(tag, longv);
		}
		break;
	case TIFF_RATIONAL:
		if (count == 1) {
			float floatv;
			CopyField(tag, floatv);
		} else if (count == (uint16) -1) {
			float* floatav;
			CopyField(tag, floatav);
		}
		break;
	case TIFF_ASCII:
		{ char* stringv;
		  CopyField(tag, stringv);
		}
		break;
	case TIFF_DOUBLE:
		if (count == 1) {
			double doublev;
			CopyField(tag, doublev);
		} else if (count == (uint16) -1) {
			double* doubleav;
			CopyField(tag, doubleav);
		}
		break;
          default:
                TIFFError(TIFFFileName(in),
                          "Data type %d is not supported, tag %d skipped.",
                          tag, type);
	}
}

#undef CopyField4
#undef CopyField3
#undef CopyField2
#undef CopyField

static struct cpTag {
	uint16	tag;
	uint16	count;
	TIFFDataType type;
} tags[] = {
	{ TIFFTAG_SUBFILETYPE,		1, TIFF_LONG },
	{ TIFFTAG_THRESHHOLDING,	1, TIFF_SHORT },
	{ TIFFTAG_DOCUMENTNAME,		1, TIFF_ASCII },
	{ TIFFTAG_IMAGEDESCRIPTION,	1, TIFF_ASCII },
	{ TIFFTAG_MAKE,			1, TIFF_ASCII },
	{ TIFFTAG_MODEL,		1, TIFF_ASCII },
	{ TIFFTAG_MINSAMPLEVALUE,	1, TIFF_SHORT },
	{ TIFFTAG_MAXSAMPLEVALUE,	1, TIFF_SHORT },
	{ TIFFTAG_XRESOLUTION,		1, TIFF_RATIONAL },
	{ TIFFTAG_YRESOLUTION,		1, TIFF_RATIONAL },
	{ TIFFTAG_PAGENAME,		1, TIFF_ASCII },
	{ TIFFTAG_XPOSITION,		1, TIFF_RATIONAL },
	{ TIFFTAG_YPOSITION,		1, TIFF_RATIONAL },
	{ TIFFTAG_RESOLUTIONUNIT,	1, TIFF_SHORT },
	{ TIFFTAG_SOFTWARE,		1, TIFF_ASCII },
	{ TIFFTAG_DATETIME,		1, TIFF_ASCII },
	{ TIFFTAG_ARTIST,		1, TIFF_ASCII },
	{ TIFFTAG_HOSTCOMPUTER,		1, TIFF_ASCII },
	{ TIFFTAG_WHITEPOINT,		2, TIFF_RATIONAL },
	{ TIFFTAG_PRIMARYCHROMATICITIES,(uint16) -1,TIFF_RATIONAL },
	{ TIFFTAG_HALFTONEHINTS,	2, TIFF_SHORT },
	{ TIFFTAG_INKSET,		1, TIFF_SHORT },
	{ TIFFTAG_DOTRANGE,		2, TIFF_SHORT },
	{ TIFFTAG_TARGETPRINTER,	1, TIFF_ASCII },
	{ TIFFTAG_SAMPLEFORMAT,		1, TIFF_SHORT },
	{ TIFFTAG_YCBCRCOEFFICIENTS,	(uint16) -1,TIFF_RATIONAL },
	{ TIFFTAG_YCBCRSUBSAMPLING,	2, TIFF_SHORT },
	{ TIFFTAG_YCBCRPOSITIONING,	1, TIFF_SHORT },
	{ TIFFTAG_REFERENCEBLACKWHITE,	(uint16) -1,TIFF_RATIONAL },
	{ TIFFTAG_EXTRASAMPLES,		(uint16) -1, TIFF_SHORT },
	{ TIFFTAG_SMINSAMPLEVALUE,	1, TIFF_DOUBLE },
	{ TIFFTAG_SMAXSAMPLEVALUE,	1, TIFF_DOUBLE },
	{ TIFFTAG_STONITS,		1, TIFF_DOUBLE },
};
#define	NTAGS	(sizeof (tags) / sizeof (tags[0]))

static void
cpTags(TIFF* in, TIFF* out)
{
    struct cpTag *p;
    for (p = tags; p < &tags[NTAGS]; p++)
	cpTag(in, out, p->tag, p->count, p->type);
}
#undef NTAGS

char* stuff[] = {
"usage: tiff2bw [options] input.tif output.tif",
"where options are:",
" -R %		use #% from red channel",
" -G %		use #% from green channel",
" -B %		use #% from blue channel",
"",
" -r #		make each strip have no more than # rows",
"",
" -c lzw[:opts]	compress output with Lempel-Ziv & Welch encoding",
" -c zip[:opts]	compress output with deflate encoding",
" -c packbits	compress output with packbits encoding",
" -c g3[:opts]	compress output with CCITT Group 3 encoding",
" -c g4		compress output with CCITT Group 4 encoding",
" -c none	use no compression algorithm on output",
"",
"LZW and deflate options:",
" #		set predictor value",
"For example, -c lzw:2 to get LZW-encoded data with horizontal differencing",
NULL
};

static void
usage(void)
{
	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(-1);
}

/* vim: set ts=8 sts=8 sw=8 noet: */
/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 8
 * fill-column: 78
 * End:
 */
Commit	Line	Data
	1
	2	/*
	3	* Copyright (c) 1988-1997 Sam Leffler
	4	* Copyright (c) 1991-1997 Silicon Graphics, Inc.
	5	*
	6	* Permission to use, copy, modify, distribute, and sell this software and
	7	* its documentation for any purpose is hereby granted without fee, provided
	8	* that (i) the above copyright notices and this permission notice appear in
	9	* all copies of the software and related documentation, and (ii) the names of
	10	* Sam Leffler and Silicon Graphics may not be used in any advertising or
	11	* publicity relating to the software without the specific, prior written
	12	* permission of Sam Leffler and Silicon Graphics.
	13	*
	14	* THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
	15	* EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
	16	* WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
	17	*
	18	* IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
	19	* ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
	20	* OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
	21	* WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
	22	* LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
	23	* OF THIS SOFTWARE.
	24	*/
	25
	26	#include "tif_config.h"
	27
	28	#include <stdio.h>
	29	#include <stdlib.h>
	30	#include <string.h>
	31	#include <ctype.h>
	32
	33	#ifdef HAVE_UNISTD_H
	34	# include <unistd.h>
	35	#endif
	36
	37	#ifdef NEED_LIBPORT
	38	# include "libport.h"
	39	#endif
	40
	41	#include "tiffio.h"
	42
	43	#define streq(a,b) (strcmp((a),(b)) == 0)
	44	#define strneq(a,b,n) (strncmp(a,b,n) == 0)
	45
	46	/* x% weighting -> fraction of full color */
	47	#define PCT(x) (((x)*255+127)/100)
	48	int RED = PCT(30); /* 30% */
	49	int GREEN = PCT(59); /* 59% */
	50	int BLUE = PCT(11); /* 11% */
	51
	52	static void usage(void);
	53	static int processCompressOptions(char*);
	54
	55	static void
	56	compresscontig(unsigned char* out, unsigned char* rgb, uint32 n)
	57	{
	58	register int v, red = RED, green = GREEN, blue = BLUE;
	59
	60	while (n-- > 0) {
	61	v = red(rgb++);
	62	v += green(rgb++);
	63	v += blue(rgb++);
	64	*out++ = v>>8;
	65	}
	66	}
	67
	68	static void
	69	compresssep(unsigned char* out,
	70	unsigned char* r, unsigned char* g, unsigned char* b, uint32 n)
	71	{
	72	register uint32 red = RED, green = GREEN, blue = BLUE;
	73
	74	while (n-- > 0)
	75	*out++ = (unsigned char)
	76	((red(r++) + green(g++) + blue(b++)) >> 8);
	77	}
	78
	79	static int
	80	checkcmap(TIFF* tif, int n, uint16* r, uint16* g, uint16* b)
	81	{
	82	while (n-- > 0)
	83	if (r++ >= 256 \|\| g++ >= 256 \|\| *b++ >= 256)
	84	return (16);
	85	TIFFWarning(TIFFFileName(tif), "Assuming 8-bit colormap");
	86	return (8);
	87	}
	88
	89	static void
	90	compresspalette(unsigned char* out, unsigned char* data, uint32 n, uint16* rmap, uint16* gmap, uint16* bmap)
	91	{
	92	register int v, red = RED, green = GREEN, blue = BLUE;
	93
	94	while (n-- > 0) {
	95	unsigned int ix = *data++;
	96	v = red*rmap[ix];
	97	v += green*gmap[ix];
	98	v += blue*bmap[ix];
	99	*out++ = v>>8;
	100	}
	101	}
	102
	103	static uint16 compression = (uint16) -1;
	104	static uint16 predictor = 0;
	105	static int jpegcolormode = JPEGCOLORMODE_RGB;
	106	static int quality = 75; /* JPEG quality */
	107
	108	static void cpTags(TIFF* in, TIFF* out);
	109
	110	int
	111	main(int argc, char* argv[])
	112	{
	113	uint32 rowsperstrip = (uint32) -1;
	114	TIFF in, out;
	115	uint32 w, h;
	116	uint16 samplesperpixel;
	117	uint16 bitspersample;
	118	uint16 config;
	119	uint16 photometric;
	120	uint16* red;
	121	uint16* green;
	122	uint16* blue;
	123	tsize_t rowsize;
	124	register uint32 row;
	125	register tsample_t s;
	126	unsigned char inbuf, outbuf;
	127	char thing[1024];
	128	int c;
	129	extern int optind;
	130	extern char *optarg;
	131
	132	while ((c = getopt(argc, argv, "c:r:R:G:B:")) != -1)
	133	switch (c) {
	134	case 'c': /* compression scheme */
	135	if (!processCompressOptions(optarg))
	136	usage();
	137	break;
	138	case 'r': /* rows/strip */
	139	rowsperstrip = atoi(optarg);
	140	break;
	141	case 'R':
	142	RED = PCT(atoi(optarg));
	143	break;
	144	case 'G':
	145	GREEN = PCT(atoi(optarg));
	146	break;
	147	case 'B':
	148	BLUE = PCT(atoi(optarg));
	149	break;
	150	case '?':
	151	usage();
	152	/NOTREACHED/
	153	}
	154	if (argc - optind < 2)
	155	usage();
	156	in = TIFFOpen(argv[optind], "r");
	157	if (in == NULL)
	158	return (-1);
	159	photometric = 0;
	160	TIFFGetField(in, TIFFTAG_PHOTOMETRIC, &photometric);
	161	if (photometric != PHOTOMETRIC_RGB && photometric != PHOTOMETRIC_PALETTE ) {
	162	fprintf(stderr,
	163	"%s: Bad photometric; can only handle RGB and Palette images.\n",
	164	argv[optind]);
	165	return (-1);
	166	}
	167	TIFFGetField(in, TIFFTAG_SAMPLESPERPIXEL, &samplesperpixel);
	168	if (samplesperpixel != 1 && samplesperpixel != 3) {
	169	fprintf(stderr, "%s: Bad samples/pixel %u.\n",
	170	argv[optind], samplesperpixel);
	171	return (-1);
	172	}
	173	TIFFGetField(in, TIFFTAG_BITSPERSAMPLE, &bitspersample);
	174	if (bitspersample != 8) {
	175	fprintf(stderr,
	176	" %s: Sorry, only handle 8-bit samples.\n", argv[optind]);
	177	return (-1);
	178	}
	179	TIFFGetField(in, TIFFTAG_IMAGEWIDTH, &w);
	180	TIFFGetField(in, TIFFTAG_IMAGELENGTH, &h);
	181	TIFFGetField(in, TIFFTAG_PLANARCONFIG, &config);
	182
	183	out = TIFFOpen(argv[optind+1], "w");
	184	if (out == NULL)
	185	return (-1);
	186	TIFFSetField(out, TIFFTAG_IMAGEWIDTH, w);
	187	TIFFSetField(out, TIFFTAG_IMAGELENGTH, h);
	188	TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, 8);
	189	TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 1);
	190	TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
	191	cpTags(in, out);
	192	if (compression != (uint16) -1) {
	193	TIFFSetField(out, TIFFTAG_COMPRESSION, compression);
	194	switch (compression) {
	195	case COMPRESSION_JPEG:
	196	TIFFSetField(out, TIFFTAG_JPEGQUALITY, quality);
	197	TIFFSetField(out, TIFFTAG_JPEGCOLORMODE, jpegcolormode);
	198	break;
	199	case COMPRESSION_LZW:
	200	case COMPRESSION_DEFLATE:
	201	if (predictor != 0)
	202	TIFFSetField(out, TIFFTAG_PREDICTOR, predictor);
	203	break;
	204	}
	205	}
	206	TIFFSetField(out, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_MINISBLACK);
	207	sprintf(thing, "B&W version of %s", argv[optind]);
	208	TIFFSetField(out, TIFFTAG_IMAGEDESCRIPTION, thing);
	209	TIFFSetField(out, TIFFTAG_SOFTWARE, "tiff2bw");
	210	outbuf = (unsigned char *)_TIFFmalloc(TIFFScanlineSize(out));
	211	TIFFSetField(out, TIFFTAG_ROWSPERSTRIP,
	212	TIFFDefaultStripSize(out, rowsperstrip));
	213
	214	#define pack(a,b) ((a)<<8 \| (b))
	215	switch (pack(photometric, config)) {
	216	case pack(PHOTOMETRIC_PALETTE, PLANARCONFIG_CONTIG):
	217	case pack(PHOTOMETRIC_PALETTE, PLANARCONFIG_SEPARATE):
	218	TIFFGetField(in, TIFFTAG_COLORMAP, &red, &green, &blue);
	219	/*
	220	* Convert 16-bit colormap to 8-bit (unless it looks
	221	* like an old-style 8-bit colormap).
	222	*/
	223	if (checkcmap(in, 1<<bitspersample, red, green, blue) == 16) {
	224	int i;
	225	#define CVT(x) (((x) * 255L) / ((1L<<16)-1))
	226	for (i = (1<<bitspersample)-1; i >= 0; i--) {
	227	red[i] = CVT(red[i]);
	228	green[i] = CVT(green[i]);
	229	blue[i] = CVT(blue[i]);
	230	}
	231	#undef CVT
	232	}
	233	inbuf = (unsigned char *)_TIFFmalloc(TIFFScanlineSize(in));
	234	for (row = 0; row < h; row++) {
	235	if (TIFFReadScanline(in, inbuf, row, 0) < 0)
	236	break;
	237	compresspalette(outbuf, inbuf, w, red, green, blue);
	238	if (TIFFWriteScanline(out, outbuf, row, 0) < 0)
	239	break;
	240	}
	241	break;
	242	case pack(PHOTOMETRIC_RGB, PLANARCONFIG_CONTIG):
	243	inbuf = (unsigned char *)_TIFFmalloc(TIFFScanlineSize(in));
	244	for (row = 0; row < h; row++) {
	245	if (TIFFReadScanline(in, inbuf, row, 0) < 0)
	246	break;
	247	compresscontig(outbuf, inbuf, w);
	248	if (TIFFWriteScanline(out, outbuf, row, 0) < 0)
	249	break;
	250	}
	251	break;
	252	case pack(PHOTOMETRIC_RGB, PLANARCONFIG_SEPARATE):
	253	rowsize = TIFFScanlineSize(in);
	254	inbuf = (unsigned char )_TIFFmalloc(3rowsize);
	255	for (row = 0; row < h; row++) {
	256	for (s = 0; s < 3; s++)
	257	if (TIFFReadScanline(in,
	258	inbuf+s*rowsize, row, s) < 0)
	259	return (-1);
	260	compresssep(outbuf,
	261	inbuf, inbuf+rowsize, inbuf+2*rowsize, w);
	262	if (TIFFWriteScanline(out, outbuf, row, 0) < 0)
	263	break;
	264	}
	265	break;
	266	}
	267	#undef pack
	268	TIFFClose(out);
	269	return (0);
	270	}
	271
	272	static int
	273	processCompressOptions(char* opt)
	274	{
	275	if (streq(opt, "none"))
	276	compression = COMPRESSION_NONE;
	277	else if (streq(opt, "packbits"))
	278	compression = COMPRESSION_PACKBITS;
	279	else if (strneq(opt, "jpeg", 4)) {
	280	char* cp = strchr(opt, ':');
	281
	282	compression = COMPRESSION_JPEG;
	283	while( cp )
	284	{
	285	if (isdigit((int)cp[1]))
	286	quality = atoi(cp+1);
	287	else if (cp[1] == 'r' )
	288	jpegcolormode = JPEGCOLORMODE_RAW;
	289	else
	290	usage();
	291
	292	cp = strchr(cp+1,':');
	293	}
	294	} else if (strneq(opt, "lzw", 3)) {
	295	char* cp = strchr(opt, ':');
	296	if (cp)
	297	predictor = atoi(cp+1);
	298	compression = COMPRESSION_LZW;
	299	} else if (strneq(opt, "zip", 3)) {
	300	char* cp = strchr(opt, ':');
	301	if (cp)
	302	predictor = atoi(cp+1);
	303	compression = COMPRESSION_DEFLATE;
	304	} else
	305	return (0);
	306	return (1);
	307	}
	308
	309	#define CopyField(tag, v) \
	310	if (TIFFGetField(in, tag, &v)) TIFFSetField(out, tag, v)
	311	#define CopyField2(tag, v1, v2) \
	312	if (TIFFGetField(in, tag, &v1, &v2)) TIFFSetField(out, tag, v1, v2)
	313	#define CopyField3(tag, v1, v2, v3) \
	314	if (TIFFGetField(in, tag, &v1, &v2, &v3)) TIFFSetField(out, tag, v1, v2, v3)
	315	#define CopyField4(tag, v1, v2, v3, v4) \
	316	if (TIFFGetField(in, tag, &v1, &v2, &v3, &v4)) TIFFSetField(out, tag, v1, v2, v3, v4)
	317
	318	static void
	319	cpTag(TIFF* in, TIFF* out, uint16 tag, uint16 count, TIFFDataType type)
	320	{
	321	switch (type) {
	322	case TIFF_SHORT:
	323	if (count == 1) {
	324	uint16 shortv;
	325	CopyField(tag, shortv);
	326	} else if (count == 2) {
	327	uint16 shortv1, shortv2;
	328	CopyField2(tag, shortv1, shortv2);
	329	} else if (count == 4) {
	330	uint16 tr, tg, tb, ta;
	331	CopyField4(tag, tr, tg, tb, ta);
	332	} else if (count == (uint16) -1) {
	333	uint16 shortv1;
	334	uint16* shortav;
	335	CopyField2(tag, shortv1, shortav);
	336	}
	337	break;
	338	case TIFF_LONG:
	339	{ uint32 longv;
	340	CopyField(tag, longv);
	341	}
	342	break;
	343	case TIFF_RATIONAL:
	344	if (count == 1) {
	345	float floatv;
	346	CopyField(tag, floatv);
	347	} else if (count == (uint16) -1) {
	348	float* floatav;
	349	CopyField(tag, floatav);
	350	}
	351	break;
	352	case TIFF_ASCII:
	353	{ char* stringv;
	354	CopyField(tag, stringv);
	355	}
	356	break;
	357	case TIFF_DOUBLE:
	358	if (count == 1) {
	359	double doublev;
	360	CopyField(tag, doublev);
	361	} else if (count == (uint16) -1) {
	362	double* doubleav;
	363	CopyField(tag, doubleav);
	364	}
	365	break;
	366	default:
	367	TIFFError(TIFFFileName(in),
	368	"Data type %d is not supported, tag %d skipped.",
	369	tag, type);
	370	}
	371	}
	372
	373	#undef CopyField4
	374	#undef CopyField3
	375	#undef CopyField2
	376	#undef CopyField
	377
	378	static struct cpTag {
	379	uint16 tag;
	380	uint16 count;
	381	TIFFDataType type;
	382	} tags[] = {
	383	{ TIFFTAG_SUBFILETYPE, 1, TIFF_LONG },
	384	{ TIFFTAG_THRESHHOLDING, 1, TIFF_SHORT },
	385	{ TIFFTAG_DOCUMENTNAME, 1, TIFF_ASCII },
	386	{ TIFFTAG_IMAGEDESCRIPTION, 1, TIFF_ASCII },
	387	{ TIFFTAG_MAKE, 1, TIFF_ASCII },
	388	{ TIFFTAG_MODEL, 1, TIFF_ASCII },
	389	{ TIFFTAG_MINSAMPLEVALUE, 1, TIFF_SHORT },
	390	{ TIFFTAG_MAXSAMPLEVALUE, 1, TIFF_SHORT },
	391	{ TIFFTAG_XRESOLUTION, 1, TIFF_RATIONAL },
	392	{ TIFFTAG_YRESOLUTION, 1, TIFF_RATIONAL },
	393	{ TIFFTAG_PAGENAME, 1, TIFF_ASCII },
	394	{ TIFFTAG_XPOSITION, 1, TIFF_RATIONAL },
	395	{ TIFFTAG_YPOSITION, 1, TIFF_RATIONAL },
	396	{ TIFFTAG_RESOLUTIONUNIT, 1, TIFF_SHORT },
	397	{ TIFFTAG_SOFTWARE, 1, TIFF_ASCII },
	398	{ TIFFTAG_DATETIME, 1, TIFF_ASCII },
	399	{ TIFFTAG_ARTIST, 1, TIFF_ASCII },
	400	{ TIFFTAG_HOSTCOMPUTER, 1, TIFF_ASCII },
	401	{ TIFFTAG_WHITEPOINT, 2, TIFF_RATIONAL },
	402	{ TIFFTAG_PRIMARYCHROMATICITIES,(uint16) -1,TIFF_RATIONAL },
	403	{ TIFFTAG_HALFTONEHINTS, 2, TIFF_SHORT },
	404	{ TIFFTAG_INKSET, 1, TIFF_SHORT },
	405	{ TIFFTAG_DOTRANGE, 2, TIFF_SHORT },
	406	{ TIFFTAG_TARGETPRINTER, 1, TIFF_ASCII },
	407	{ TIFFTAG_SAMPLEFORMAT, 1, TIFF_SHORT },
	408	{ TIFFTAG_YCBCRCOEFFICIENTS, (uint16) -1,TIFF_RATIONAL },
	409	{ TIFFTAG_YCBCRSUBSAMPLING, 2, TIFF_SHORT },
	410	{ TIFFTAG_YCBCRPOSITIONING, 1, TIFF_SHORT },
	411	{ TIFFTAG_REFERENCEBLACKWHITE, (uint16) -1,TIFF_RATIONAL },
	412	{ TIFFTAG_EXTRASAMPLES, (uint16) -1, TIFF_SHORT },
	413	{ TIFFTAG_SMINSAMPLEVALUE, 1, TIFF_DOUBLE },
	414	{ TIFFTAG_SMAXSAMPLEVALUE, 1, TIFF_DOUBLE },
	415	{ TIFFTAG_STONITS, 1, TIFF_DOUBLE },
	416	};
	417	#define NTAGS (sizeof (tags) / sizeof (tags[0]))
	418
	419	static void
	420	cpTags(TIFF* in, TIFF* out)
	421	{
	422	struct cpTag *p;
	423	for (p = tags; p < &tags[NTAGS]; p++)
	424	cpTag(in, out, p->tag, p->count, p->type);
	425	}
	426	#undef NTAGS
	427
	428	char* stuff[] = {
	429	"usage: tiff2bw [options] input.tif output.tif",
	430	"where options are:",
	431	" -R % use #% from red channel",
	432	" -G % use #% from green channel",
	433	" -B % use #% from blue channel",
	434	"",
	435	" -r # make each strip have no more than # rows",
	436	"",
	437	" -c lzw[:opts] compress output with Lempel-Ziv & Welch encoding",
	438	" -c zip[:opts] compress output with deflate encoding",
	439	" -c packbits compress output with packbits encoding",
	440	" -c g3[:opts] compress output with CCITT Group 3 encoding",
	441	" -c g4 compress output with CCITT Group 4 encoding",
	442	" -c none use no compression algorithm on output",
	443	"",
	444	"LZW and deflate options:",
	445	" # set predictor value",
	446	"For example, -c lzw:2 to get LZW-encoded data with horizontal differencing",
	447	NULL
	448	};
	449
	450	static void
	451	usage(void)
	452	{
	453	char buf[BUFSIZ];
	454	int i;
	455
	456	setbuf(stderr, buf);
	457	fprintf(stderr, "%s\n\n", TIFFGetVersion());
	458	for (i = 0; stuff[i] != NULL; i++)
	459	fprintf(stderr, "%s\n", stuff[i]);
	460	exit(-1);
	461	}
	462
	463	/* vim: set ts=8 sts=8 sw=8 noet: */
	464	/*
	465	* Local Variables:
	466	* mode: c
	467	* c-basic-offset: 8
	468	* fill-column: 78
	469	* End:
	470	*/