home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
NETWORK
/
netpbm_src.lzh
/
NETPBM
/
PGM
/
psidtopgm.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-11-18
|
3KB
|
137 lines
/* psidtopgm.c - convert PostScript "image" data into a portable graymap
**
** Copyright (C) 1989 by Jef Poskanzer.
**
** 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 "pgm.h"
static int gethexit ARGS(( FILE* ifp ));
int
main( argc, argv )
int argc;
char* argv[];
{
FILE* ifp;
gray* grayrow;
register gray* gP;
int argn, row;
register int col, val;
int maxval;
int rows, cols, bitspersample;
char* usage = "<width> <height> <bits/sample> [imagedata]";
pgm_init( &argc, argv );
argn = 1;
if ( argn + 3 > argc )
pm_usage( usage );
cols = atoi( argv[argn++] );
rows = atoi( argv[argn++] );
bitspersample = atoi( argv[argn++] );
if ( cols <= 0 || rows <= 0 || bitspersample <= 0 )
pm_usage( usage );
if ( argn < argc )
{
ifp = pm_openr( argv[argn] );
++argn;
}
else
ifp = stdin;
if ( argn != argc )
pm_usage( usage );
maxval = pm_bitstomaxval( bitspersample );
if ( maxval > PGM_MAXMAXVAL )
pm_error(
"bits/sample is too large - try reconfiguring with PGM_BIGGRAYS" );
pgm_writepgminit( stdout, cols, rows, (gray) maxval, 0 );
grayrow = pgm_allocrow( ( cols + 7 ) / 8 * 8 );
for ( row = 0; row < rows; ++row)
{
for ( col = 0, gP = grayrow; col < cols; )
{
val = gethexit( ifp ) << 4;
val += gethexit( ifp );
switch ( bitspersample )
{
case 1:
*gP++ = val >> 7;
*gP++ = ( val >> 6 ) & 0x1;
*gP++ = ( val >> 5 ) & 0x1;
*gP++ = ( val >> 4 ) & 0x1;
*gP++ = ( val >> 3 ) & 0x1;
*gP++ = ( val >> 2 ) & 0x1;
*gP++ = ( val >> 1 ) & 0x1;
*gP++ = val & 0x1;
col += 8;
break;
case 2:
*gP++ = val >> 6;
*gP++ = ( val >> 4 ) & 0x3;
*gP++ = ( val >> 2 ) & 0x3;
*gP++ = val & 0x3;
col += 4;
break;
case 4:
*gP++ = val >> 4;
*gP++ = val & 0xf;
col += 2;
break;
case 8:
*gP++ = val;
++col;
break;
default:
pm_error( "bitspersample of %d not supported", bitspersample );
}
}
pgm_writepgmrow( stdout, grayrow, cols, (gray) maxval, 0 );
}
pm_close( ifp );
pm_close( stdout );
exit( 0 );
}
static int
gethexit( ifp )
FILE* ifp;
{
register int i;
register char c;
for ( ; ; )
{
i = getc( ifp );
if ( i == EOF )
pm_error( "EOF / read error" );
c = (char) i;
if ( c >= '0' && c <= '9' )
return c - '0';
else if ( c >= 'A' && c <= 'F' )
return c - 'A' + 10;
else if ( c >= 'a' && c <= 'f' )
return c - 'a' + 10;
/* Else ignore - whitespace. */
}
}