summaryrefslogtreecommitdiff
path: root/tiff/contrib/ras/tif2ras.c
diff options
context:
space:
mode:
authorJörg Frings-Fürst <debian@jff-webhosting.net>2015-11-06 07:14:47 +0100
committerJörg Frings-Fürst <debian@jff-webhosting.net>2015-11-06 07:14:47 +0100
commitd479dd1aab1c1cb907932c6595b0ef33523fc797 (patch)
treead7d454b9edaae3d8892d84cd8f8ef5c2697b79b /tiff/contrib/ras/tif2ras.c
parent9491825ddff7a294d1f49061bae7044e426aeb2e (diff)
Imported Upstream version 1.8.3upstream/1.8.3
Diffstat (limited to 'tiff/contrib/ras/tif2ras.c')
-rwxr-xr-xtiff/contrib/ras/tif2ras.c344
1 files changed, 0 insertions, 344 deletions
diff --git a/tiff/contrib/ras/tif2ras.c b/tiff/contrib/ras/tif2ras.c
deleted file mode 100755
index e1c321d..0000000
--- a/tiff/contrib/ras/tif2ras.c
+++ /dev/null
@@ -1,344 +0,0 @@
-#ifndef lint
-static char id[] = "$Id: tif2ras.c,v 1.3 2010-06-08 18:55:15 bfriesen Exp $";
-#endif
-/*-
- * 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 <stdio.h>
-#include <pixrect/pixrect_hs.h>
-#include "tiffio.h"
-
-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);
-}
-/*
- * Local Variables:
- * mode: c
- * c-basic-offset: 8
- * fill-column: 78
- * End:
- */