diff options
Diffstat (limited to 'converter')
| -rw-r--r-- | converter/other/gemtopnm.c | 389 |
1 files changed, 195 insertions, 194 deletions
diff --git a/converter/other/gemtopnm.c b/converter/other/gemtopnm.c index c7d3433b..70debc2e 100644 --- a/converter/other/gemtopnm.c +++ b/converter/other/gemtopnm.c @@ -40,6 +40,8 @@ */ #include <assert.h> + +#include "mallocvar.h" #include "pnm.h" #define MAXVAL 3 @@ -47,35 +49,80 @@ #define DARK 1 #define BLACK 0 -char pattern[8]; -static void getinit ARGS ((FILE *file, int *colsP, int *rowsP, int *padrightP, - int *patlenP, int *planesP)); + +static void +getinit(FILE * const ifP, + int * const colsP, + int * const rowsP, + int * const padrightP, + int * const patlenP, + int * const planesP) { + + short s; + short headlen; + + if (pm_readbigshort(ifP, &s) == -1) /* Image file version */ + pm_error("EOF / read error"); + if (s != 1) + pm_error("unknown version number (%d)", s); + if (pm_readbigshort(ifP, &headlen) == -1) /* Header length in words */ + pm_error("EOF / read error"); + if (headlen < 8) + pm_error("short header (%d)", headlen); + if (pm_readbigshort(ifP, &s) == -1) /* Number of planes */ + pm_error("EOF / read error"); + if (s != 4 && s != 1) + pm_error("This program can interpret IMGs with only 1 or 4 planes"); + *planesP = s; + if (pm_readbigshort(ifP, &s) == -1) /* Pattern definition length (bytes) */ + pm_error("EOF / read error"); + if (s < 1 || s > 8) + pm_error("illegal pattern length (%d)", s); + *patlenP = s; + if (pm_readbigshort(ifP, &s) == -1 /* Pixel height (microns) */ + || pm_readbigshort(ifP, &s) == -1 /* Pixel height (microns) */ + || pm_readbigshort(ifP, &s) == -1) /* Scan line width */ + pm_error("EOF / read error"); + *colsP = s; + if (pm_readbigshort(ifP, &s) == -1) /* Number of scan line items */ + pm_error("EOF / read error"); + *rowsP = s; + *padrightP = 7 - ((*colsP + 7) & 0x7); + + headlen -= 8; + while (headlen-- > 0) { + getc(ifP); + getc(ifP); + } +} + + int -main(argc, argv) - int argc; - char *argv[]; -{ +main(int argc, const char ** argv) { + int debug = 0; - FILE *f; + FILE *ifP; int row; int rows, cols, padright, patlen, planes; /* attributes of input image */ int type; /* The format type (PBM/PPM) of the output image */ - bit *bitrow[4]; + bit * bitrow[4]; /* One row of input, one or four planes. (If one, only [0] is defined)*/ xel * xelrow; /* One row of output */ + char pattern[8]; const char * const usage = "[-debug] [gem IMG file]"; int argn; -/* Process multiple planes by maintaining a separate row of bits for each - * plane. In a single-plane image, all we have to do is write out the - * first plane; in a multiple-plane image, we combine them just before writing - * out the row. - */ - pnm_init( &argc, argv ); + /* Process multiple planes by maintaining a separate row of bits for each + plane. In a single-plane image, all we have to do is write out the + first plane; in a multiple-plane image, we combine them just before + writing out the row. + */ + pm_proginit(&argc, argv); + debug = 0; /* initial value */ argn = 1; while (argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0') @@ -88,221 +135,175 @@ main(argc, argv) } if (argc == argn) - f = stdin; + ifP = stdin; else { - f = pm_openr (argv[argn]); + ifP = pm_openr (argv[argn]); ++argn; } if (argn != argc) pm_usage (usage); - getinit (f, &cols, &rows, &padright, &patlen, &planes); + getinit(ifP, &cols, &rows, &padright, &patlen, &planes); if (planes == 1) type = PBM_TYPE; else type = PPM_TYPE; - pnm_writepnminit( stdout, cols, rows, MAXVAL, type, 0 ); + pnm_writepnminit(stdout, cols, rows, MAXVAL, type, 0); { /* allocate input row data structure */ - int plane; - for (plane = 0; plane < planes; plane++) - bitrow[plane] = malloc (cols + padright); + unsigned int plane; + for (plane = 0; plane < planes; ++plane) { + MALLOCARRAY(bitrow[plane], cols + padright); + if (!bitrow[plane]) + pm_error("Unable to allocate memory for %u columns", cols); + } } - xelrow = pnm_allocrow(cols+padright); /* Output row */ + xelrow = pnm_allocrow(cols + padright); /* Output row */ for (row = 0; row < rows; ) { - int linerep; - int plane; - - linerep = 1; - for (plane = 0; plane < planes; plane++) { - int col; - col = 0; - while (col < cols) { - int c; - switch (c = getc(f)) { - case 0x80: /* Bit String */ - { - int j; - c = getc(f); /* Byte count */ - if (debug) - pm_message("bit string of %d bytes", c); - - if (col + c * 8 > cols + padright) - pm_error ("bad byte count"); - for (j = 0; j < c; ++j) { - int cc, k; - cc = getc(f); - for (k = 0x80; k; k >>= 1) { - bitrow[plane][col] = (k & cc) ? 0 : 1; - ++col; - } - } - } - break; - case 0: /* Pattern run */ - { - int j, l; - c = getc(f); /* Repeat count */ - if (debug) - pm_message("pattern run of %d repetitions", c); - /* line repeat */ - if (c == 0) { - c = getc(f); - if (c != 0x00ff) - pm_error( "badly formed line repeat" ); - linerep = getc(f); - break; - } - fread (pattern, 1, patlen, f); - if (col + c * patlen * 8 > cols + padright) - pm_error ("bad pattern repeat count"); - for (j = 0; j < c; ++j) - for (l = 0; l < patlen; ++l) { - int k; - for (k = 0x80; k; k >>= 1) { - bitrow[plane][col] = (k & pattern[l]) ? 0 : 1; + int linerep; + unsigned int plane; + + linerep = 1; + + for (plane = 0; plane < planes; ++plane) { + unsigned int col; + col = 0; + while (col < cols) { + int c; + switch (c = getc(ifP)) { + case 0x80: { /* Bit String */ + unsigned int j; + c = getc(ifP); /* Byte count */ + if (debug) + pm_message("bit string of %d bytes", c); + + if (col + c * 8 > cols + padright) + pm_error("bad byte count"); + for (j = 0; j < c; ++j) { + unsigned char cc; + unsigned char k; + cc = getc(ifP); + for (k = 0x80; k != 0x00; k >>= 1) { + bitrow[plane][col] = (k & cc) ? 0 : 1; ++col; } } - } - break; - - default: /* Solid run */ - { - int l, j; - if (debug) - pm_message("solid run of %d bytes %s", c & 0x7f, - c & 0x80 ? "on" : "off" ); - /* each byte had eight bits DSB */ - l = (c & 0x80) ? 0: 1; - c = (c & 0x7f) * 8; - if (col + c > cols + padright) - pm_error ("bad solid run repeat count"); - for (j = 0; j < c; ++j) { - bitrow[plane][col] = l; - ++col; + } break; + case 0: { /* Pattern run */ + unsigned int j; + c = getc(ifP); /* Repeat count */ + if (debug) + pm_message("pattern run of %d repetitions", c); + /* line repeat */ + if (c == 0) { + c = getc(ifP); + if (c != 0x00ff) + pm_error("badly formed line repeat"); + linerep = getc(ifP); + } else { + fread(pattern, 1, patlen, ifP); + if (col + c * patlen * 8 > cols + padright) + pm_error("bad pattern repeat count"); + for (j = 0; j < c; ++j) { + unsigned int l; + for (l = 0; l < patlen; ++l) { + unsigned int k; + for (k = 0x80; k; k >>= 1) { + bitrow[plane][col] = + (k & pattern[l]) ? 0 : 1; + ++col; + } + } + } + } + } break; + + default: { /* Solid run */ + unsigned int const l = (c & 0x80) ? 0: 1; + + unsigned int j; + + if (debug) + pm_message("solid run of %d bytes %s", c & 0x7f, + c & 0x80 ? "on" : "off" ); + /* each byte had eight bits DSB */ + c = (c & 0x7f) * 8; + if (col + c > cols + padright) + pm_error("bad solid run repeat count"); + for (j = 0; j < c; ++j) { + bitrow[plane][col] = l; + ++col; + } } - } break; - case EOF: /* End of file */ - pm_error( "end of file reached" ); - + case EOF: /* End of file */ + pm_error("end of file reached"); + } } + if (debug) + pm_message("EOL plane %d row %d", plane, row); + if (col != cols + padright) + pm_error("EOL beyond edge"); } - if ( debug ) - pm_message( "EOL plane %d row %d", plane, row ); - if (col != cols + padright) - pm_error( "EOL beyond edge" ); - } - if (planes == 4) { - /* Construct a pixel from the 4 planes of bits for this row */ - int col; - for (col = 0; col < cols; col++) { - int r, g, b, i; - - const int r_bit = !bitrow[0][col]; - const int g_bit = !bitrow[1][col]; - const int b_bit = !bitrow[2][col]; - i = bitrow[3][col]; - - /* Deal with weird GEM palette - white/black/gray are - encoded oddly - */ - if (r_bit == g_bit && g_bit == b_bit) { - /* It's black, white, or gray */ - if (r_bit && i) r = LIGHT; - else if (r_bit) r = BLACK; - else if (i) r = MAXVAL; - else r = DARK; - g = b = r; - } else { - /* It's one of the twelve colored colors */ - if (!i) { - /* Low intensity */ - r = r_bit * LIGHT; - g = g_bit * LIGHT; - b = b_bit * LIGHT; + if (planes == 4) { + /* Construct a pixel from the 4 planes of bits for this row */ + unsigned int col; + for (col = 0; col < cols; ++col) { + unsigned int const r_bit = !bitrow[0][col]; + unsigned int const g_bit = !bitrow[1][col]; + unsigned int const b_bit = !bitrow[2][col]; + unsigned int const i = bitrow[3][col]; + + unsigned int r, g, b; + + /* Deal with weird GEM palette - white/black/gray are + encoded oddly + */ + if (r_bit == g_bit && g_bit == b_bit) { + /* It's black, white, or gray */ + if (r_bit && i) r = LIGHT; + else if (r_bit) r = BLACK; + else if (i) r = MAXVAL; + else r = DARK; + g = b = r; } else { - /* Normal intensity */ - r = r_bit * MAXVAL; - g = g_bit * MAXVAL; - b = b_bit * MAXVAL; + /* It's one of the twelve colored colors */ + if (!i) { + /* Low intensity */ + r = r_bit * LIGHT; + g = g_bit * LIGHT; + b = b_bit * LIGHT; + } else { + /* Normal intensity */ + r = r_bit * MAXVAL; + g = g_bit * MAXVAL; + b = b_bit * MAXVAL; + } } + PPM_ASSIGN(xelrow[col], r, g, b); } - PPM_ASSIGN(xelrow[col], r, g, b); + } else { + unsigned int col; + for (col = 0; col < cols; ++col) + PNM_ASSIGN1(xelrow[col], bitrow[0][col]); + } + while (linerep--) { + pnm_writepnmrow(stdout, xelrow, cols, MAXVAL, type, 0); + ++row; } - } else { - int col; - for (col = 0; col < cols; col++) - PNM_ASSIGN1(xelrow[col], bitrow[0][col]); - } - while (linerep--) { - pnm_writepnmrow( stdout, xelrow, cols, MAXVAL, type, 0 ); - ++row; - } } pnm_freerow(xelrow); - pm_close( f ); - pm_close( stdout ); + pm_close(ifP); + pm_close(stdout); exit(0); } -static void -getinit (file, colsP, rowsP, padrightP, patlenP, planesP) - FILE *file; - int *colsP; - int *rowsP; - int *padrightP; - int *patlenP; - int *planesP; -{ - short s; - short headlen; - - if (pm_readbigshort (file, &s) == -1) /* Image file version */ - pm_error ("EOF / read error"); - if (s != 1) - pm_error ("unknown version number (%d)", (int) s); - if (pm_readbigshort (file, &headlen) == -1) /* Header length in words */ - pm_error ("EOF / read error"); - if (headlen < 8) - pm_error ("short header (%d)", (int) headlen); - if (pm_readbigshort (file, &s) == -1) /* Number of planes */ - pm_error ("EOF / read error"); - if (s != 4 && s != 1) - pm_error ("This program can interpret IMGs with only 1 or 4 planes"); - *planesP = s; - if (pm_readbigshort (file, &s) == -1) /* Pattern definition length (bytes) */ - pm_error ("EOF / read error"); - if (s < 1 || s > 8) - pm_error ("illegal pattern length (%d)", (int) s); - *patlenP = (int) s; - if (pm_readbigshort (file, &s) == -1 /* Pixel height (microns) */ - || pm_readbigshort (file, &s) == -1 /* Pixel height (microns) */ - || pm_readbigshort (file, &s) == -1) /* Scan line width */ - pm_error ("EOF / read error"); - *colsP = (int) s; - if (pm_readbigshort (file, &s) == -1) /* Number of scan line items */ - pm_error ("EOF / read error"); - *rowsP = (int) s; - *padrightP = 7 - ((*colsP + 7) & 7); - - headlen -= 8; - while (headlen-- > 0) - { - (void) getc (file); - (void) getc (file); - } -} - - - |