src/tiff/contrib/dbs/tiff-rgb.c

/* $Id$ */

/*
 * tiff-rgb.c -- create a 24-bit Class R (rgb) TIFF file
 *
 * Copyright 1990 by Digital Equipment Corporation, Maynard, Massachusetts.
 *
 *                        All Rights Reserved
 *
 * 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, and that the name of Digital not be
 * used in advertising or publicity pertaining to distribution of the
 * software without specific, written prior permission.
 *
 * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
 * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
 * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
 * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
 * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
 * SOFTWARE.
 */

#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "tiffio.h"

#define ROUND(x)    (uint16) ((x) + 0.5)
#define CMSIZE      256
#define WIDTH       525
#define HEIGHT      512
#define TIFF_GAMMA  2.2

void                Usage();
char *              programName;

int main(int argc, char **argv)
{
    char *          input_file = NULL;
    double          image_gamma = TIFF_GAMMA;
    int             i, j;
    TIFF *          tif;
    unsigned char * scan_line;
    uint16          red[CMSIZE], green[CMSIZE], blue[CMSIZE];
    float	    refblackwhite[2*3];

    programName = argv[0];

    switch (argc) {
    case 2:
        image_gamma = TIFF_GAMMA;
        input_file = argv[1];
        break;
    case 4:
        if (!strcmp(argv[1], "-gamma")) {
            image_gamma = atof(argv[2]);
            input_file = argv[3];
        } else
            Usage();
        break;
    default:
        Usage();
    }

    for (i = 0; i < CMSIZE; i++) {
        if (i == 0)
            red[i] = green[i] = blue[i] = 0;
        else {
            red[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
            green[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
            blue[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
        }
    }
    refblackwhite[0] = 0.0; refblackwhite[1] = 255.0;
    refblackwhite[2] = 0.0; refblackwhite[3] = 255.0;
    refblackwhite[4] = 0.0; refblackwhite[5] = 255.0;

    if ((tif = TIFFOpen(input_file, "w")) == NULL) {
        fprintf(stderr, "can't open %s as a TIFF file\n", input_file);
        exit(0);
    }

    TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, WIDTH);
    TIFFSetField(tif, TIFFTAG_IMAGELENGTH, HEIGHT);
    TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, 8);
    TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_NONE);
    TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_RGB);
    TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 3);
    TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, 1);
    TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
    TIFFSetField(tif, TIFFTAG_RESOLUTIONUNIT, RESUNIT_NONE);
#ifdef notdef
    TIFFSetField(tif, TIFFTAG_WHITEPOINT, whitex, whitey);
    TIFFSetField(tif, TIFFTAG_PRIMARYCHROMATICITIES, primaries);
#endif
    TIFFSetField(tif, TIFFTAG_REFERENCEBLACKWHITE, refblackwhite);
    TIFFSetField(tif, TIFFTAG_TRANSFERFUNCTION, red, green, blue);

    scan_line = (unsigned char *) malloc(WIDTH * 3);

    for (i = 0; i < 255; i++) {
        for (j = 0; j < 75; j++) {
             scan_line[j * 3] = 255;
             scan_line[(j * 3) + 1] = 255 - i;
             scan_line[(j * 3) + 2] = 255 - i;
        }
        for (j = 75; j < 150; j++) {
             scan_line[j * 3] = 255 - i;
             scan_line[(j * 3) + 1] = 255;
             scan_line[(j * 3) + 2] = 255 - i;
        }
        for (j = 150; j < 225; j++) {
             scan_line[j * 3] = 255 - i;
             scan_line[(j * 3) + 1] = 255 - i;
             scan_line[(j * 3) + 2] = 255;
        }
        for (j = 225; j < 300; j++) {
             scan_line[j * 3] = (i - 1) / 2;
             scan_line[(j * 3) + 1] = (i - 1) / 2;
             scan_line[(j * 3) + 2] = (i - 1) / 2;
        }
        for (j = 300; j < 375; j++) {
             scan_line[j * 3] = 255 - i;
             scan_line[(j * 3) + 1] = 255;
             scan_line[(j * 3) + 2] = 255;
        }
        for (j = 375; j < 450; j++) {
             scan_line[j * 3] = 255;
             scan_line[(j * 3) + 1] = 255 - i;
             scan_line[(j * 3) + 2] = 255;
        }
        for (j = 450; j < 525; j++) {
             scan_line[j * 3] = 255;
             scan_line[(j * 3) + 1] = 255;
             scan_line[(j * 3) + 2] = 255 - i;
        }
        TIFFWriteScanline(tif, scan_line, i, 0);
    }
    for (i = 255; i < 512; i++) {
        for (j = 0; j < 75; j++) {
             scan_line[j * 3] = i;
             scan_line[(j * 3) + 1] = 0;
             scan_line[(j * 3) + 2] = 0;
        }
        for (j = 75; j < 150; j++) {
             scan_line[j * 3] = 0;
             scan_line[(j * 3) + 1] = i;
             scan_line[(j * 3) + 2] = 0;
        }
        for (j = 150; j < 225; j++) {
             scan_line[j * 3] = 0;
             scan_line[(j * 3) + 1] = 0;
             scan_line[(j * 3) + 2] = i;
        }
        for (j = 225; j < 300; j++) {
             scan_line[j * 3] = (i - 1) / 2;
             scan_line[(j * 3) + 1] = (i - 1) / 2;
             scan_line[(j * 3) + 2] = (i - 1) / 2;
        }
        for (j = 300; j < 375; j++) {
             scan_line[j * 3] = 0;
             scan_line[(j * 3) + 1] = i;
             scan_line[(j * 3) + 2] = i;
        }
        for (j = 375; j < 450; j++) {
             scan_line[j * 3] = i;
             scan_line[(j * 3) + 1] = 0;
             scan_line[(j * 3) + 2] = i;
        }
        for (j = 450; j < 525; j++) {
             scan_line[j * 3] = i;
             scan_line[(j * 3) + 1] = i;
             scan_line[(j * 3) + 2] = 0;
        }
        TIFFWriteScanline(tif, scan_line, i, 0);
    }

    free(scan_line);
    TIFFClose(tif);
    exit(0);
}

