This is pnmtosir.c in view mode; [Download] [Up]
/* 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"
#include "ppmcmap.h"
#define MAXCOLORS 256
int main( argc, argv )
int argc;
char* argv[];
{
FILE* ifp;
xel** xels;
register xel* xP;
char* dumpname;
int rows, cols, format, row, col;
int i, m, n;
int grayscale;
xelval maxval;
char* 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)",0,0,0,0,0 );
break;
case PGM_TYPE:
grayscale = 1;
pm_message( "Writing a grayscale SIR format (MGI TYPE 17)",0,0,0,0,0 );
break;
default:
grayscale = 1;
pm_message( "Writing a monochrome SIR format (MGI TYPE 17)",0,0,0,0,0 );
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 );
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.