123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336 |
- /*
- THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX
- SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO
- END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A
- ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS
- IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS
- SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE
- FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE
- CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS
- AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE.
- COPYRIGHT 1993-1998 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED.
- */
- /*
- * $Source: f:/miner/source/2d/rcs/pcx.c $
- * $Revision: 1.6 $
- * $Author: john $
- * $Date: 1995/03/01 15:38:12 $
- *
- * Routines to read/write pcx images.
- *
- * $Log: pcx.c $
- * Revision 1.6 1995/03/01 15:38:12 john
- * Better ModeX support.
- *
- * Revision 1.5 1995/01/21 17:54:17 john
- * Added pcx reader for modes other than modex.
- *
- * Revision 1.4 1994/12/08 19:03:56 john
- * Made functions use cfile.
- *
- * Revision 1.3 1994/11/29 02:53:24 john
- * Added error messages; made call be more similiar to iff.
- *
- * Revision 1.2 1994/11/28 20:03:50 john
- * Added PCX functions.
- *
- * Revision 1.1 1994/11/28 19:57:56 john
- * Initial revision
- *
- *
- */
- #pragma off (unreferenced)
- static char rcsid[] = "$Id: pcx.c 1.6 1995/03/01 15:38:12 john Exp $";
- #pragma on (unreferenced)
- #include <stdlib.h>
- #include <stdio.h>
- #include <string.h>
- #include "gr.h"
- #include "mem.h"
- #include "pcx.h"
- #include "cfile.h"
- /* PCX Header data type */
- typedef struct {
- ubyte Manufacturer;
- ubyte Version;
- ubyte Encoding;
- ubyte BitsPerPixel;
- short Xmin;
- short Ymin;
- short Xmax;
- short Ymax;
- short Hdpi;
- short Vdpi;
- ubyte ColorMap[16][3];
- ubyte Reserved;
- ubyte Nplanes;
- short BytesPerLine;
- ubyte filler[60];
- } PCXHeader;
- int pcx_read_bitmap( char * filename, grs_bitmap * bmp,int bitmap_type ,ubyte * palette )
- {
- PCXHeader header;
- CFILE * PCXfile;
- int i, row, col, count, xsize, ysize;
- ubyte data, *pixdata;
- PCXfile = cfopen( filename , "rb" );
- if ( !PCXfile )
- return PCX_ERROR_OPENING;
- // read 128 char PCX header
- if (cfread( &header, sizeof(PCXHeader), 1, PCXfile )!=1) {
- cfclose( PCXfile );
- return PCX_ERROR_NO_HEADER;
- }
- // Is it a 256 color PCX file?
- if ((header.Manufacturer != 10)||(header.Encoding != 1)||(header.Nplanes != 1)||(header.BitsPerPixel != 8)||(header.Version != 5)) {
- cfclose( PCXfile );
- return PCX_ERROR_WRONG_VERSION;
- }
- // Find the size of the image
- xsize = header.Xmax - header.Xmin + 1;
- ysize = header.Ymax - header.Ymin + 1;
- if ( bitmap_type == BM_LINEAR ) {
- if ( bmp->bm_data == NULL ) {
- memset( bmp, 0, sizeof( grs_bitmap ) );
- bmp->bm_data = malloc( xsize * ysize );
- if ( bmp->bm_data == NULL ) {
- cfclose( PCXfile );
- return PCX_ERROR_MEMORY;
- }
- bmp->bm_w = bmp->bm_rowsize = xsize;
- bmp->bm_h = ysize;
- bmp->bm_type = bitmap_type;
- }
- }
- if ( bmp->bm_type == BM_LINEAR ) {
- for (row=0; row< ysize ; row++) {
- pixdata = &bmp->bm_data[bmp->bm_rowsize*row];
- for (col=0; col< xsize ; ) {
- if (cfread( &data, 1, 1, PCXfile )!=1 ) {
- cfclose( PCXfile );
- return PCX_ERROR_READING;
- }
- if ((data & 0xC0) == 0xC0) {
- count = data & 0x3F;
- if (cfread( &data, 1, 1, PCXfile )!=1 ) {
- cfclose( PCXfile );
- return PCX_ERROR_READING;
- }
- memset( pixdata, data, count );
- pixdata += count;
- col += count;
- } else {
- *pixdata++ = data;
- col++;
- }
- }
- }
- } else {
- for (row=0; row< ysize ; row++) {
- for (col=0; col< xsize ; ) {
- if (cfread( &data, 1, 1, PCXfile )!=1 ) {
- cfclose( PCXfile );
- return PCX_ERROR_READING;
- }
- if ((data & 0xC0) == 0xC0) {
- count = data & 0x3F;
- if (cfread( &data, 1, 1, PCXfile )!=1 ) {
- cfclose( PCXfile );
- return PCX_ERROR_READING;
- }
- for (i=0;i<count;i++)
- gr_bm_pixel( bmp, col+i, row, data );
- col += count;
- } else {
- gr_bm_pixel( bmp, col, row, data );
- col++;
- }
- }
- }
- }
- // Read the extended palette at the end of PCX file
- if ( palette != NULL ) {
- // Read in a character which should be 12 to be extended palette file
- if (cfread( &data, 1, 1, PCXfile )==1) {
- if ( data == 12 ) {
- if (cfread(palette,768, 1, PCXfile)!=1) {
- cfclose( PCXfile );
- return PCX_ERROR_READING;
- }
- for (i=0; i<768; i++ )
- palette[i] >>= 2;
- }
- } else {
- cfclose( PCXfile );
- return PCX_ERROR_NO_PALETTE;
- }
- }
- cfclose(PCXfile);
- return PCX_ERROR_NONE;
- }
- int pcx_write_bitmap( char * filename, grs_bitmap * bmp, ubyte * palette )
- {
- int retval;
- int i;
- ubyte data;
- PCXHeader header;
- FILE * PCXfile;
- memset( &header, 0, sizeof( PCXHeader ) );
- header.Manufacturer = 10;
- header.Encoding = 1;
- header.Nplanes = 1;
- header.BitsPerPixel = 8;
- header.Version = 5;
- header.Xmax = bmp->bm_w-1;
- header.Ymax = bmp->bm_h-1;
- header.BytesPerLine = bmp->bm_w;
- PCXfile = fopen( filename , "wb" );
- if ( !PCXfile )
- return PCX_ERROR_OPENING;
- if ( fwrite( &header, sizeof( PCXHeader ), 1, PCXfile ) != 1 ) {
- fclose( PCXfile );
- return PCX_ERROR_WRITING;
- }
- for (i=0; i<bmp->bm_h; i++ ) {
- if (!pcx_encode_line( &bmp->bm_data[bmp->bm_rowsize*i], bmp->bm_w, PCXfile )) {
- fclose( PCXfile );
- return PCX_ERROR_WRITING;
- }
- }
- // Mark an extended palette
- data = 12;
- if (fwrite( &data, 1, 1, PCXfile )!=1) {
- fclose( PCXfile );
- return PCX_ERROR_WRITING;
- }
- // Write the extended palette
- for (i=0; i<768; i++ )
- palette[i] <<= 2;
-
- retval = fwrite( palette, 768, 1, PCXfile );
- for (i=0; i<768; i++ )
- palette[i] >>= 2;
- if (retval !=1) {
- fclose( PCXfile );
- return PCX_ERROR_WRITING;
- }
- fclose( PCXfile );
- return PCX_ERROR_NONE;
- }
- // returns number of bytes written into outBuff, 0 if failed
- int pcx_encode_line(ubyte *inBuff, int inLen, FILE * fp)
- {
- ubyte this, last;
- int srcIndex, i;
- register int total;
- register ubyte runCount; // max single runlength is 63
- total = 0;
- last = *(inBuff);
- runCount = 1;
- for (srcIndex = 1; srcIndex < inLen; srcIndex++) {
- this = *(++inBuff);
- if (this == last) {
- runCount++; // it encodes
- if (runCount == 63) {
- if (!(i=pcx_encode_byte(last, runCount, fp)))
- return(0);
- total += i;
- runCount = 0;
- }
- } else { // this != last
- if (runCount) {
- if (!(i=pcx_encode_byte(last, runCount, fp)))
- return(0);
- total += i;
- }
- last = this;
- runCount = 1;
- }
- }
- if (runCount) { // finish up
- if (!(i=pcx_encode_byte(last, runCount, fp)))
- return 0;
- return total + i;
- }
- return total;
- }
- // subroutine for writing an encoded byte pair
- // returns count of bytes written, 0 if error
- int pcx_encode_byte(ubyte byt, ubyte cnt, FILE * fid)
- {
- if (cnt) {
- if ( (cnt==1) && (0xc0 != (0xc0 & byt)) ) {
- if(EOF == putc((int)byt, fid))
- return 0; // disk write error (probably full)
- return 1;
- } else {
- if(EOF == putc((int)0xC0 | cnt, fid))
- return 0; // disk write error
- if(EOF == putc((int)byt, fid))
- return 0; // disk write error
- return 2;
- }
- }
- return 0;
- }
- //text for error messges
- char pcx_error_messages[] = {
- "No error.\0"
- "Error opening file.\0"
- "Couldn't read PCX header.\0"
- "Unsupported PCX version.\0"
- "Error reading data.\0"
- "Couldn't find palette information.\0"
- "Error writing data.\0"
- };
- //function to return pointer to error message
- char *pcx_errormsg(int error_number)
- {
- char *p = pcx_error_messages;
- while (error_number--) {
- if (!p) return NULL;
- p += strlen(p)+1;
- }
- return p;
- }
|