void
Usage()
{
    fprintf(stderr, "Usage: %s -gamma gamma tiff-image\n", programName);
    exit(0);
}
Commit	Line	Data
	1	/* $Id$ */
	2
	3	/*
	4	* tiff-rgb.c -- create a 24-bit Class R (rgb) TIFF file
	5	*
	6	* Copyright 1990 by Digital Equipment Corporation, Maynard, Massachusetts.
	7	*
	8	* All Rights Reserved
	9	*
	10	* Permission to use, copy, modify, and distribute this software and its
	11	* documentation for any purpose and without fee is hereby granted,
	12	* provided that the above copyright notice appear in all copies and that
	13	* both that copyright notice and this permission notice appear in
	14	* supporting documentation, and that the name of Digital not be
	15	* used in advertising or publicity pertaining to distribution of the
	16	* software without specific, written prior permission.
	17	*
	18	* DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
	19	* ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
	20	* DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
	21	* ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
	22	* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
	23	* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
	24	* SOFTWARE.
	25	*/
	26
	27	#include <math.h>
	28	#include <stdio.h>
	29	#include <stdlib.h>
	30	#include <string.h>
	31
	32	#include "tiffio.h"
	33
	34	#define ROUND(x) (uint16) ((x) + 0.5)
	35	#define CMSIZE 256
	36	#define WIDTH 525
	37	#define HEIGHT 512
	38	#define TIFF_GAMMA 2.2
	39
	40	void Usage();
	41	char * programName;
	42
	43	int main(int argc, char **argv)
	44	{
	45	char * input_file = NULL;
	46	double image_gamma = TIFF_GAMMA;
	47	int i, j;
	48	TIFF * tif;
	49	unsigned char * scan_line;
	50	uint16 red[CMSIZE], green[CMSIZE], blue[CMSIZE];
	51	float refblackwhite[2*3];
	52
	53	programName = argv[0];
	54
	55	switch (argc) {
	56	case 2:
	57	image_gamma = TIFF_GAMMA;
	58	input_file = argv[1];
	59	break;
	60	case 4:
	61	if (!strcmp(argv[1], "-gamma")) {
	62	image_gamma = atof(argv[2]);
	63	input_file = argv[3];
	64	} else
	65	Usage();
	66	break;
	67	default:
	68	Usage();
	69	}
	70
	71	for (i = 0; i < CMSIZE; i++) {
	72	if (i == 0)
	73	red[i] = green[i] = blue[i] = 0;
	74	else {
	75	red[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
	76	green[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
	77	blue[i] = ROUND((pow(i / 255.0, 1.0 / image_gamma) * 65535.0));
	78	}
	79	}
	80	refblackwhite[0] = 0.0; refblackwhite[1] = 255.0;
	81	refblackwhite[2] = 0.0; refblackwhite[3] = 255.0;
	82	refblackwhite[4] = 0.0; refblackwhite[5] = 255.0;
	83
	84	if ((tif = TIFFOpen(input_file, "w")) == NULL) {
	85	fprintf(stderr, "can't open %s as a TIFF file\n", input_file);
	86	exit(0);
	87	}
	88
	89	TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, WIDTH);
	90	TIFFSetField(tif, TIFFTAG_IMAGELENGTH, HEIGHT);
	91	TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, 8);
	92	TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_NONE);
	93	TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_RGB);
	94	TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 3);
	95	TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, 1);
	96	TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
	97	TIFFSetField(tif, TIFFTAG_RESOLUTIONUNIT, RESUNIT_NONE);
	98	#ifdef notdef
	99	TIFFSetField(tif, TIFFTAG_WHITEPOINT, whitex, whitey);
	100	TIFFSetField(tif, TIFFTAG_PRIMARYCHROMATICITIES, primaries);
	101	#endif
	102	TIFFSetField(tif, TIFFTAG_REFERENCEBLACKWHITE, refblackwhite);
	103	TIFFSetField(tif, TIFFTAG_TRANSFERFUNCTION, red, green, blue);
	104
	105	scan_line = (unsigned char ) malloc(WIDTH 3);
	106
	107	for (i = 0; i < 255; i++) {
	108	for (j = 0; j < 75; j++) {
	109	scan_line[j * 3] = 255;
	110	scan_line[(j * 3) + 1] = 255 - i;
	111	scan_line[(j * 3) + 2] = 255 - i;
	112	}
	113	for (j = 75; j < 150; j++) {
	114	scan_line[j * 3] = 255 - i;
	115	scan_line[(j * 3) + 1] = 255;
	116	scan_line[(j * 3) + 2] = 255 - i;
	117	}
	118	for (j = 150; j < 225; j++) {
	119	scan_line[j * 3] = 255 - i;
	120	scan_line[(j * 3) + 1] = 255 - i;
	121	scan_line[(j * 3) + 2] = 255;
	122	}
	123	for (j = 225; j < 300; j++) {
	124	scan_line[j * 3] = (i - 1) / 2;
	125	scan_line[(j * 3) + 1] = (i - 1) / 2;
	126	scan_line[(j * 3) + 2] = (i - 1) / 2;
	127	}
	128	for (j = 300; j < 375; j++) {
	129	scan_line[j * 3] = 255 - i;
	130	scan_line[(j * 3) + 1] = 255;
	131	scan_line[(j * 3) + 2] = 255;
	132	}
	133	for (j = 375; j < 450; j++) {
	134	scan_line[j * 3] = 255;
	135	scan_line[(j * 3) + 1] = 255 - i;
	136	scan_line[(j * 3) + 2] = 255;
	137	}
	138	for (j = 450; j < 525; j++) {
	139	scan_line[j * 3] = 255;
	140	scan_line[(j * 3) + 1] = 255;
	141	scan_line[(j * 3) + 2] = 255 - i;
	142	}
	143	TIFFWriteScanline(tif, scan_line, i, 0);
	144	}
	145	for (i = 255; i < 512; i++) {
	146	for (j = 0; j < 75; j++) {
	147	scan_line[j * 3] = i;
	148	scan_line[(j * 3) + 1] = 0;
	149	scan_line[(j * 3) + 2] = 0;
	150	}
	151	for (j = 75; j < 150; j++) {
	152	scan_line[j * 3] = 0;
	153	scan_line[(j * 3) + 1] = i;
	154	scan_line[(j * 3) + 2] = 0;
	155	}
	156	for (j = 150; j < 225; j++) {
	157	scan_line[j * 3] = 0;
	158	scan_line[(j * 3) + 1] = 0;
	159	scan_line[(j * 3) + 2] = i;
	160	}
	161	for (j = 225; j < 300; j++) {
	162	scan_line[j * 3] = (i - 1) / 2;
	163	scan_line[(j * 3) + 1] = (i - 1) / 2;
	164	scan_line[(j * 3) + 2] = (i - 1) / 2;
	165	}
	166	for (j = 300; j < 375; j++) {
	167	scan_line[j * 3] = 0;
	168	scan_line[(j * 3) + 1] = i;
	169	scan_line[(j * 3) + 2] = i;
	170	}
	171	for (j = 375; j < 450; j++) {
	172	scan_line[j * 3] = i;
	173	scan_line[(j * 3) + 1] = 0;
	174	scan_line[(j * 3) + 2] = i;
	175	}
	176	for (j = 450; j < 525; j++) {
	177	scan_line[j * 3] = i;
	178	scan_line[(j * 3) + 1] = i;
	179	scan_line[(j * 3) + 2] = 0;
	180	}
	181	TIFFWriteScanline(tif, scan_line, i, 0);
	182	}
	183
	184	free(scan_line);
	185	TIFFClose(tif);
	186	exit(0);
	187	}
	188
	189	void
	190	Usage()
	191	{
	192	fprintf(stderr, "Usage: %s -gamma gamma tiff-image\n", programName);
	193	exit(0);
	194	}