/*- * tif2ras.c - Converts from a Tagged Image File Format image to a Sun Raster. * * 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: * 10-Jan-89: Created. * 06-Mar-90: Change to byte encoded rasterfiles. * fix bug in call to ReadScanline(). * fix bug in CVT() macro. * fix assignment of td, (missing &). * * Description: * This program takes a MicroSoft/Aldus "Tagged Image File Format" image or * "TIFF" file as input and writes a Sun Rasterfile [see rasterfile(5)]. The * output file may be standard output, but the input TIFF file must be a real * file since seek(2) is used. */ #include "tiffio.h" #include #include typedef int boolean; #define True (1) #define False (0) #define CVT(x) (((x)*255) / ((1L << 16) - 1)) boolean Verbose = False; char *pname; /* program name (used for error messages) */ void error(s1, s2) char *s1, *s2; { fprintf(stderr, s1, pname, s2); exit(1); } void usage() { error("usage: %s -[vq] TIFFfile [rasterfile]\n", NULL); } main(argc, argv) int argc; char *argv[]; { char *inf = NULL; char *outf = NULL; FILE *fp; long width, height; int depth, numcolors; register TIFF *tif; TIFFDirectory *td; register u_char *inp, *outp; register int col, i; register long row; u_char *Map = NULL; u_char *buf; short bitspersample; short samplesperpixel; short photometric; u_short *redcolormap, *bluecolormap, *greencolormap; Pixrect *pix; /* The Sun Pixrect */ colormap_t Colormap; /* The Pixrect Colormap */ u_char red[256], green[256], blue[256]; 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; default: fprintf(stderr, "%s: illegal option -%c.\n", pname, argv[0][1]); exit(1); } else if (inf == NULL) inf = argv[0]; else if (outf == NULL) outf = argv[0]; else usage(); } if (inf == NULL) error("%s: can't read input file from a stream.\n", NULL); if (Verbose) fprintf(stderr, "Reading %s...", inf); tif = TIFFOpen(inf, "r"); if (tif == NULL) error("%s: error opening TIFF file %s", inf); if (Verbose) TIFFPrintDirectory(tif, stderr, True, False, False); TIFFGetField(tif, TIFFTAG_BITSPERSAMPLE, &bitspersample); if (bitspersample > 8) error("%s: can't handle more than 8-bits per sample\n", NULL); TIFFGetField(tif, TIFFTAG_SAMPLESPERPIXEL, &samplesperpixel); switch (samplesperpixel) { case 1: if (bitspersample == 1) depth = 1; else depth = 8; break; case 3: case 4: depth = 24; break; default: error("%s: only handle 1-channel gray scale or 3-channel color\n"); } TIFFGetField(tif, TIFFTAG_IMAGEWIDTH, &width); TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &height); if (Verbose) fprintf(stderr, "%dx%dx%d image, ", width, height, depth); if (Verbose) fprintf(stderr, "%d bits/sample, %d samples/pixel, ", bitspersample, samplesperpixel); pix = mem_create(width, height, depth); if (pix == (Pixrect *)NULL) error("%s: can't allocate memory for output pixrect...\n", NULL); numcolors = (1 << bitspersample); TIFFGetField(tif, TIFFTAG_PHOTOMETRIC, &photometric); if (numcolors == 2) { if (Verbose) fprintf(stderr, "monochrome "); Colormap.type = RMT_NONE; Colormap.length = 0; Colormap.map[0] = Colormap.map[1] = Colormap.map[2] = NULL; } else { switch (photometric) { case PHOTOMETRIC_MINISBLACK: if (Verbose) fprintf(stderr, "%d graylevels (min=black), ", numcolors); Map = (u_char *)malloc(numcolors * sizeof(u_char)); for (i = 0; i < numcolors; i++) Map[i] = (255 * i) / numcolors; Colormap.type = RMT_EQUAL_RGB; Colormap.length = numcolors; Colormap.map[0] = Colormap.map[1] = Colormap.map[2] = Map; break; case PHOTOMETRIC_MINISWHITE: if (Verbose) fprintf(stderr, "%d graylevels (min=white), ", numcolors); Map = (u_char *)malloc(numcolors * sizeof(u_char)); for (i = 0; i < numcolors; i++) Map[i] = 255 - ((255 * i) / numcolors); Colormap.type = RMT_EQUAL_RGB; Colormap.length = numcolors; Colormap.map[0] = Colormap.map[1] = Colormap.map[2] = Map; break; case PHOTOMETRIC_RGB: if (Verbose) fprintf(stderr, "truecolor "); Colormap.type = RMT_NONE; Colormap.length = 0; Colormap.map[0] = Colormap.map[1] = Colormap.map[2] = NULL; break; case PHOTOMETRIC_PALETTE: if (Verbose) fprintf(stderr, "colormapped "); Colormap.type = RMT_EQUAL_RGB; Colormap.length = numcolors; memset(red, 0, sizeof(red)); memset(green, 0, sizeof(green)); memset(blue, 0, sizeof(blue)); TIFFGetField(tif, TIFFTAG_COLORMAP, &redcolormap, &greencolormap, &bluecolormap); for (i = 0; i < numcolors; i++) { red[i] = (u_char)CVT(redcolormap[i]); green[i] = (u_char)CVT(greencolormap[i]); blue[i] = (u_char)CVT(bluecolormap[i]); } Colormap.map[0] = red; Colormap.map[1] = green; Colormap.map[2] = blue; break; case PHOTOMETRIC_MASK: error("%s: Don't know how to handle PHOTOMETRIC_MASK\n"); break; case PHOTOMETRIC_DEPTH: error("%s: Don't know how to handle PHOTOMETRIC_DEPTH\n"); break; default: error("%s: unknown photometric (cmap): %d\n", photometric); } } buf = (u_char *)malloc(TIFFScanlineSize(tif)); if (buf == NULL) error("%s: can't allocate memory for scanline buffer...\n", NULL); for (row = 0; row < height; row++) { if (TIFFReadScanline(tif, buf, row, 0) < 0) error("%s: bad data read on line: %d\n", row); inp = buf; outp = (u_char *)mprd_addr(mpr_d(pix), 0, row); switch (photometric) { case PHOTOMETRIC_RGB: if (samplesperpixel == 4) for (col = 0; col < width; col++) { *outp++ = *inp++; /* Blue */ *outp++ = *inp++; /* Green */ *outp++ = *inp++; /* Red */ inp++; /* skip alpha channel */ } else for (col = 0; col < width; col++) { *outp++ = *inp++; /* Blue */ *outp++ = *inp++; /* Green */ *outp++ = *inp++; /* Red */ } break; case PHOTOMETRIC_MINISWHITE: case PHOTOMETRIC_MINISBLACK: switch (bitspersample) { case 1: for (col = 0; col < ((width + 7) / 8); col++) *outp++ = *inp++; break; case 2: for (col = 0; col < ((width + 3) / 4); col++) { *outp++ = (*inp >> 6) & 3; *outp++ = (*inp >> 4) & 3; *outp++ = (*inp >> 2) & 3; *outp++ = *inp++ & 3; } break; case 4: for (col = 0; col < width / 2; col++) { *outp++ = *inp >> 4; *outp++ = *inp++ & 0xf; } break; case 8: for (col = 0; col < width; col++) *outp++ = *inp++; break; default: error("%s: bad bits/sample: %d\n", bitspersample); } break; case PHOTOMETRIC_PALETTE: memcpy(outp, inp, width); break; default: error("%s: unknown photometric (write): %d\n", photometric); } } free((char *)buf); if (Verbose) fprintf(stderr, "done.\n"); if (outf == NULL || strcmp(outf, "Standard Output") == 0) { outf = "Standard Output"; fp = stdout; } else { if (!(fp = fopen(outf, "w"))) error("%s: %s couldn't be opened for writing.\n", outf); } if (Verbose) fprintf(stderr, "Writing rasterfile in %s...", outf); if (pr_dump(pix, fp, &Colormap, RT_BYTE_ENCODED, 0) == PIX_ERR) error("%s: error writing Sun Rasterfile: %s\n", outf); if (Verbose) fprintf(stderr, "done.\n"); pr_destroy(pix); if (fp != stdout) fclose(fp); exit(0); }