This is tiff-palette.c in view mode; [Download] [Up]
/* * 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 <tiffio.h> #define WIDTH 512 #define HEIGHT WIDTH #define SCALE(x, s) (((x) * 65535L) / (s)) typedef unsigned char u_char; typedef unsigned short u_short; char * programName; void Usage(); void main(argc, argv) int argc; char ** argv; { int bits_per_pixel, cmsize, i, j, k, cmap_index, chunk_size, nchunks; u_char * scan_line; u_short *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; default: Usage(); } cmsize = nchunks * nchunks; red = (u_short *) malloc(cmsize * sizeof(u_short)); green = (u_short *) malloc(cmsize * sizeof(u_short)); blue = (u_short *) malloc(cmsize * sizeof(u_short)); 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, cmsize - 1); else if (i < 96) red[i] = SCALE(73, cmsize - 1); else if (i < 128) red[i] = SCALE(109, cmsize - 1); else if (i < 160) red[i] = SCALE(146, cmsize - 1); else if (i < 192) red[i] = SCALE(182, cmsize - 1); else if (i < 224) red[i] = SCALE(219, cmsize - 1); else if (i < 256) red[i] = SCALE(255, cmsize - 1); if ((i % 32) < 4) green[i] = 0; else if (i < 8) green[i] = SCALE(36, cmsize - 1); else if ((i % 32) < 12) green[i] = SCALE(73, cmsize - 1); else if ((i % 32) < 16) green[i] = SCALE(109, cmsize - 1); else if ((i % 32) < 20) green[i] = SCALE(146, cmsize - 1); else if ((i % 32) < 24) green[i] = SCALE(182, cmsize - 1); else if ((i % 32) < 28) green[i] = SCALE(219, cmsize - 1); else if ((i % 32) < 32) green[i] = SCALE(255, cmsize - 1); if ((i % 4) == 0) blue[i] = SCALE(0, cmsize - 1); else if ((i % 4) == 1) blue[i] = SCALE(85, cmsize - 1); else if ((i % 4) == 2) blue[i] = SCALE(170, cmsize - 1); else if ((i % 4) == 3) blue[i] = SCALE(255, cmsize - 1); } break; case 4: red[0] = SCALE(255, cmsize - 1); green[0] = 0; blue[0] = 0; red[1] = 0; green[1] = SCALE(255, cmsize - 1); blue[1] = 0; red[2] = 0; green[2] = 0; blue[2] = SCALE(255, cmsize - 1); red[3] = SCALE(255, cmsize - 1); green[3] = SCALE(255, cmsize - 1); blue[3] = SCALE(255, cmsize - 1); red[4] = 0; green[4] = SCALE(255, cmsize - 1); blue[4] = SCALE(255, cmsize - 1); red[5] = SCALE(255, cmsize - 1); green[5] = 0; blue[5] = SCALE(255, cmsize - 1); red[6] = SCALE(255, cmsize - 1); green[6] = SCALE(255, cmsize - 1); blue[6] = 0; red[7] = 0; green[7] = 0; blue[7] = 0; red[8] = SCALE(176, cmsize - 1); green[8] = SCALE(224, cmsize - 1); blue[8] = SCALE(230, cmsize - 1); red[9] = SCALE(100, cmsize - 1); green[9] = SCALE(149, cmsize - 1); blue[9] = SCALE(237, cmsize - 1); red[10] = SCALE(46, cmsize - 1); green[10] = SCALE(139, cmsize - 1); blue[10] = SCALE(87, cmsize - 1); red[11] = SCALE(160, cmsize - 1); green[11] = SCALE(82, cmsize - 1); blue[11] = SCALE(45, cmsize - 1); red[12] = SCALE(238, cmsize - 1); green[12] = SCALE(130, cmsize - 1); blue[12] = SCALE(238, cmsize - 1); red[13] = SCALE(176, cmsize - 1); green[13] = SCALE(48, cmsize - 1); blue[13] = SCALE(96, cmsize - 1); red[14] = SCALE(50, cmsize - 1); green[14] = SCALE(205, cmsize - 1); blue[14] = SCALE(50, cmsize - 1); red[15] = SCALE(240, cmsize - 1); green[15] = SCALE(152, cmsize - 1); blue[15] = SCALE(35, cmsize - 1); break; case 2: red[0] = SCALE(255, cmsize - 1); green[0] = 0; blue[0] = 0; red[1] = 0; green[1] = SCALE(255, cmsize - 1); blue[1] = 0; red[2] = 0; green[2] = 0; blue[2] = SCALE(255, cmsize - 1); red[3] = SCALE(255, cmsize - 1); green[3] = SCALE(255, cmsize - 1); blue[3] = SCALE(255, cmsize - 1); break; } if ((tif = TIFFOpen(argv[3], "w")) == NULL) { fprintf(stderr, "can't open %s as a TIFF file\n", argv[3]); exit(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 = (u_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; } } TIFFWriteScanline(tif, scan_line, i, 0); } free(scan_line); TIFFClose(tif); exit(0); } void Usage() { fprintf(stderr, "Usage: %s -depth (8 | 4 | 2) tiff-image\n", programName); exit(0); }
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.