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

/* $Id$ */

/*
 * tiff-palette.c -- create a Class P (palette) 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 <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "tiffio.h"

#define WIDTH       512
#define HEIGHT      WIDTH
#define SCALE(x)    ((x) * 257L)

char *              programName;
void                Usage();

int main(int argc, char **argv)
{
    int             bits_per_pixel = 8, cmsize, i, j, k,
                    cmap_index, chunk_size = 32, nchunks = 16;
    unsigned char * scan_line;
    uint16          *red, *green, *blue;
    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;
	case 1:
	    nchunks = 2;
	    chunk_size = 256;
	    break;
        default:
            Usage();
    }

    if (bits_per_pixel != 1) {
	cmsize = nchunks * nchunks;
    } else {
	cmsize = 2;
    }
    red = (uint16 *) malloc(cmsize * sizeof(uint16));
    green = (uint16 *) malloc(cmsize * sizeof(uint16));
    blue = (uint16 *) malloc(cmsize * sizeof(uint16));

    switch (bits_per_pixel) {
    case 8:
        for (i = 0; i < cmsize; i++) {
            if (i < 32)
                red[i] = 0;
            else if (i < 64)
                red[i] = SCALE(36);
            else if (i < 96)
                red[i] = SCALE(73);
            else if (i < 128)
                red[i] = SCALE(109);
            else if (i < 160)
                red[i] = SCALE(146);
            else if (i < 192)
                red[i] = SCALE(182);
            else if (i < 224)
                red[i] = SCALE(219);
            else if (i < 256)
                red[i] = SCALE(255);

            if ((i % 32) < 4)
                green[i] = 0;
            else if (i < 8)
                green[i] = SCALE(36);
            else if ((i % 32) < 12)
                green[i] = SCALE(73);
            else if ((i % 32) < 16)
                green[i] = SCALE(109);
            else if ((i % 32) < 20)
                green[i] = SCALE(146);
            else if ((i % 32) < 24)
                green[i] = SCALE(182);
            else if ((i % 32) < 28)
                green[i] = SCALE(219);
            else if ((i % 32) < 32)
                green[i] = SCALE(255);

            if ((i % 4) == 0)
                blue[i] = SCALE(0);
            else if ((i % 4) == 1)
                blue[i] = SCALE(85);
            else if ((i % 4) == 2)
                blue[i] = SCALE(170);
            else if ((i % 4) == 3)
                blue[i] = SCALE(255);
        }
        break;
    case 4:
        red[0] = SCALE(255);
        green[0] = 0;
        blue[0] = 0;

        red[1] = 0;
        green[1] = SCALE(255);
        blue[1] = 0;

        red[2] = 0;
        green[2] = 0;
        blue[2] = SCALE(255);

        red[3] = SCALE(255);
        green[3] = SCALE(255);
        blue[3] = SCALE(255);

        red[4] = 0;
        green[4] = SCALE(255);
        blue[4] = SCALE(255);

        red[5] = SCALE(255);
        green[5] = 0;
        blue[5] = SCALE(255);

        red[6] = SCALE(255);
        green[6] = SCALE(255);
        blue[6] = 0;

        red[7] = 0;
        green[7] = 0;
        blue[7] = 0;

        red[8] = SCALE(176);
        green[8] = SCALE(224);
        blue[8] = SCALE(230);
        red[9] = SCALE(100);
        green[9] = SCALE(149);
        blue[9] = SCALE(237);
        red[10] = SCALE(46);
        green[10] = SCALE(139);
        blue[10] = SCALE(87);
        red[11] = SCALE(160);
        green[11] = SCALE(82);
        blue[11] = SCALE(45);
        red[12] = SCALE(238);
        green[12] = SCALE(130);
        blue[12] = SCALE(238);
        red[13] = SCALE(176);
        green[13] = SCALE(48);
        blue[13] = SCALE(96);
        red[14] = SCALE(50);
        green[14] = SCALE(205);
        blue[14] = SCALE(50);
        red[15] = SCALE(240);
        green[15] = SCALE(152);
        blue[15] = SCALE(35);
        break;
    case 2:
        red[0] = SCALE(255);
        green[0] = 0;
        blue[0] = 0;

        red[1] = 0;
        green[1] = SCALE(255);
        blue[1] = 0;

        red[2] = 0;
        green[2] = 0;
        blue[2] = SCALE(255);
        red[3] = SCALE(255);
        green[3] = SCALE(255);
        blue[3] = SCALE(255);
        break;
    case 1:
        red[0] = 0;
        green[0] = 0;
        blue[0] = 0;

        red[1] = SCALE(255);
        green[1] = SCALE(255);
        blue[1] = SCALE(255);
        break;
    }

    if ((tif = TIFFOpen(argv[3], "w")) == NULL) {
        fprintf(stderr, "can't open %s as a TIFF file\n", argv[3]);
        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_PALETTE);
    TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 1);
    TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, 1);
    TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
    TIFFSetField(tif, TIFFTAG_RESOLUTIONUNIT, RESUNIT_NONE);
    TIFFSetField(tif, TIFFTAG_COLORMAP, red, green, blue);

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

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

            switch (bits_per_pixel) {
            case 8:
                scan_line[k++] = cmap_index;
                j++;
                break;
            case 4:
                scan_line[k++] = (cmap_index << 4) + cmap_index;
                j += 2;
                break;
            case 2:
                scan_line[k++] = (cmap_index << 6) + (cmap_index << 4)
                    + (cmap_index << 2) + cmap_index;
                j += 4;
                break;
	    case 1:
		scan_line[k++] =
			((j / chunk_size) == (i / chunk_size)) ? 0x00 : 0xff;
		j += 8;
		break;
            }
        }
        TIFFWriteScanline(tif, scan_line, i, 0);
    }

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

void
Usage()
{
    fprintf(stderr, "Usage: %s -depth (8 | 4 | 2 | 1) tiff-image\n", programName);
    exit(0);
}
Commit	Line	Data
	1	/* $Id$ */
	2
	3	/*
	4	* tiff-palette.c -- create a Class P (palette) 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 <stdio.h>
	28	#include <stdlib.h>
	29	#include <string.h>
	30
	31	#include "tiffio.h"
	32
	33	#define WIDTH 512
	34	#define HEIGHT WIDTH
	35	#define SCALE(x) ((x) * 257L)
	36
	37	char * programName;
	38	void Usage();
	39
	40	int main(int argc, char **argv)
	41	{
	42	int bits_per_pixel = 8, cmsize, i, j, k,
	43	cmap_index, chunk_size = 32, nchunks = 16;
	44	unsigned char * scan_line;
	45	uint16 red, green, *blue;
	46	TIFF * tif;
	47
	48	programName = argv[0];
	49
	50	if (argc != 4)
	51	Usage();
	52
	53	if (!strcmp(argv[1], "-depth"))
	54	bits_per_pixel = atoi(argv[2]);
	55	else
	56	Usage();
	57
	58	switch (bits_per_pixel) {
	59	case 8:
	60	nchunks = 16;
	61	chunk_size = 32;
	62	break;
	63	case 4:
	64	nchunks = 4;
	65	chunk_size = 128;
	66	break;
	67	case 2:
	68	nchunks = 2;
	69	chunk_size = 256;
	70	break;
	71	case 1:
	72	nchunks = 2;
	73	chunk_size = 256;
	74	break;
	75	default:
	76	Usage();
	77	}
	78
	79	if (bits_per_pixel != 1) {
	80	cmsize = nchunks * nchunks;
	81	} else {
	82	cmsize = 2;
	83	}
	84	red = (uint16 ) malloc(cmsize sizeof(uint16));
	85	green = (uint16 ) malloc(cmsize sizeof(uint16));
	86	blue = (uint16 ) malloc(cmsize sizeof(uint16));
	87
	88	switch (bits_per_pixel) {
	89	case 8:
	90	for (i = 0; i < cmsize; i++) {
	91	if (i < 32)
	92	red[i] = 0;
	93	else if (i < 64)
	94	red[i] = SCALE(36);
	95	else if (i < 96)
	96	red[i] = SCALE(73);
	97	else if (i < 128)
	98	red[i] = SCALE(109);
	99	else if (i < 160)
	100	red[i] = SCALE(146);
	101	else if (i < 192)
	102	red[i] = SCALE(182);
	103	else if (i < 224)
	104	red[i] = SCALE(219);
	105	else if (i < 256)
	106	red[i] = SCALE(255);
	107
	108	if ((i % 32) < 4)
	109	green[i] = 0;
	110	else if (i < 8)
	111	green[i] = SCALE(36);
	112	else if ((i % 32) < 12)
	113	green[i] = SCALE(73);
	114	else if ((i % 32) < 16)
	115	green[i] = SCALE(109);
	116	else if ((i % 32) < 20)
	117	green[i] = SCALE(146);
	118	else if ((i % 32) < 24)
	119	green[i] = SCALE(182);
	120	else if ((i % 32) < 28)
	121	green[i] = SCALE(219);
	122	else if ((i % 32) < 32)
	123	green[i] = SCALE(255);
	124
	125	if ((i % 4) == 0)
	126	blue[i] = SCALE(0);
	127	else if ((i % 4) == 1)
	128	blue[i] = SCALE(85);
	129	else if ((i % 4) == 2)
	130	blue[i] = SCALE(170);
	131	else if ((i % 4) == 3)
	132	blue[i] = SCALE(255);
	133	}
	134	break;
	135	case 4:
	136	red[0] = SCALE(255);
	137	green[0] = 0;
	138	blue[0] = 0;
	139
	140	red[1] = 0;
	141	green[1] = SCALE(255);
	142	blue[1] = 0;
	143
	144	red[2] = 0;
	145	green[2] = 0;
	146	blue[2] = SCALE(255);
	147
	148	red[3] = SCALE(255);
	149	green[3] = SCALE(255);
	150	blue[3] = SCALE(255);
	151
	152	red[4] = 0;
	153	green[4] = SCALE(255);
	154	blue[4] = SCALE(255);
	155
	156	red[5] = SCALE(255);
	157	green[5] = 0;
	158	blue[5] = SCALE(255);
	159
	160	red[6] = SCALE(255);
	161	green[6] = SCALE(255);
	162	blue[6] = 0;
	163
	164	red[7] = 0;
	165	green[7] = 0;
	166	blue[7] = 0;
	167
	168	red[8] = SCALE(176);
	169	green[8] = SCALE(224);
	170	blue[8] = SCALE(230);
	171	red[9] = SCALE(100);
	172	green[9] = SCALE(149);
	173	blue[9] = SCALE(237);
	174	red[10] = SCALE(46);
	175	green[10] = SCALE(139);
	176	blue[10] = SCALE(87);
	177	red[11] = SCALE(160);
	178	green[11] = SCALE(82);
	179	blue[11] = SCALE(45);
	180	red[12] = SCALE(238);
	181	green[12] = SCALE(130);
	182	blue[12] = SCALE(238);
	183	red[13] = SCALE(176);
	184	green[13] = SCALE(48);
	185	blue[13] = SCALE(96);
	186	red[14] = SCALE(50);
	187	green[14] = SCALE(205);
	188	blue[14] = SCALE(50);
	189	red[15] = SCALE(240);
	190	green[15] = SCALE(152);
	191	blue[15] = SCALE(35);
	192	break;
	193	case 2:
	194	red[0] = SCALE(255);
	195	green[0] = 0;
	196	blue[0] = 0;
	197
	198	red[1] = 0;
	199	green[1] = SCALE(255);
	200	blue[1] = 0;
	201
	202	red[2] = 0;
	203	green[2] = 0;
	204	blue[2] = SCALE(255);
	205	red[3] = SCALE(255);
	206	green[3] = SCALE(255);
	207	blue[3] = SCALE(255);
	208	break;
	209	case 1:
	210	red[0] = 0;
	211	green[0] = 0;
	212	blue[0] = 0;
	213
	214	red[1] = SCALE(255);
	215	green[1] = SCALE(255);
	216	blue[1] = SCALE(255);
	217	break;
	218	}
	219
	220	if ((tif = TIFFOpen(argv[3], "w")) == NULL) {
	221	fprintf(stderr, "can't open %s as a TIFF file\n", argv[3]);
	222	return 0;
	223	}
	224
	225	TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, WIDTH);
	226	TIFFSetField(tif, TIFFTAG_IMAGELENGTH, HEIGHT);
	227	TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, bits_per_pixel);
	228	TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_NONE);
	229	TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_PALETTE);
	230	TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 1);
	231	TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, 1);
	232	TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
	233	TIFFSetField(tif, TIFFTAG_RESOLUTIONUNIT, RESUNIT_NONE);
	234	TIFFSetField(tif, TIFFTAG_COLORMAP, red, green, blue);
	235
	236	scan_line = (unsigned char *) malloc(WIDTH / (8 / bits_per_pixel));
	237
	238	for (i = 0; i < HEIGHT; i++) {
	239	for (j = 0, k = 0; j < WIDTH;) {
	240	cmap_index = (j / chunk_size) + ((i / chunk_size) * nchunks);
	241
	242	switch (bits_per_pixel) {
	243	case 8:
	244	scan_line[k++] = cmap_index;
	245	j++;
	246	break;
	247	case 4:
	248	scan_line[k++] = (cmap_index << 4) + cmap_index;
	249	j += 2;
	250	break;
	251	case 2:
	252	scan_line[k++] = (cmap_index << 6) + (cmap_index << 4)
	253	+ (cmap_index << 2) + cmap_index;
	254	j += 4;
	255	break;
	256	case 1:
	257	scan_line[k++] =
	258	((j / chunk_size) == (i / chunk_size)) ? 0x00 : 0xff;
	259	j += 8;
	260	break;
	261	}
	262	}
	263	TIFFWriteScanline(tif, scan_line, i, 0);
	264	}
	265
	266	free(scan_line);
	267	TIFFClose(tif);
	268	return 0;
	269	}
	270
	271	void
	272	Usage()
	273	{
	274	fprintf(stderr, "Usage: %s -depth (8 \| 4 \| 2 \| 1) tiff-image\n", programName);
	275	exit(0);
	276	}