1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
/* gouldtoppm.c - read GOULD imaging system files and write a portable pixmap
**
** Copyright (C) 1990 Stephen P. Lesniewski
**
** 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 <stdio.h>
#include "ppm.h"
#define MAXVAL 255
static void getgouldheader ARGS(( FILE *infile, unsigned long *cols, unsigned long *nlines, unsigned long *bytesperline, unsigned long *bitsperpixel, unsigned long *NB ));
int
main( argc, argv )
int argc;
char *argv[];
{
FILE *ifp;
pixel *pixrow;
unsigned long cols, nlines, bytesperline, bitsperpixel, NB, x, y;
unsigned char pbuffer[4];
int color_type;
ppm_init( &argc, argv );
if ( argc > 2 )
pm_usage( "[gouldfile]" );
if ( argc == 2 )
ifp = pm_openr( argv[1] );
else
ifp = stdin;
getgouldheader( ifp, &cols, &nlines, &bytesperline, &bitsperpixel, &NB);
ppm_writeppminit(stdout, cols, nlines, MAXVAL, 0);
color_type = bitsperpixel/8;
if (color_type == 0) color_type = NB;
pixrow = ppm_allocrow(cols);
for (y = 0; y < nlines; ++y)
{
for (x = 0; x < cols; ++x)
{
switch (color_type)
{
case 0:
pm_error("incorrect color type" );
case 1:
fread(pbuffer, 1, 1, ifp);
PPM_ASSIGN( pixrow[x], pbuffer[0], pbuffer[0], pbuffer[0]);
break;
case 2:
fread(pbuffer, 2, 1, ifp);
PPM_ASSIGN( pixrow[x], pbuffer[0], pbuffer[1], pbuffer[1]);
break;
case 3:
fread(pbuffer, 3, 1, ifp);
PPM_ASSIGN( pixrow[x], pbuffer[0], pbuffer[1], pbuffer[2]);
break;
default :
fread(pbuffer, 3, 1, ifp);
PPM_ASSIGN( pixrow[x], pbuffer[0], pbuffer[1], pbuffer[2]);
break;
} /* switch */
}
ppm_writeppmrow(stdout, pixrow, cols, MAXVAL, 0);
}
pm_close(ifp);
pm_close(stdout);
exit(0);
}
static void
getgouldheader( infile, cols, nlines, bytesperline, bitsperpixel, NB)
FILE *infile;
unsigned long *cols, *nlines, *bytesperline, *bitsperpixel, *NB;
{
unsigned long nlines_new, bytesperline_new, numheaderrec;
unsigned char headerblk[512];
int i;
if (fread(headerblk, 512, 1, infile) == 0)
pm_error("cannot read gould header" );
*nlines = (headerblk[3]<<8) | headerblk[2];
*bytesperline = (headerblk[5]<<8) | headerblk[4];
*bitsperpixel = (headerblk[7]<<8) | headerblk[6];
numheaderrec = (headerblk[9]<<8) | headerblk[8];
nlines_new = (headerblk[15]<<24)| (headerblk[14]<<16) | (headerblk[13]<<8) | (headerblk[12]);
bytesperline_new = (headerblk[19]<<24)| (headerblk[18]<<16) | (headerblk[17]<<8) | (headerblk[16]);
*NB = (headerblk[23]<<24)| (headerblk[22]<<16) | (headerblk[21]<<8) | (headerblk[20]);
if (numheaderrec > 1)
for (i = 1 ; i <numheaderrec; ++i)
if (fread(headerblk, 512, 1, infile) == 0)
pm_error("cannot read gould header(2nd)" );
if (*nlines==0) *nlines=nlines_new;
if (*bytesperline==0) *bytesperline=bytesperline_new;
*cols = (*bytesperline)*8 / (*bitsperpixel);
}
|
