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

/* $Id$ */

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

#include <gl.h>
#include <ctype.h>

#include "tiffio.h"

typedef unsigned char u_char;
typedef unsigned long u_long;

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

uint32	rowsperstrip = (uint32) -1;
uint16	compression = COMPRESSION_PACKBITS;
uint16	config = PLANARCONFIG_CONTIG;
uint16	predictor = 0;
int	xmaxscreen;
int	ymaxscreen;
uint16	photometric = PHOTOMETRIC_RGB;
int	jpegcolormode = JPEGCOLORMODE_RGB;
int	quality = 75;		/* JPEG quality */

static	void usage(void);
static	void tiffsv(char*, int, int, int, int);

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

	while ((c = getopt(argc, argv, "c:p:r:")) != -1)
		switch (c) {
		case 'b':		/* save as b&w */
			photometric = PHOTOMETRIC_MINISBLACK;
			break;
		case 'c':		/* compression scheme */
			if (streq(optarg, "none"))
				compression = COMPRESSION_NONE;
			else if (streq(optarg, "packbits"))
				compression = COMPRESSION_PACKBITS;
			else if (strneq(optarg, "jpeg", 4)) {
				char* cp = strchr(optarg, ':');
				if (cp && isdigit(cp[1]))
					quality = atoi(cp+1);
				if (cp && strchr(cp, 'r'))
					jpegcolormode = JPEGCOLORMODE_RAW;
				compression = COMPRESSION_JPEG;
			} else if (strneq(optarg, "lzw", 3)) {
				char* cp = strchr(optarg, ':');
				if (cp)
					predictor = atoi(cp+1);
				compression = COMPRESSION_LZW;
			} else
				usage();
			break;
		case 'p':		/* planar configuration */
			if (streq(optarg, "separate"))
				config = PLANARCONFIG_SEPARATE;
			else if (streq(optarg, "contig"))
				config = PLANARCONFIG_CONTIG;
			else
				usage();
			break;
		case 'r':		/* rows/strip */
			rowsperstrip = atoi(optarg);
			break;
		case '?':
			usage();
			/*NOTREACHED*/
		}
	if (argc - optind != 1 && argc - optind != 5)
		usage();
	xmaxscreen = getgdesc(GD_XPMAX)-1;
	ymaxscreen = getgdesc(GD_YPMAX)-1;
	foreground();
	noport();
	winopen("tiffsv");
	if (argc - optind == 5)
		tiffsv(argv[optind],
		    atoi(argv[optind+1]), atoi(argv[optind+2]),
		    atoi(argv[optind+3]), atoi(argv[optind+4]));
	else
		tiffsv(argv[optind], 0, xmaxscreen, 0, ymaxscreen);
	return (0);
}

char* stuff[] = {
"usage: tiffsv [options] outimage.tif [x1 x2 y1 y2] [-b]",
"where options are:",
" -p contig	pack samples contiguously (e.g. RGBRGB...)",
" -p separate	store samples separately (e.g. RRR...GGG...BBB...)",
"",
" -r #		make each strip have no more than # rows",
"",
" -c lzw[:opts]	compress output with Lempel-Ziv & Welch encoding",
" -c jpeg[:opts]compress output with JPEG encoding",
" -c packbits	compress output with packbits encoding",
" -c none	use no compression algorithm on output",
"",
"JPEG options:",
" #		set compression quality level (0-100, default 75)",
" r		output color image as RGB rather than YCbCr",
"",
"LZW options:",
" #		set predictor value for Lempel-Ziv & Welch encoding",
"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);
	for (i = 0; stuff[i] != NULL; i++)
		fprintf(stderr, "%s\n", stuff[i]);
	exit(-1);
}

