Blame contrib/dbs/tiff-rgb.c

Packit 7838c8
/* $Id: tiff-rgb.c,v 1.4 2010-06-08 18:55:15 bfriesen Exp $ */
Packit 7838c8
Packit 7838c8
/*
Packit 7838c8
 * tiff-rgb.c -- create a 24-bit Class R (rgb) TIFF file
Packit 7838c8
 *
Packit 7838c8
 * Copyright 1990 by Digital Equipment Corporation, Maynard, Massachusetts.
Packit 7838c8
 *
Packit 7838c8
 *                        All Rights Reserved
Packit 7838c8
 *
Packit 7838c8
 * Permission to use, copy, modify, and distribute this software and its
Packit 7838c8
 * documentation for any purpose and without fee is hereby granted,
Packit 7838c8
 * provided that the above copyright notice appear in all copies and that
Packit 7838c8
 * both that copyright notice and this permission notice appear in
Packit 7838c8
 * supporting documentation, and that the name of Digital not be
Packit 7838c8
 * used in advertising or publicity pertaining to distribution of the
Packit 7838c8
 * software without specific, written prior permission.
Packit 7838c8
 *
Packit 7838c8
 * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
Packit 7838c8
 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
Packit 7838c8
 * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
Packit 7838c8
 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
Packit 7838c8
 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
Packit 7838c8
 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
Packit 7838c8
 * SOFTWARE.
Packit 7838c8
 */
Packit 7838c8
Packit 7838c8
#include <math.h>
Packit 7838c8
#include <stdio.h>
Packit 7838c8
#include <stdlib.h>
Packit 7838c8
#include <string.h>
Packit 7838c8
Packit 7838c8
#include "tiffio.h"
Packit 7838c8
Packit 7838c8
#define ROUND(x)    (uint16) ((x) + 0.5)
Packit 7838c8
#define CMSIZE      256
Packit 7838c8
#define WIDTH       525
Packit 7838c8
#define HEIGHT      512
Packit 7838c8
#define TIFF_GAMMA  2.2
Packit 7838c8
Packit 7838c8
void                Usage();
Packit 7838c8
char *              programName;
Packit 7838c8
Packit 7838c8
int main(int argc, char **argv)
Packit 7838c8
{
Packit 7838c8
    char *          input_file = NULL;
Packit 7838c8
    double          image_gamma = TIFF_GAMMA;
Packit 7838c8
    int             i, j;
Packit 7838c8
    TIFF *          tif;
Packit 7838c8
    unsigned char * scan_line;
Packit 7838c8
    uint16          red[CMSIZE], green[CMSIZE], blue[CMSIZE];
Packit 7838c8
    float	    refblackwhite[2*3];
Packit 7838c8
Packit 7838c8
    programName = argv[0];
Packit 7838c8
Packit 7838c8
    switch (argc) {
Packit 7838c8
    case 2:
Packit 7838c8
        image_gamma = TIFF_GAMMA;
Packit 7838c8
        input_file = argv[1];
Packit 7838c8
        break;
Packit 7838c8
    case 4:
Packit 7838c8
        if (!strcmp(argv[1], "-gamma")) {
Packit 7838c8
            image_gamma = atof(argv[2]);
Packit 7838c8
            input_file = argv[3];
Packit 7838c8
        } else
Packit 7838c8
            Usage();
Packit 7838c8
        break;
Packit 7838c8
    default:
Packit 7838c8
        Usage();
Packit 7838c8
    }
Packit 7838c8
Packit 7838c8
    for (i = 0; i < CMSIZE; i++) {
Packit 7838c8
        if (i == 0)
Packit 7838c8
            red[i] = green[i] = blue[i] = 0;
Packit 7838c8
        else {
Packit 7838c8
            red[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
Packit 7838c8
            green[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
Packit 7838c8
            blue[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
Packit 7838c8
        }
Packit 7838c8
    }
Packit 7838c8
    refblackwhite[0] = 0.0; refblackwhite[1] = 255.0;
Packit 7838c8
    refblackwhite[2] = 0.0; refblackwhite[3] = 255.0;
Packit 7838c8
    refblackwhite[4] = 0.0; refblackwhite[5] = 255.0;
Packit 7838c8
Packit 7838c8
    if ((tif = TIFFOpen(input_file, "w")) == NULL) {
Packit 7838c8
        fprintf(stderr, "can't open %s as a TIFF file\n", input_file);
Packit 7838c8
        exit(0);
Packit 7838c8
    }
Packit 7838c8
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, WIDTH);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_IMAGELENGTH, HEIGHT);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, 8);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_NONE);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_RGB);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 3);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, 1);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_RESOLUTIONUNIT, RESUNIT_NONE);
Packit 7838c8
#ifdef notdef
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_WHITEPOINT, whitex, whitey);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_PRIMARYCHROMATICITIES, primaries);
Packit 7838c8
#endif
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_REFERENCEBLACKWHITE, refblackwhite);
Packit 7838c8
    TIFFSetField(tif, TIFFTAG_TRANSFERFUNCTION, red, green, blue);
Packit 7838c8
Packit 7838c8
    scan_line = (unsigned char *) malloc(WIDTH * 3);
