diff options
Diffstat (limited to 'converter/other/pnmtosir.c')
| -rw-r--r-- | converter/other/pnmtosir.c | 146 |
1 files changed, 146 insertions, 0 deletions
diff --git a/converter/other/pnmtosir.c b/converter/other/pnmtosir.c new file mode 100644 index 00000000..c8dec5b6 --- /dev/null +++ b/converter/other/pnmtosir.c @@ -0,0 +1,146 @@ +/* pnmtosir.c - read a portable anymap and produce a Solitaire Image Recorder +** file (MGI TYPE 11 or MGI TYPE 17) +** +** Copyright (C) 1991 by Marvin Landis +** +** 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. This software is provided "as is" without express or +** implied warranty. +*/ + +#include "pnm.h" + +#define MAXCOLORS 256 + +int main(int argc, char * argv[]) { + FILE* ifp; + xel** xels; + register xel* xP; + const char* dumpname; + int rows, cols, format, row, col; + int m, n; + int grayscale; + xelval maxval; + const char* const usage = "[pnmfile]"; + unsigned char ub; + unsigned short Header[16]; + unsigned short LutHeader[16]; + unsigned short Lut[2048]; + + pnm_init( &argc, argv ); + + if ( argc > 2 ) + pm_usage( usage ); + + if ( argc == 2 ) + { + dumpname = argv[1]; + ifp = pm_openr( argv[1] ); + } + else + { + dumpname = "Standard Input"; + ifp = stdin; + } + + xels = pnm_readpnm( ifp, &cols, &rows, &maxval, &format ); + pm_close( ifp ); + + /* Figure out the colormap. */ + switch ( PNM_FORMAT_TYPE(format) ) + { + case PPM_TYPE: + grayscale = 0; + pm_message( "Writing a 24-bit SIR format (MGI TYPE 11)" ); + break; + + case PGM_TYPE: + grayscale = 1; + pm_message( "Writing a grayscale SIR format (MGI TYPE 17)" ); + break; + + default: + grayscale = 1; + pm_message( "Writing a monochrome SIR format (MGI TYPE 17)" ); + break; + } + + /* Set up the header. */ + Header[0] = 0x3a4f; + Header[1] = 0; + if (grayscale) + Header[2] = 17; + else + Header[2] = 11; + Header[3] = cols; + Header[4] = rows; + Header[5] = 0; + Header[6] = 1; + Header[7] = 6; + Header[8] = 0; + Header[9] = 0; + for (n = 0; n < 10; n++) + pm_writelittleshort(stdout,Header[n]); + for (n = 10; n < 256; n++) + pm_writelittleshort(stdout,0); + + /* Create color map */ + LutHeader[0] = 0x1524; + LutHeader[1] = 0; + LutHeader[2] = 5; + LutHeader[3] = 256; + LutHeader[4] = 256; + for (n = 0; n < 5; n++) + pm_writelittleshort(stdout,LutHeader[n]); + for (n = 5; n < 256; n++) + pm_writelittleshort(stdout,0); + + for(n = 0; n < 3; n ++) + for (m = 0; m < 256; m++) + Lut[m * 4 + n] = m << 8; + for (n = 0; n < 1024; n++) + pm_writelittleshort(stdout,Lut[n]); + + /* Finally, write out the data. */ + switch ( PNM_FORMAT_TYPE(format) ) + { + case PPM_TYPE: + for ( row = 0; row < rows; ++row ) + for ( col = 0, xP = xels[row]; col < cols; ++col, ++xP ) + { + ub = (char) ( PPM_GETR( *xP ) * ( 255 / maxval ) ); + fputc( ub, stdout ); + } + for ( row = 0; row < rows; ++row ) + for ( col = 0, xP = xels[row]; col < cols; ++col, ++xP ) + { + ub = (char) ( PPM_GETG( *xP ) * ( 255 / maxval ) ); + fputc( ub, stdout ); + } + for ( row = 0; row < rows; ++row ) + for ( col = 0, xP = xels[row]; col < cols; ++col, ++xP ) + { + ub = (char) ( PPM_GETB( *xP ) * ( 255 / maxval ) ); + fputc( ub, stdout ); + } + break; + + default: + for ( row = 0; row < rows; ++row ) + for ( col = 0, xP = xels[row]; col < cols; ++col, ++xP ) + { + register unsigned long val; + + val = PNM_GET1( *xP ); + ub = (char) ( val * ( 255 / maxval ) ); + fputc( ub, stdout ); + } + break; + } + + exit( 0 ); +} + |