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

/* $Id$ */

/*
 * tiff-grayscale.c -- create a Class G (grayscale) TIFF file
 *      with a gray response curve in linear optical density
 *
 * 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 WIDTH       512
#define HEIGHT      WIDTH

char *              programName;
void                Usage();

int main(int argc, char **argv)
{
    int             bits_per_pixel = 8, cmsize, i, j, k,
                    gray_index, chunk_size = 32, nchunks = 16;
    unsigned char * scan_line;
    uint16 *        gray;
    float           refblackwhite[2*1];
    TIFF *          tif;

    programName = argv[0];

    if (argc != 4)
        Usage();

    if (!strcmp(argv[1], "-depth"))
         bits_per_pixel = atoi(argv[2]);
    else
         Usage();

    switch (bits_per_pixel) {
        case 8:
            nchunks = 16;
            chunk_size = 32;
            break;
        case 4:
            nchunks = 4;
            chunk_size = 128;
            break;
        case 2:
            nchunks = 2;
            chunk_size = 256;
            break;
        default:
            Usage();
    }

    cmsize = nchunks * nchunks;
    gray = (uint16 *) malloc(cmsize * sizeof(uint16));

    gray[0] = 3000;
    for (i = 1; i < cmsize; i++)
        gray[i] = (uint16) (-log10((double) i / (cmsize - 1)) * 1000);

    refblackwhite[0] = 0.0;
    refblackwhite[1] = (float)((1L<<bits_per_pixel) - 1);

    if ((tif = TIFFOpen(argv[3], "w")) == NULL) {
        fprintf(stderr, "can't open %s as a TIFF file\n", argv[3]);
		free(gray);
        return 0;
    }

    TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, WIDTH);
    TIFFSetField(tif, TIFFTAG_IMAGELENGTH, HEIGHT);
    TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, bits_per_pixel);
    TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_NONE);
    TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_MINISBLACK);
    TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 1);
    TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, 1);
    TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
    TIFFSetField(tif, TIFFTAG_REFERENCEBLACKWHITE, refblackwhite);
    TIFFSetField(tif, TIFFTAG_TRANSFERFUNCTION, gray);
    TIFFSetField(tif, TIFFTAG_RESOLUTIONUNIT, RESUNIT_NONE);

    scan_line = (unsigned char *) malloc(WIDTH / (8 / bits_per_pixel));

    for (i = 0; i < HEIGHT; i++) {
        for (j = 0, k = 0; j < WIDTH;) {
            gray_index = (j / chunk_size) + ((i / chunk_size) * nchunks);

            switch (bits_per_pixel) {
            case 8:
                scan_line[k++] = gray_index;
                j++;
                break;
            case 4:
                scan_line[k++] = (gray_index << 4) + gray_index;
                j += 2;
                break;
            case 2:
                scan_line[k++] = (gray_index << 6) + (gray_index << 4)
                    + (gray_index << 2) + gray_index;
                j += 4;
                break;
            }
        }
        TIFFWriteScanline(tif, scan_line, i, 0);
    }

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

void
Usage()
{
    fprintf(stderr, "Usage: %s -depth (8 | 4 | 2) tiff-image\n", programName);
    exit(0);
}
/*
 * Local Variables:
 * mode: c
 * c-basic-offset: 8
 * fill-column: 78
 * End:
 */