static void
svRGBSeparate(TIFF* tif, u_long* ss, int xsize, int ysize)
{
	tsize_t stripsize = TIFFStripSize(tif);
	u_char *rbuf = (u_char *)_TIFFmalloc(3*stripsize);
	u_char *gbuf = rbuf + stripsize;
	u_char *bbuf = gbuf + stripsize;
	register int y;

	for (y = 0; y <= ysize; y += rowsperstrip) {
		u_char *rp, *gp, *bp;
		register int x;
		register uint32 n;

		n = rowsperstrip;
		if (n > ysize-y+1)
			n = ysize-y+1;
		rp = rbuf; gp = gbuf; bp = bbuf;
		do {
			for (x = 0; x <= xsize; x++) {
				u_long v = ss[x];
				rp[x] = v;
				gp[x] = v >> 8;
				bp[x] = v >> 16;
			}
			rp += xsize+1, gp += xsize+1, bp += xsize+1;
			ss += xsize+1;
		} while (--n);
		if (TIFFWriteEncodedStrip(tif, TIFFComputeStrip(tif,y,0),
		    rbuf, stripsize) < 0)
			break;
		if (TIFFWriteEncodedStrip(tif, TIFFComputeStrip(tif,y,1),
		    gbuf, stripsize) < 0)
			break;
		if (TIFFWriteEncodedStrip(tif, TIFFComputeStrip(tif,y,2),
		    bbuf, stripsize) < 0)
			break;
	}
	_TIFFfree(rbuf);
}

static void
svRGBContig(TIFF* tif, u_long* ss, int xsize, int ysize)
{
	register int x, y;
	tsize_t stripsize = TIFFStripSize(tif);
	u_char *strip = (u_char *)_TIFFmalloc(stripsize);

	for (y = 0; y <= ysize; y += rowsperstrip) {
		register u_char *pp = strip;
		register uint32 n;

		n = rowsperstrip;
		if (n > ysize-y+1)
			n = ysize-y+1;
		do {
			for (x = 0; x <= xsize; x++) {
				u_long v = ss[x];
				pp[0] = v;
				pp[1] = v >> 8;
				pp[2] = v >> 16;
				pp += 3;
			}
			ss += xsize+1;
		} while (--n);
		if (TIFFWriteEncodedStrip(tif, TIFFComputeStrip(tif,y,0),
		    strip, stripsize) < 0)
			break;
	}
	_TIFFfree(strip);
}

#undef RED
#undef GREEN
#undef BLUE
#define	CVT(x)	(((x)*255)/100)
#define	RED	CVT(28)		/* 28% */
#define	GREEN	CVT(59)		/* 59% */
#define	BLUE	CVT(11)		/* 11% */

static void
svGrey(TIFF* tif, u_long* ss, int xsize, int ysize)
{
	register int x, y;
	u_char *buf = (u_char *)_TIFFmalloc(TIFFScanlineSize(tif));

	for (y = 0; y <= ysize; y++) {
		for (x = 0; x <= xsize; x++) {
			u_char *cp = (u_char *)&ss[x];
			buf[x] = (RED*cp[3] + GREEN*cp[2] + BLUE*cp[1]) >> 8;
		}
		if (TIFFWriteScanline(tif, buf, (uint32) y, 0) < 0)
			break;
		ss += xsize+1;
	}
	_TIFFfree(buf);
}

#define	MIN(a,b)	((a)<(b)?(a):(b))
#define	ABS(x)		((x)<0?-(x):(x))