Packit 7838c8
Packit 7838c8
    for (i = 0; i < 255; i++) {
Packit 7838c8
        for (j = 0; j < 75; j++) {
Packit 7838c8
             scan_line[j * 3] = 255;
Packit 7838c8
             scan_line[(j * 3) + 1] = 255 - i;
Packit 7838c8
             scan_line[(j * 3) + 2] = 255 - i;
Packit 7838c8
        }
Packit 7838c8
        for (j = 75; j < 150; j++) {
Packit 7838c8
             scan_line[j * 3] = 255 - i;
Packit 7838c8
             scan_line[(j * 3) + 1] = 255;
Packit 7838c8
             scan_line[(j * 3) + 2] = 255 - i;
Packit 7838c8
        }
Packit 7838c8
        for (j = 150; j < 225; j++) {
Packit 7838c8
             scan_line[j * 3] = 255 - i;
Packit 7838c8
             scan_line[(j * 3) + 1] = 255 - i;
Packit 7838c8
             scan_line[(j * 3) + 2] = 255;
Packit 7838c8
        }
Packit 7838c8
        for (j = 225; j < 300; j++) {
Packit 7838c8
             scan_line[j * 3] = (i - 1) / 2;
Packit 7838c8
             scan_line[(j * 3) + 1] = (i - 1) / 2;
Packit 7838c8
             scan_line[(j * 3) + 2] = (i - 1) / 2;
Packit 7838c8
        }
Packit 7838c8
        for (j = 300; j < 375; j++) {
Packit 7838c8
             scan_line[j * 3] = 255 - i;
Packit 7838c8
             scan_line[(j * 3) + 1] = 255;
Packit 7838c8
             scan_line[(j * 3) + 2] = 255;
Packit 7838c8
        }
Packit 7838c8
        for (j = 375; j < 450; j++) {
Packit 7838c8
             scan_line[j * 3] = 255;
Packit 7838c8
             scan_line[(j * 3) + 1] = 255 - i;
Packit 7838c8
             scan_line[(j * 3) + 2] = 255;
Packit 7838c8
        }
Packit 7838c8
        for (j = 450; j < 525; j++) {
Packit 7838c8
             scan_line[j * 3] = 255;
Packit 7838c8
             scan_line[(j * 3) + 1] = 255;
Packit 7838c8
             scan_line[(j * 3) + 2] = 255 - i;
Packit 7838c8
        }
Packit 7838c8
        TIFFWriteScanline(tif, scan_line, i, 0);
Packit 7838c8
    }
Packit 7838c8
    for (i = 255; i < 512; i++) {
Packit 7838c8
        for (j = 0; j < 75; j++) {
Packit 7838c8
             scan_line[j * 3] = i;
Packit 7838c8
             scan_line[(j * 3) + 1] = 0;
Packit 7838c8
             scan_line[(j * 3) + 2] = 0;
Packit 7838c8
        }
Packit 7838c8
        for (j = 75; j < 150; j++) {
Packit 7838c8
             scan_line[j * 3] = 0;
Packit 7838c8
             scan_line[(j * 3) + 1] = i;
Packit 7838c8
             scan_line[(j * 3) + 2] = 0;
Packit 7838c8
        }
Packit 7838c8
        for (j = 150; j < 225; j++) {
Packit 7838c8
             scan_line[j * 3] = 0;
Packit 7838c8
             scan_line[(j * 3) + 1] = 0;
Packit 7838c8
             scan_line[(j * 3) + 2] = i;
Packit 7838c8
        }
Packit 7838c8
        for (j = 225; j < 300; j++) {
Packit 7838c8
             scan_line[j * 3] = (i - 1) / 2;
Packit 7838c8
             scan_line[(j * 3) + 1] = (i - 1) / 2;
Packit 7838c8
             scan_line[(j * 3) + 2] = (i - 1) / 2;
Packit 7838c8
        }
Packit 7838c8
        for (j = 300; j < 375; j++) {
Packit 7838c8
             scan_line[j * 3] = 0;
Packit 7838c8
             scan_line[(j * 3) + 1] = i;
Packit 7838c8
             scan_line[(j * 3) + 2] = i;
Packit 7838c8
        }
Packit 7838c8
        for (j = 375; j < 450; j++) {
Packit 7838c8
             scan_line[j * 3] = i;
Packit 7838c8
             scan_line[(j * 3) + 1] = 0;
Packit 7838c8
             scan_line[(j * 3) + 2] = i;
Packit 7838c8
        }
Packit 7838c8
        for (j = 450; j < 525; j++) {
Packit 7838c8
             scan_line[j * 3] = i;
Packit 7838c8
             scan_line[(j * 3) + 1] = i;
Packit 7838c8
             scan_line[(j * 3) + 2] = 0;
Packit 7838c8
        }
Packit 7838c8
        TIFFWriteScanline(tif, scan_line, i, 0);
Packit 7838c8
    }
Packit 7838c8
Packit 7838c8
    free(scan_line);
Packit 7838c8
    TIFFClose(tif);
Packit 7838c8
    exit(0);
Packit 7838c8
}
Packit 7838c8
Packit 7838c8
void
Packit 7838c8
Usage()
Packit 7838c8
{
Packit 7838c8
    fprintf(stderr, "Usage: %s -gamma gamma tiff-image\n", programName);
Packit 7838c8
    exit(0);
Packit 7838c8
}
Packit 7838c8
/*
Packit 7838c8
 * Local Variables:
Packit 7838c8
 * mode: c
Packit 7838c8
 * c-basic-offset: 8
Packit 7838c8
 * fill-column: 78
Packit 7838c8
 * End:
Packit 7838c8
 */