Commit	Line	Data
	1	/* $Id$ */
	2
	3	/*
	4	* tiff-grayscale.c -- create a Class G (grayscale) TIFF file
	5	* with a gray response curve in linear optical density
	6	*
	7	* Copyright 1990 by Digital Equipment Corporation, Maynard, Massachusetts.
	8	*
	9	* All Rights Reserved
	10	*
	11	* Permission to use, copy, modify, and distribute this software and its
	12	* documentation for any purpose and without fee is hereby granted,
	13	* provided that the above copyright notice appear in all copies and that
	14	* both that copyright notice and this permission notice appear in
	15	* supporting documentation, and that the name of Digital not be
	16	* used in advertising or publicity pertaining to distribution of the
	17	* software without specific, written prior permission.
	18	*
	19	* DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
	20	* ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
	21	* DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
	22	* ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
	23	* WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
	24	* ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
	25	* SOFTWARE.
	26	*/
	27
	28	#include <math.h>
	29	#include <stdio.h>
	30	#include <stdlib.h>
	31	#include <string.h>
	32
	33	#include "tiffio.h"
	34
	35	#define WIDTH 512
	36	#define HEIGHT WIDTH
	37
	38	char * programName;
	39	void Usage();
	40
	41	int main(int argc, char **argv)
	42	{
	43	int bits_per_pixel = 8, cmsize, i, j, k,
	44	gray_index, chunk_size = 32, nchunks = 16;
	45	unsigned char * scan_line;
	46	uint16 * gray;
	47	float refblackwhite[2*1];
	48	TIFF * tif;
	49
	50	programName = argv[0];
	51
	52	if (argc != 4)
	53	Usage();
	54
	55	if (!strcmp(argv[1], "-depth"))
	56	bits_per_pixel = atoi(argv[2]);
	57	else
	58	Usage();
	59
	60	switch (bits_per_pixel) {
	61	case 8:
	62	nchunks = 16;
	63	chunk_size = 32;
	64	break;
	65	case 4:
	66	nchunks = 4;
	67	chunk_size = 128;
	68	break;
	69	case 2:
	70	nchunks = 2;
	71	chunk_size = 256;
	72	break;
	73	default:
	74	Usage();
	75	}
	76
	77	cmsize = nchunks * nchunks;
	78	gray = (uint16 ) malloc(cmsize sizeof(uint16));
	79
	80	gray[0] = 3000;
	81	for (i = 1; i < cmsize; i++)
	82	gray[i] = (uint16) (-log10((double) i / (cmsize - 1)) * 1000);
	83
	84	refblackwhite[0] = 0.0;
	85	refblackwhite[1] = (float)((1L<<bits_per_pixel) - 1);
	86
	87	if ((tif = TIFFOpen(argv[3], "w")) == NULL) {
	88	fprintf(stderr, "can't open %s as a TIFF file\n", argv[3]);
	89	free(gray);
	90	return 0;
	91	}
	92
	93	TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, WIDTH);
	94	TIFFSetField(tif, TIFFTAG_IMAGELENGTH, HEIGHT);
	95	TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, bits_per_pixel);
	96	TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_NONE);
	97	TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_MINISBLACK);
	98	TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 1);
	99	TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, 1);
	100	TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
	101	TIFFSetField(tif, TIFFTAG_REFERENCEBLACKWHITE, refblackwhite);
	102	TIFFSetField(tif, TIFFTAG_TRANSFERFUNCTION, gray);
	103	TIFFSetField(tif, TIFFTAG_RESOLUTIONUNIT, RESUNIT_NONE);
	104
	105	scan_line = (unsigned char *) malloc(WIDTH / (8 / bits_per_pixel));
	106
	107	for (i = 0; i < HEIGHT; i++) {
	108	for (j = 0, k = 0; j < WIDTH;) {
	109	gray_index = (j / chunk_size) + ((i / chunk_size) * nchunks);
	110
	111	switch (bits_per_pixel) {
	112	case 8:
	113	scan_line[k++] = gray_index;
	114	j++;
	115	break;
	116	case 4:
	117	scan_line[k++] = (gray_index << 4) + gray_index;
	118	j += 2;
	119	break;
	120	case 2:
	121	scan_line[k++] = (gray_index << 6) + (gray_index << 4)
	122	+ (gray_index << 2) + gray_index;
	123	j += 4;
	124	break;
	125	}
	126	}
	127	TIFFWriteScanline(tif, scan_line, i, 0);
	128	}
	129
	130	free(scan_line);
	131	TIFFClose(tif);
	132	return 0;
	133	}
	134
	135	void
	136	Usage()
	137	{
	138	fprintf(stderr, "Usage: %s -depth (8 \| 4 \| 2) tiff-image\n", programName);
	139	exit(0);
	140	}
	141	/*
	142	* Local Variables:
	143	* mode: c
	144	* c-basic-offset: 8
	145	* fill-column: 78
	146	* End:
	147	*/