static void
tiffsv(char* name, int x1, int x2, int y1, int y2)
{
	TIFF *tif;
	int xsize, ysize;
	int xorg, yorg;
	u_long *scrbuf;

	xorg = MIN(x1,x2);
	yorg = MIN(y1,y2);
	if (xorg<0)
		xorg = 0;
	if (yorg<0)
		yorg = 0;
	xsize = ABS(x2-x1);
	ysize = ABS(y2-y1);
	if (xorg+xsize > xmaxscreen)
		xsize = xmaxscreen-xorg;
	if (yorg+ysize > ymaxscreen)
		ysize = ymaxscreen-yorg;
	tif = TIFFOpen(name, "w");
	TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, (uint32) (xsize+1));
	TIFFSetField(tif, TIFFTAG_IMAGELENGTH, (uint32) (ysize+1));
	TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, 8);
	TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL,
	    photometric == PHOTOMETRIC_RGB ? 3 : 1);
	TIFFSetField(tif, TIFFTAG_PLANARCONFIG, config);
	TIFFSetField(tif, TIFFTAG_COMPRESSION, compression);
	switch (compression) {
	case COMPRESSION_JPEG:
		if (photometric == PHOTOMETRIC_RGB && jpegcolormode == JPEGCOLORMODE_RGB)
			photometric = PHOTOMETRIC_YCBCR;
		TIFFSetField(tif, TIFFTAG_JPEGQUALITY, quality);
		TIFFSetField(tif, TIFFTAG_JPEGCOLORMODE, jpegcolormode);
		break;
	case COMPRESSION_LZW:
		if (predictor != 0)
			TIFFSetField(tif, TIFFTAG_PREDICTOR, predictor);
		break;
	}
	TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, photometric);
	TIFFSetField(tif, TIFFTAG_ORIENTATION, ORIENTATION_BOTLEFT);
	rowsperstrip = TIFFDefaultStripSize(tif, rowsperstrip);
	TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, rowsperstrip);
	scrbuf = (u_long *)_TIFFmalloc((xsize+1)*(ysize+1)*sizeof (u_long));
	readdisplay(xorg, yorg, xorg+xsize, yorg+ysize, scrbuf, RD_FREEZE);
	if (photometric == PHOTOMETRIC_RGB) {
		if (config == PLANARCONFIG_SEPARATE)
			svRGBSeparate(tif, scrbuf, xsize, ysize);
		else
			svRGBContig(tif, scrbuf, xsize, ysize);
	} else
		svGrey(tif, scrbuf, xsize, ysize);
	(void) TIFFClose(tif);
	_TIFFfree((char *)scrbuf);
}
Commit	Line	Data
8414a40c VZ	1	/* $Id$ */
	2
	3	/*
	4	* Copyright (c) 1990-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.
	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	*
	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,
	22	* WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
	23	* LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
	24	* OF THIS SOFTWARE.
	25	*/
	26
	27	#include <stdio.h>
	28	#include <stdlib.h>
	29	#include <string.h>
	30
	31	#include <gl.h>
	32	#include <ctype.h>
	33
	34	#include "tiffio.h"
	35
	36	typedef unsigned char u_char;
	37	typedef unsigned long u_long;
	38
	39	#define streq(a,b) (strcmp(a,b) == 0)
	40	#define strneq(a,b,n) (strncmp(a,b,n) == 0)
	41
	42	uint32 rowsperstrip = (uint32) -1;
	43	uint16 compression = COMPRESSION_PACKBITS;
	44	uint16 config = PLANARCONFIG_CONTIG;
	45	uint16 predictor = 0;
	46	int xmaxscreen;
	47	int ymaxscreen;
	48	uint16 photometric = PHOTOMETRIC_RGB;
	49	int jpegcolormode = JPEGCOLORMODE_RGB;
	50	int quality = 75; /* JPEG quality */
	51
	52	static void usage(void);
	53	static void tiffsv(char*, int, int, int, int);
	54
	55	int
	56	main(int argc, char* argv[])
	57	{
	58	int c;
	59	extern int optind;
	60	extern char* optarg;
	61
	62	while ((c = getopt(argc, argv, "c:p:r:")) != -1)
	63	switch (c) {
	64	case 'b': /* save as b&w */
65	photometric = PHOTOMETRIC_MINISBLACK;
66	break;
67	case 'c': /* compression scheme */
68	if (streq(optarg, "none"))
69	compression = COMPRESSION_NONE;
70	else if (streq(optarg, "packbits"))
71	compression = COMPRESSION_PACKBITS;
72	else if (strneq(optarg, "jpeg", 4)) {
73	char* cp = strchr(optarg, ':');
74	if (cp && isdigit(cp[1]))
75	quality = atoi(cp+1);
76	if (cp && strchr(cp, 'r'))
77	jpegcolormode = JPEGCOLORMODE_RAW;
78	compression = COMPRESSION_JPEG;
79	} else if (strneq(optarg, "lzw", 3)) {
80	char* cp = strchr(optarg, ':');
81	if (cp)
82	predictor = atoi(cp+1);
83	compression = COMPRESSION_LZW;
84	} else
85	usage();
86	break;
87	case 'p': /* planar configuration */
88	if (streq(optarg, "separate"))
89	config = PLANARCONFIG_SEPARATE;
90	else if (streq(optarg, "contig"))
91	config = PLANARCONFIG_CONTIG;
92	else
93	usage();
94	break;
95	case 'r': /* rows/strip */
96	rowsperstrip = atoi(optarg);
97	break;
98	case '?':
99	usage();
100	/NOTREACHED/
101	}
102	if (argc - optind != 1 && argc - optind != 5)
103	usage();
104	xmaxscreen = getgdesc(GD_XPMAX)-1;
105	ymaxscreen = getgdesc(GD_YPMAX)-1;
106	foreground();
107	noport();
108	winopen("tiffsv");
109	if (argc - optind == 5)
110	tiffsv(argv[optind],
111	atoi(argv[optind+1]), atoi(argv[optind+2]),
112	atoi(argv[optind+3]), atoi(argv[optind+4]));
113	else
114	tiffsv(argv[optind], 0, xmaxscreen, 0, ymaxscreen);
115	return (0);
116	}
117
118	char* stuff[] = {
119	"usage: tiffsv [options] outimage.tif [x1 x2 y1 y2] [-b]",
120	"where options are:",
121	" -p contig pack samples contiguously (e.g. RGBRGB...)",
122	" -p separate store samples separately (e.g. RRR...GGG...BBB...)",
123	"",
124	" -r # make each strip have no more than # rows",
125	"",
126	" -c lzw[:opts] compress output with Lempel-Ziv & Welch encoding",
127	" -c jpeg[:opts]compress output with JPEG encoding",
128	" -c packbits compress output with packbits encoding",
129	" -c none use no compression algorithm on output",
130	"",
131	"JPEG options:",
132	" # set compression quality level (0-100, default 75)",
133	" r output color image as RGB rather than YCbCr",
134	"",
135	"LZW options:",
136	" # set predictor value for Lempel-Ziv & Welch encoding",
137	"For example, -c lzw:2 to get LZW-encoded data with horizontal differencing",
138	NULL
139	};
140
141	static void
142	usage(void)
143	{
144	char buf[BUFSIZ];
145	int i;
146
147	setbuf(stderr, buf);
148	for (i = 0; stuff[i] != NULL; i++)
149	fprintf(stderr, "%s\n", stuff[i]);
150	exit(-1);
151	}
152
153	static void
154	svRGBSeparate(TIFF* tif, u_long* ss, int xsize, int ysize)
155	{
156	tsize_t stripsize = TIFFStripSize(tif);
157	u_char rbuf = (u_char )_TIFFmalloc(3*stripsize);
158	u_char *gbuf = rbuf + stripsize;
159	u_char *bbuf = gbuf + stripsize;
160	register int y;
161
162	for (y = 0; y <= ysize; y += rowsperstrip) {
163	u_char rp, gp, *bp;
164	register int x;
165	register uint32 n;
166
167	n = rowsperstrip;
168	if (n > ysize-y+1)
169	n = ysize-y+1;
170	rp = rbuf; gp = gbuf; bp = bbuf;
171	do {
172	for (x = 0; x <= xsize; x++) {
173	u_long v = ss[x];
174	rp[x] = v;
175	gp[x] = v >> 8;
176	bp[x] = v >> 16;
177	}
178	rp += xsize+1, gp += xsize+1, bp += xsize+1;
179	ss += xsize+1;
180	} while (--n);
181	if (TIFFWriteEncodedStrip(tif, TIFFComputeStrip(tif,y,0),
182	rbuf, stripsize) < 0)
183	break;
184	if (TIFFWriteEncodedStrip(tif, TIFFComputeStrip(tif,y,1),
185	gbuf, stripsize) < 0)
186	break;
187	if (TIFFWriteEncodedStrip(tif, TIFFComputeStrip(tif,y,2),
188	bbuf, stripsize) < 0)
189	break;
190	}
191	_TIFFfree(rbuf);
192	}
193
194	static void
195	svRGBContig(TIFF* tif, u_long* ss, int xsize, int ysize)
196	{
197	register int x, y;
198	tsize_t stripsize = TIFFStripSize(tif);
199	u_char strip = (u_char )_TIFFmalloc(stripsize);
200
201	for (y = 0; y <= ysize; y += rowsperstrip) {
202	register u_char *pp = strip;
203	register uint32 n;
204
205	n = rowsperstrip;
206	if (n > ysize-y+1)
207	n = ysize-y+1;
208	do {
209	for (x = 0; x <= xsize; x++) {
210	u_long v = ss[x];
211	pp[0] = v;
212	pp[1] = v >> 8;
213	pp[2] = v >> 16;
214	pp += 3;
215	}
216	ss += xsize+1;
217	} while (--n);
218	if (TIFFWriteEncodedStrip(tif, TIFFComputeStrip(tif,y,0),
219	strip, stripsize) < 0)
220	break;
221	}
222	_TIFFfree(strip);
223	}
224
225	#undef RED
226	#undef GREEN
227	#undef BLUE
228	#define CVT(x) (((x)*255)/100)
229	#define RED CVT(28) /* 28% */
230	#define GREEN CVT(59) /* 59% */
231	#define BLUE CVT(11) /* 11% */
232
233	static void
234	svGrey(TIFF* tif, u_long* ss, int xsize, int ysize)
235	{
236	register int x, y;
237	u_char buf = (u_char )_TIFFmalloc(TIFFScanlineSize(tif));
238
239	for (y = 0; y <= ysize; y++) {
240	for (x = 0; x <= xsize; x++) {
241	u_char cp = (u_char )&ss[x];
242	buf[x] = (REDcp[3] + GREENcp[2] + BLUE*cp[1]) >> 8;
243	}
244	if (TIFFWriteScanline(tif, buf, (uint32) y, 0) < 0)
245	break;
246	ss += xsize+1;
247	}
248	_TIFFfree(buf);
249	}
250
251	#define MIN(a,b) ((a)<(b)?(a):(b))
252	#define ABS(x) ((x)<0?-(x):(x))
253
254	static void
255	tiffsv(char* name, int x1, int x2, int y1, int y2)
256	{
257	TIFF *tif;
258	int xsize, ysize;
259	int xorg, yorg;
260	u_long *scrbuf;
261
262	xorg = MIN(x1,x2);
263	yorg = MIN(y1,y2);
264	if (xorg<0)
265	xorg = 0;
266	if (yorg<0)
267	yorg = 0;
268	xsize = ABS(x2-x1);
269	ysize = ABS(y2-y1);
270	if (xorg+xsize > xmaxscreen)
271	xsize = xmaxscreen-xorg;
272	if (yorg+ysize > ymaxscreen)
273	ysize = ymaxscreen-yorg;
274	tif = TIFFOpen(name, "w");
275	TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, (uint32) (xsize+1));
276	TIFFSetField(tif, TIFFTAG_IMAGELENGTH, (uint32) (ysize+1));
277	TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, 8);
278	TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL,
279	photometric == PHOTOMETRIC_RGB ? 3 : 1);
280	TIFFSetField(tif, TIFFTAG_PLANARCONFIG, config);
281	TIFFSetField(tif, TIFFTAG_COMPRESSION, compression);
282	switch (compression) {
283	case COMPRESSION_JPEG:
284	if (photometric == PHOTOMETRIC_RGB && jpegcolormode == JPEGCOLORMODE_RGB)
285	photometric = PHOTOMETRIC_YCBCR;
286	TIFFSetField(tif, TIFFTAG_JPEGQUALITY, quality);
287	TIFFSetField(tif, TIFFTAG_JPEGCOLORMODE, jpegcolormode);
288	break;
289	case COMPRESSION_LZW:
290	if (predictor != 0)
291	TIFFSetField(tif, TIFFTAG_PREDICTOR, predictor);
292	break;
293	}
294	TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, photometric);
295	TIFFSetField(tif, TIFFTAG_ORIENTATION, ORIENTATION_BOTLEFT);
296	rowsperstrip = TIFFDefaultStripSize(tif, rowsperstrip);
297	TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, rowsperstrip);
298	scrbuf = (u_long )_TIFFmalloc((xsize+1)(ysize+1)*sizeof (u_long));
299	readdisplay(xorg, yorg, xorg+xsize, yorg+ysize, scrbuf, RD_FREEZE);
300	if (photometric == PHOTOMETRIC_RGB) {
301	if (config == PLANARCONFIG_SEPARATE)
302	svRGBSeparate(tif, scrbuf, xsize, ysize);
303	else
304	svRGBContig(tif, scrbuf, xsize, ysize);
305	} else
306	svGrey(tif, scrbuf, xsize, ysize);
307	(void) TIFFClose(tif);
308	_TIFFfree((char *)scrbuf);
309	}