Encyclopedia of Graphics File Formats Companion/GFF_CD.ISO/software/unix/libtiff/lbtif3_3.tar/tools/tiff2bw.c

C/C++ Source or Header | 1993-08-26 | 5KB | 173 lines

#ifndef lint
static char rcsid[] = "$Header: /usr/people/sam/tiff/tools/RCS/tiff2bw.c,v 1.7 93/08/26 15:10:39 sam Exp $";
#endif

/*
 * Copyright (c) 1988, 1989, 1990, 1991, 1992 Sam Leffler
 * Copyright (c) 1991, 1992 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 "tiffio.h"

#define    streq(a,b)    (strcmp((a),(b)) == 0)
#define    CopyField(tag, v) \
    if (TIFFGetField(in, tag, &v)) TIFFSetField(out, tag, v)

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

static void
usage(void)
{
    fprintf(stderr,
    "usage: tiff2bw [-r red%%] [-g green%%] [-b blue%%] input output\n");
    exit(1);
}

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 int red = RED, green = GREEN, blue = BLUE;

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

void
main(int argc, char* argv[])
{
    TIFF *in, *out;
    uint32 w, h;
    uint16 samplesperpixel, bitspersample, shortv, config;
    float floatv;
    register uint32 row;
    register tsample_t s;
    unsigned char *inbuf, *outbuf;
    char thing[1024];
    uint32 rowsperstrip;
    int c;
    extern int optind;
    extern char *optarg;

    while ((c = getopt(argc, argv, "r:g:b:")) != -1)
        switch (c) {
        case 'r':
            RED = CVT(atoi(optarg));
            break;
        case 'g':
            GREEN = CVT(atoi(optarg));
            break;
        case 'b':
            BLUE = CVT(atoi(optarg));
            break;
        case '?':
            usage();
            /*NOTREACHED*/
        }
    if (argc - optind < 2)
        usage();
    in = TIFFOpen(argv[optind], "r");
    if (in == NULL)
        exit(-1);
    TIFFGetField(in, TIFFTAG_SAMPLESPERPIXEL, &samplesperpixel);
    if (samplesperpixel != 3) {
        fprintf(stderr, "%s: Not a color image.\n", argv[0]);
        exit(-1);
    }
    TIFFGetField(in, TIFFTAG_BITSPERSAMPLE, &bitspersample);
    if (bitspersample != 8) {
        fprintf(stderr,
            " %s: Sorry, only handle 8-bit samples.\n", argv[0]);
        exit(-1);
    }
    out = TIFFOpen(argv[optind+1], "w");
    if (out == NULL)
        exit(-1);
    CopyField(TIFFTAG_IMAGEWIDTH, w);
    CopyField(TIFFTAG_IMAGELENGTH, h);
    TIFFSetField(out, TIFFTAG_BITSPERSAMPLE, 8);
    TIFFSetField(out, TIFFTAG_SAMPLESPERPIXEL, 1);
    TIFFSetField(out, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
    TIFFSetField(out, TIFFTAG_COMPRESSION, COMPRESSION_LZW);
    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");
    CopyField(TIFFTAG_ORIENTATION, shortv);
    CopyField(TIFFTAG_XRESOLUTION, floatv);
    CopyField(TIFFTAG_YRESOLUTION, floatv);
    CopyField(TIFFTAG_RESOLUTIONUNIT, shortv);
    outbuf = (unsigned char *)malloc(TIFFScanlineSize(out));
    rowsperstrip = (8*1024)/TIFFScanlineSize(out);
    if (rowsperstrip == 0)
        rowsperstrip = 1;
    TIFFSetField(out, TIFFTAG_ROWSPERSTRIP, rowsperstrip);
    TIFFGetField(in, TIFFTAG_PLANARCONFIG, &config);
    switch (config) {
    case PLANARCONFIG_CONTIG:
        inbuf = (unsigned char *)malloc(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 PLANARCONFIG_SEPARATE: {
        tsize_t rowbytes = TIFFScanlineSize(in);
        inbuf = (unsigned char *)malloc(3*rowbytes);
        for (row = 0; row < h; row++) {
            for (s = 0; s < 3; s++)
                if (TIFFReadScanline(in,
                    inbuf+s*rowbytes, row, s) < 0)
                     exit(-1);
            compresssep(outbuf,
                inbuf, inbuf+rowbytes, inbuf+2*rowbytes, w);
            if (TIFFWriteScanline(out, outbuf, row, 0) < 0)
                break;
        }
    }
    }
    TIFFClose(out);
}