1 /* $Id: pcx.c,v 1.4 2002-07-26 21:10:53 btb Exp $ */
3 THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
4 SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO
5 END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
6 ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
7 IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
8 SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
9 FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
10 CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS
11 AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
12 COPYRIGHT 1993-1998 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED.
16 * Routines to read/write pcx images.
34 int pcx_encode_byte(ubyte byt, ubyte cnt, FILE * fid);
35 int pcx_encode_line(ubyte *inBuff, int inLen, FILE * fp);
37 /* PCX Header data type */
49 ubyte ColorMap[16][3];
57 * reads a PCXHeader structure from a CFILE
59 static void PCXHeader_read(PCXHeader *ph, CFILE *fp)
61 ph->Manufacturer = cfile_read_byte(fp);
62 ph->Version = cfile_read_byte(fp);
63 ph->Encoding = cfile_read_byte(fp);
64 ph->BitsPerPixel = cfile_read_byte(fp);
65 ph->Xmin = cfile_read_short(fp);
66 ph->Ymin = cfile_read_short(fp);
67 ph->Xmax = cfile_read_short(fp);
68 ph->Ymax = cfile_read_short(fp);
69 ph->Hdpi = cfile_read_short(fp);
70 ph->Vdpi = cfile_read_short(fp);
71 cfread(&ph->ColorMap, 16*3, 1, fp);
72 ph->Reserved = cfile_read_byte(fp);
73 ph->Nplanes = cfile_read_byte(fp);
74 ph->BytesPerLine = cfile_read_short(fp);
75 cfread(&ph->filler, 60, 1, fp);
78 int pcx_read_bitmap( char * filename, grs_bitmap * bmp,int bitmap_type ,ubyte * palette )
82 int i, row, col, count, xsize, ysize;
85 PCXfile = cfopen( filename , "rb" );
87 return PCX_ERROR_OPENING;
89 // read 128 char PCX header
90 PCXHeader_read(&header, PCXfile);
92 if (cfread( &header, sizeof(PCXHeader), 1, PCXfile )!=1) {
94 return PCX_ERROR_NO_HEADER;
98 // Is it a 256 color PCX file?
99 if ((header.Manufacturer != 10)||(header.Encoding != 1)||(header.Nplanes != 1)||(header.BitsPerPixel != 8)||(header.Version != 5)) {
101 return PCX_ERROR_WRONG_VERSION;
104 // Find the size of the image
105 xsize = header.Xmax - header.Xmin + 1;
106 ysize = header.Ymax - header.Ymin + 1;
108 if ( bitmap_type == BM_LINEAR ) {
109 if ( bmp->bm_data == NULL ) {
110 gr_init_bitmap_alloc (bmp, bitmap_type, 0, 0, xsize, ysize, xsize);
114 if ( bmp->bm_type == BM_LINEAR ) {
115 for (row=0; row< ysize ; row++) {
116 pixdata = &bmp->bm_data[bmp->bm_rowsize*row];
117 for (col=0; col< xsize ; ) {
118 if (cfread( &data, 1, 1, PCXfile )!=1 ) {
120 return PCX_ERROR_READING;
122 if ((data & 0xC0) == 0xC0) {
124 if (cfread( &data, 1, 1, PCXfile )!=1 ) {
126 return PCX_ERROR_READING;
128 memset( pixdata, data, count );
138 for (row=0; row< ysize ; row++) {
139 for (col=0; col< xsize ; ) {
140 if (cfread( &data, 1, 1, PCXfile )!=1 ) {
142 return PCX_ERROR_READING;
144 if ((data & 0xC0) == 0xC0) {
146 if (cfread( &data, 1, 1, PCXfile )!=1 ) {
148 return PCX_ERROR_READING;
150 for (i=0;i<count;i++)
151 gr_bm_pixel( bmp, col+i, row, data );
154 gr_bm_pixel( bmp, col, row, data );
161 // Read the extended palette at the end of PCX file
162 if ( palette != NULL ) {
163 // Read in a character which should be 12 to be extended palette file
164 if (cfread( &data, 1, 1, PCXfile )==1) {
166 if (cfread(palette,768, 1, PCXfile)!=1) {
168 return PCX_ERROR_READING;
170 for (i=0; i<768; i++ )
175 return PCX_ERROR_NO_PALETTE;
179 return PCX_ERROR_NONE;
182 int pcx_write_bitmap( char * filename, grs_bitmap * bmp, ubyte * palette )
190 memset( &header, 0, sizeof( PCXHeader ) );
192 header.Manufacturer = 10;
195 header.BitsPerPixel = 8;
197 header.Xmax = bmp->bm_w-1;
198 header.Ymax = bmp->bm_h-1;
199 header.BytesPerLine = bmp->bm_w;
201 PCXfile = fopen( filename , "wb" );
203 return PCX_ERROR_OPENING;
205 if ( fwrite( &header, sizeof( PCXHeader ), 1, PCXfile ) != 1 ) {
207 return PCX_ERROR_WRITING;
210 for (i=0; i<bmp->bm_h; i++ ) {
211 if (!pcx_encode_line( &bmp->bm_data[bmp->bm_rowsize*i], bmp->bm_w, PCXfile )) {
213 return PCX_ERROR_WRITING;
217 // Mark an extended palette
219 if (fwrite( &data, 1, 1, PCXfile )!=1) {
221 return PCX_ERROR_WRITING;
224 // Write the extended palette
225 for (i=0; i<768; i++ )
228 retval = fwrite( palette, 768, 1, PCXfile );
230 for (i=0; i<768; i++ )
235 return PCX_ERROR_WRITING;
239 return PCX_ERROR_NONE;
243 // returns number of bytes written into outBuff, 0 if failed
244 int pcx_encode_line(ubyte *inBuff, int inLen, FILE * fp)
249 register ubyte runCount; // max single runlength is 63
254 for (srcIndex = 1; srcIndex < inLen; srcIndex++) {
257 runCount++; // it encodes
258 if (runCount == 63) {
259 if (!(i=pcx_encode_byte(last, runCount, fp)))
264 } else { // this != last
266 if (!(i=pcx_encode_byte(last, runCount, fp)))
275 if (runCount) { // finish up
276 if (!(i=pcx_encode_byte(last, runCount, fp)))
283 // subroutine for writing an encoded byte pair
284 // returns count of bytes written, 0 if error
285 int pcx_encode_byte(ubyte byt, ubyte cnt, FILE * fid)
288 if ( (cnt==1) && (0xc0 != (0xc0 & byt)) ) {
289 if(EOF == putc((int)byt, fid))
290 return 0; // disk write error (probably full)
293 if(EOF == putc((int)0xC0 | cnt, fid))
294 return 0; // disk write error
295 if(EOF == putc((int)byt, fid))
296 return 0; // disk write error
303 //text for error messges
304 char pcx_error_messages[] = {
306 "Error opening file.\0"
307 "Couldn't read PCX header.\0"
308 "Unsupported PCX version.\0"
309 "Error reading data.\0"
310 "Couldn't find palette information.\0"
311 "Error writing data.\0"
315 //function to return pointer to error message
316 char *pcx_errormsg(int error_number)
318 char *p = pcx_error_messages;
320 while (error_number--) {
331 // fullscreen loading, 10/14/99 Jan Bobrowski
333 int pcx_read_fullscr(char * filename, ubyte * palette)
337 gr_init_bitmap_data(&bm);
338 pcx_error = pcx_read_bitmap(filename, &bm, BM_LINEAR, palette);
339 if (pcx_error == PCX_ERROR_NONE)
341 gr_free_bitmap_data(&bm);