#ifndef lintstatic char sccsid[] = "@(#)ras2tif.c 1.2 90/03/06";#endif/*- * ras2tif.c - Converts from a Sun Rasterfile to a Tagged Image File. * * Copyright (c) 1990 by Sun Microsystems, Inc. * * Author: Patrick J. Naughton * naughton@wind.sun.com * * Permission to use, copy, modify, and distribute this software and its * documentation for any purpose and without fee is hereby granted, * provided that the above copyright notice appear in all copies and that * both that copyright notice and this permission notice appear in * supporting documentation. * * This file is provided AS IS with no warranties of any kind.  The author * shall have no liability with respect to the infringement of copyrights, * trade secrets or any patents by this file or any part thereof.  In no * event will the author be liable for any lost revenue or profits or * other special, indirect and consequential damages. * * Comments and additions should be sent to the author: * *                     Patrick J. Naughton *                     Sun Microsystems *                     2550 Garcia Ave, MS 14-40 *                     Mountain View, CA 94043 *                     (415) 336-1080 * * Revision History: * 11-Jan-89: Created. * 06-Mar-90: fix bug in SCALE() macro. *	      got rid of xres and yres, (they weren't working anyways). *	      fixed bpsl calculation. * 25-Nov-99: y2k fix (year as 1900 + tm_year) <mike@onshore.com> * * Description: *   This program takes a Sun Rasterfile [see rasterfile(5)] as input and * writes a MicroSoft/Aldus "Tagged Image File Format" image or "TIFF" file. * The input file may be standard input, but the output TIFF file must be a * real file since seek(2) is used. */#include <stdio.h>#include <sys/time.h>#include <pixrect/pixrect_hs.h>#include "tiffio.h"typedef int boolean;#define True (1)#define False (0)#define	SCALE(x)	(((x)*((1L<<16)-1))/255)boolean     Verbose = False;boolean     dummyinput = False;char       *pname;		/* program name (used for error messages) */voiderror(s1, s2)    char       *s1,               *s2;{    fprintf(stderr, s1, pname, s2);    exit(1);}voidusage(){    error("usage: %s -[vq] [-|rasterfile] TIFFfile\n", NULL);}main(argc, argv)    int         argc;    char       *argv[];{    char       *inf = NULL;    char       *outf = NULL;    FILE       *fp;    int         depth,                i;    long        row;    TIFF       *tif;    Pixrect    *pix;		/* The Sun Pixrect */    colormap_t  Colormap;	/* The Pixrect Colormap */    u_short     red[256],                green[256],                blue[256];    struct tm  *ct;    struct timeval tv;    long        width,                height;    long        rowsperstrip;    int         year;     short       photometric;    short       samplesperpixel;    short       bitspersample;    int         bpsl;    static char *version = "ras2tif 1.0";    static char *datetime = "1990:01:01 12:00:00";    gettimeofday(&tv, (struct timezone *) NULL);    ct = localtime(&tv.tv_sec);    year=1900 + ct->tm_year;     sprintf(datetime, "%04d:%02d:%02d %02d:%02d:%02d",	    year, ct->tm_mon + 1, ct->tm_mday,	    ct->tm_hour, ct->tm_min, ct->tm_sec);    setbuf(stderr, NULL);    pname = argv[0];    while (--argc) {	if ((++argv)[0][0] == '-') {	    switch (argv[0][1]) {	    case 'v':		Verbose = True;		break;	    case 'q':		usage();		break;	    case '\0':		if (inf == NULL)		    dummyinput = True;		else		    usage();		break;	    default:		fprintf(stderr, "%s: illegal option -%c.\n", pname,			argv[0][1]);		exit(1);	    }	} else if (inf == NULL && !dummyinput) {	    inf = argv[0];	} else if (outf == NULL)	    outf = argv[0];	else	    usage();    }    if (outf == NULL)	error("%s: can't write output file to a stream.\n", NULL);    if (dummyinput || inf == NULL) {	inf = "Standard Input";	fp = stdin;    } else if ((fp = fopen(inf, "r")) == NULL)	error("%s: %s couldn't be opened.\n", inf);    if (Verbose)	fprintf(stderr, "Reading rasterfile from %s...", inf);    pix = pr_load(fp, &Colormap);    if (pix == NULL)	error("%s: %s is not a raster file.\n", inf);    if (Verbose)	fprintf(stderr, "done.\n");    if (Verbose)	fprintf(stderr, "Writing %s...", outf);    tif = TIFFOpen(outf, "w");    if (tif == NULL)	error("%s: error opening TIFF file %s", outf);    width = pix->pr_width;    height = pix->pr_height;    depth = pix->pr_depth;    switch (depth) {    case 1:	samplesperpixel = 1;	bitspersample = 1;	photometric = PHOTOMETRIC_MINISBLACK;	break;    case 8:	samplesperpixel = 1;	bitspersample = 8;	photometric = PHOTOMETRIC_PALETTE;	break;    case 24:	samplesperpixel = 3;	bitspersample = 8;	photometric = PHOTOMETRIC_RGB;	break;    case 32:	samplesperpixel = 4;	bitspersample = 8;	photometric = PHOTOMETRIC_RGB;	break;    default:	error("%s: bogus depth: %d\n", depth);    }    bpsl = ((depth * width + 15) >> 3) & ~1;    rowsperstrip = (8 * 1024) / bpsl;    TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, width);    TIFFSetField(tif, TIFFTAG_IMAGELENGTH, height);    TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, bitspersample);    TIFFSetField(tif, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT);    TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_LZW);    TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, photometric);    TIFFSetField(tif, TIFFTAG_DOCUMENTNAME, inf);    TIFFSetField(tif, TIFFTAG_IMAGEDESCRIPTION, "converted Sun rasterfile");    TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, samplesperpixel);    TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, rowsperstrip);    TIFFSetField(tif, TIFFTAG_STRIPBYTECOUNTS, height / rowsperstrip);    TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);    TIFFSetField(tif, TIFFTAG_SOFTWARE, version);    TIFFSetField(tif, TIFFTAG_DATETIME, datetime);    memset(red, 0, sizeof(red));    memset(green, 0, sizeof(green));    memset(blue, 0, sizeof(blue));    if (depth == 8) {	TIFFSetField(tif, TIFFTAG_COLORMAP, red, green, blue);	for (i = 0; i < Colormap.length; i++) {	    red[i] = SCALE(Colormap.map[0][i]);	    green[i] = SCALE(Colormap.map[1][i]);	    blue[i] = SCALE(Colormap.map[2][i]);	}    }    if (Verbose)	fprintf(stderr, "%dx%dx%d image, ", width, height, depth);    for (row = 0; row < height; row++)	if (TIFFWriteScanline(tif,			      (u_char *) mprd_addr(mpr_d(pix), 0, row),			      row, 0) < 0) {	    fprintf("failed a scanline write (%d)\n", row);	    break;	}    TIFFFlushData(tif);    TIFFClose(tif);    if (Verbose)	fprintf(stderr, "done.\n");    pr_destroy(pix);    exit(0);}