/* * This software is copyrighted as noted below. It may be freely copied, * modified, and redistributed, provided that the copyright notice is * preserved on all copies. * * There is no warranty or other guarantee of fitness for this software, * it is provided solely "as is". Bug reports or fixes may be sent * to the author, who may or may not act on them as he desires. * * You may not include this software in a program or other software product * without supplying the source, or without informing the end-user that the * source is available for no extra charge. * * If you modify this software, you should include a notice giving the * name of the person performing the modification, the date of modification, * and the reason for such modification. */ /* * rletoppm - A conversion program to go from Utah's "rle" image format to * pbmplus ppm true color image format. * * Author: Wesley C. Barris * AHPCRC * Minnesota Supercomputer Center, Inc. * Date: Fri July 20 1990 * Copyright (c) Wesley C. Barris */ #ifndef lint static char rcsid[] = "$Header: /l/spencer/src/urt/cnv/RCS/rletoppm.c,v 3.0.1.4 1992/03/04 19:30:10 spencer Exp $"; #endif #if 0 rletoppm() /* Tag. */ #endif /*----------------------------------------------------------------------------- * System includes. */ #include #define NO_DECLARE_MALLOC #include "rle.h" #include #define VPRINTF if (verbose || header) fprintf #define GRAYSCALE 001 /* 8 bits, no colormap */ #define PSEUDOCOLOR 010 /* 8 bits, colormap */ #define TRUECOLOR 011 /* 24 bits, colormap */ #define DIRECTCOLOR 100 /* 24 bits, no colormap */ /* * PBMPLUS type declarations. */ pixval maxval = 255; /* * Utah type declarations. */ rle_hdr hdr; rle_map *colormap; /* * Other declarations. */ FILE *fpin; int visual, maplen; int width, height; int verbose = 0, header = 0; int plain = 0; /*----------------------------------------------------------------------------- * Read the rle header. */ void read_rle_header() { int i; hdr.rle_file = fpin; rle_get_setup(&hdr); width = hdr.xmax - hdr.xmin + 1; height = hdr.ymax - hdr.ymin + 1; VPRINTF(stderr, "Image size: %dx%d\n", width, height); if (hdr.ncolors == 1 && hdr.ncmap == 3) { visual = PSEUDOCOLOR; colormap = hdr.cmap; maplen = (1 << hdr.cmaplen); VPRINTF(stderr, "Mapped color image with a map of length %d.\n", maplen); } else if (hdr.ncolors == 3 && hdr.ncmap == 0) { visual = DIRECTCOLOR; VPRINTF(stderr, "24 bit color image, no colormap.\n"); } else if (hdr.ncolors == 3 && hdr.ncmap == 3) { visual = TRUECOLOR; colormap = hdr.cmap; maplen = (1 << hdr.cmaplen); VPRINTF(stderr, "24 bit color image with color map of length %d\n" ,maplen); } else if (hdr.ncolors == 1 && hdr.ncmap == 0) { visual = GRAYSCALE; VPRINTF(stderr, "Grayscale image.\n"); } else { fprintf(stderr, "ncolors = %d, ncmap = %d, I don't know how to handle this!\n", hdr.ncolors, hdr.ncmap); exit(-1); } if (hdr.alpha == 0) VPRINTF(stderr, "No alpha channel.\n"); else if (hdr.alpha == 1) VPRINTF(stderr, "Alpha channel exists!\n"); else { fprintf(stderr, "alpha = %d, I don't know how to handle this!\n", hdr.alpha); exit(-1); } switch (hdr.background) { case 0: VPRINTF(stderr, "Use all pixels, ignore background color."); break; case 1: VPRINTF(stderr, "Use only non-background pixels, ignore background color."); break; case 2: VPRINTF(stderr, "Use only non-background pixels, clear to background color (default)."); break; default: VPRINTF(stderr, "Unknown background flag!\n"); break; } for (i = 0; i < hdr.ncolors; i++) VPRINTF(stderr, " %d", hdr.bg_color[i]); if (hdr.ncolors == 1 && hdr.ncmap == 3) { VPRINTF(stderr, " (%d %d %d)\n", hdr.cmap[hdr.bg_color[0]]>>8, hdr.cmap[hdr.bg_color[0]+256]>>8, hdr.cmap[hdr.bg_color[0]+512]>>8); } else if (hdr.ncolors == 3 && hdr.ncmap == 3) { VPRINTF(stderr, " (%d %d %d)\n", hdr.cmap[hdr.bg_color[0]]>>8, hdr.cmap[hdr.bg_color[1]+256]>>8, hdr.cmap[hdr.bg_color[2]+512]>>8); } else VPRINTF(stderr, "\n"); if (hdr.comments) for (i = 0; hdr.comments[i] != NULL; i++) VPRINTF(stderr, "%s\n", hdr.comments[i]); } /*----------------------------------------------------------------------------- * Write the ppm image data. */ void write_ppm_data() { rle_pixel ***scanlines, **scanline; register pixval r, g, b; register pixel *pixelrow, *pP; register int scan, x, y; /* * Allocate some stuff. */ pixelrow = ppm_allocrow(width); scanlines = (rle_pixel ***)malloc( height * sizeof(rle_pixel **) ); RLE_CHECK_ALLOC( hdr.cmd, scanlines, "scanline pointers" ); for ( scan = 0; scan < height; scan++ ) RLE_CHECK_ALLOC( hdr.cmd, (rle_row_alloc(&hdr, &scanlines[scan]) >= 0), "pixel memory" ); /* * Loop through those scan lines. */ for (scan = 0; scan < height; scan++) y = rle_getrow(&hdr, scanlines[height - scan - 1]); for (scan = 0; scan < height; scan++) { scanline = scanlines[scan]; switch (visual) { case GRAYSCALE: /* 8 bits without colormap */ for (x = 0, pP = pixelrow; x < width; x++, pP++) { r = scanline[0][x]; g = scanline[0][x]; b = scanline[0][x]; PPM_ASSIGN(*pP, r, g, b); } break; case TRUECOLOR: /* 24 bits with colormap */ for (x = 0, pP = pixelrow; x < width; x++, pP++) { r = colormap[scanline[0][x]]>>8; g = colormap[scanline[1][x]+256]>>8; b = colormap[scanline[2][x]+512]>>8; PPM_ASSIGN(*pP, r, g, b); } break; case DIRECTCOLOR: /* 24 bits without colormap */ for (x = 0, pP = pixelrow; x < width; x++, pP++) { r = scanline[0][x]; g = scanline[1][x]; b = scanline[2][x]; PPM_ASSIGN(*pP, r, g, b); } break; case PSEUDOCOLOR: /* 8 bits with colormap */ for (x = 0, pP = pixelrow; x < width; x++, pP++) { r = colormap[scanline[0][x]]>>8; g = colormap[scanline[0][x]+256]>>8; b = colormap[scanline[0][x]+512]>>8; PPM_ASSIGN(*pP, r, g, b); } break; default: break; } /* * Write the scan line. */ ppm_writeppmrow(stdout, pixelrow, width, maxval, plain); } /* end of for scan = 0 to height */ /* Free scanline memory. */ for ( scan = 0; scan < height; scan++ ) rle_row_free( &hdr, scanlines[scan] ); free( scanlines ); } /*----------------------------------------------------------------------------- * Convert a Utah rle file to a pbmplus ppm file. */ int main(argc, argv) int argc; char **argv; { char *fname = NULL; /* * Get those options. */ if (!scanargs(argc,argv, "% v%- h%- p%- infile%s\n(\ \tConvert an RLE image to ppm true color.\n\ \t-v\tVerbose -- print out progress.\n\ \t-h\tPrint RLE header information and exit.\n\ \t-p\tWrite output image in \"plain\" mode.)", &verbose, &header, &plain, &fname)) exit(-1); /* * Open the file. */ /* Initialize header. */ hdr = *rle_hdr_init( (rle_hdr *)NULL ); rle_names( &hdr, cmd_name( argv ), fname, 0 ); fpin = rle_open_f( hdr.cmd, fname, "r" ); /* * Read the rle file header. */ read_rle_header(); if (header) exit(0); /* * Write the ppm file header. */ ppm_writeppminit(stdout, width, height, maxval, plain); /* * Write the rest of the ppm file. */ write_ppm_data(); fclose(fpin); return 0; }