Sun Color Raster to file to IRIS format
Paul Haeberli
paul at manray.asd.sgi.com
Fri Sep 14 04:15:36 AEST 1990
/*
* fromsun.c -
* convert any sun image file to Iris format.
*
* This program should handle 1-bit, 8-bit and 24-bit sun rasterfiles.
* Please mail paul at sgi.com if you have a problem rasterfile.
*
* To use:
* 1. copy /usr/include/rasterfile.h from a sun system
* 2. cc -I/usr/inlcude/gl fromsun.c -o fromsun -limage
* 3. to convert: fromsun blat.ras t.rgb
* 4. to display: ipaste t.rgb
*
* Paul Haeberli at Silicon Graphics - 1989
*
*/
#include "image.h"
#include "rasterfile.h"
#define MAXWIDTH 4096
char cbuf[4*MAXWIDTH];
short rbuf[MAXWIDTH];
short gbuf[MAXWIDTH];
short bbuf[MAXWIDTH];
unsigned char rmap[256];
unsigned char gmap[256];
unsigned char bmap[256];
main(argc,argv)
int argc;
char **argv;
{
IMAGE *image;
FILE *inf;
int xsize, ysize, zsize, rowbytes;
int y, depth, maplen, rastype, raslength;
struct rasterfile hdr;
unsigned char *fb, *fbptr;
int fblength;
if(argc<3) {
fprintf(stderr,"usage: fromsun sunimage irisimage\n");
exit(1);
}
inf = fopen(argv[1],"r");
if(!inf) {
fprintf(stderr,"fromsun: can't open %s\n",argv[1]);
exit(1);
}
fread(&hdr,1,sizeof(hdr),inf);
hdr.ras_magic = RAS_MAGIC;
xsize = hdr.ras_width;
ysize = hdr.ras_height;
depth = hdr.ras_depth;
rastype = hdr.ras_type;
rowbytes = hdr.ras_length;
maplen = hdr.ras_maplength;
raslength = hdr.ras_length;
if(depth != 8 && depth != 24 && depth != 1) {
fprintf(stderr,"fromsun: bad ras_depth is %d\n",hdr.ras_depth);
exit(1);
}
if(maplen == 0 && depth == 8) {
fprintf(stderr,"fromsun: no map on 8 bit image\n");
exit(1);
}
if(maplen > 0) {
fread(rmap,maplen/3,1,inf);
fread(gmap,maplen/3,1,inf);
fread(bmap,maplen/3,1,inf);
}
switch(rastype) {
case RT_OLD:
hdr.ras_length = ysize*linebytes(xsize,depth);
rowbytes = hdr.ras_length/ysize;
break;
case RT_STANDARD:
rowbytes = hdr.ras_length/ysize;
break;
case RT_BYTE_ENCODED:
rowbytes = linebytes(xsize,depth);
break;
default:
fprintf(stderr,"fromsun: bad ras_type is %d\n",rastype);
exit(1);
break;
}
if(depth == 1)
image = iopen(argv[2],"w",RLE(1),2,xsize,ysize,1);
else
image = iopen(argv[2],"w",RLE(1),3,xsize,ysize,3);
if(rastype == RT_BYTE_ENCODED) {
fblength = rowbytes*ysize;
fb = (unsigned char *)malloc(fblength);
getrledata(inf,raslength,fb,fblength);
fbptr = fb;
for(y=0; y<ysize; y++) {
switch(depth) {
case 1:
bitstorow(fbptr,rbuf,xsize);
fbptr += rowbytes;
putrow(image,rbuf,(ysize-1)-y,0);
break;
case 8:
cvtrow8(fbptr,rbuf,gbuf,bbuf,xsize);
fbptr += rowbytes;
putrow(image,rbuf,(ysize-1)-y,0);
putrow(image,gbuf,(ysize-1)-y,1);
putrow(image,bbuf,(ysize-1)-y,2);
break;
case 24:
unswizzle24(fbptr,rbuf,gbuf,bbuf,xsize);
fbptr += rowbytes;
putrow(image,rbuf,(ysize-1)-y,0);
putrow(image,gbuf,(ysize-1)-y,1);
putrow(image,bbuf,(ysize-1)-y,2);
break;
case 32:
unswizzle32(fbptr,rbuf,gbuf,bbuf,xsize);
fbptr += rowbytes;
putrow(image,rbuf,(ysize-1)-y,0);
putrow(image,gbuf,(ysize-1)-y,1);
putrow(image,bbuf,(ysize-1)-y,2);
break;
}
}
} else {
for(y=0; y<ysize; y++) {
switch(depth) {
case 1:
fread(cbuf,rowbytes,1,inf);
bitstorow(cbuf,rbuf,xsize);
putrow(image,rbuf,(ysize-1)-y,0);
break;
case 8:
fread(cbuf,xsize,1,inf);
cvtrow8(cbuf,rbuf,gbuf,bbuf,xsize);
putrow(image,rbuf,(ysize-1)-y,0);
putrow(image,gbuf,(ysize-1)-y,1);
putrow(image,bbuf,(ysize-1)-y,2);
break;
case 24:
fread(cbuf,3*xsize,1,inf);
unswizzle24(cbuf,rbuf,gbuf,bbuf,xsize);
putrow(image,rbuf,(ysize-1)-y,0);
putrow(image,gbuf,(ysize-1)-y,1);
putrow(image,bbuf,(ysize-1)-y,2);
break;
case 32:
fread(cbuf,4*xsize,1,inf);
unswizzle32(cbuf,rbuf,gbuf,bbuf,xsize);
putrow(image,rbuf,(ysize-1)-y,0);
putrow(image,gbuf,(ysize-1)-y,1);
putrow(image,bbuf,(ysize-1)-y,2);
break;
}
}
}
iclose(image);
exit(0);
}
cvtrow8(cptr,rptr,gptr,bptr,n)
register unsigned char *cptr;
register unsigned short *rptr, *gptr, *bptr;
register int n;
{
while(n--) {
*rptr++ = rmap[*cptr];
*gptr++ = gmap[*cptr];
*bptr++ = bmap[*cptr++];
}
}
unswizzle24(cptr,rptr,gptr,bptr,n)
register unsigned char *cptr;
register unsigned short *rptr, *gptr, *bptr;
register int n;
{
while(n--) {
*rptr++ = *cptr++;
*gptr++ = *cptr++;
*bptr++ = *cptr++;
}
}
unswizzle32(cptr,rptr,gptr,bptr,n)
register unsigned char *cptr;
register unsigned short *rptr, *gptr, *bptr;
register int n;
{
while(n--) {
cptr++;
*bptr++ = *cptr++;
*gptr++ = *cptr++;
*rptr++ = *cptr++;
}
}
#define ESCAPE (128)
getrledata(inf,rlelength,fb,fblength)
FILE *inf;
int rlelength;
unsigned char *fb;
int fblength;
{
unsigned char *rledat, *expdat, *end;
unsigned char c;
int compcount, n, count, space;
rledat = fb+(fblength-rlelength);
expdat = fb;
end = fb+fblength;
compcount = rlelength;
n = fread(rledat,1,rlelength,inf);
if(n != rlelength) {
fprintf(stderr,"error on read of RLE data\n");
exit(1);
}
while(compcount) {
compcount--;
c = *rledat++;
if(c == ESCAPE) {
if(compcount<=0) {
fprintf(stderr,"getrledata: bad poop1\n");
exit(1);
}
compcount--;
count = *rledat++;
if(count!=0) {
if(compcount<=0) {
fprintf(stderr,"getrledata: bad poop2\n");
exit(1);
}
compcount--;
c = *rledat++;
count++;
space = end-expdat;
if(count>space)
count = space;
while(count--)
*expdat++ = c;
} else {
*expdat++ = ESCAPE;
}
} else {
*expdat++ = c;
}
}
}
linebytes(xsize,depth)
int xsize, depth;
{
return (( ((xsize*depth) + (16-1)) >> 3) &~ 1);
}
/*
* from row.c
*
*/
bitstorow(bits,sbuf,n)
unsigned char *bits;
short *sbuf;
int n;
{
int i, val, nbytes;
nbytes = ((n-1)/8)+1;
for(i = 0; i<nbytes; i++ ) {
val = *bits++;
if(val&0x80)
sbuf[0] = 0;
else
sbuf[0] = 255;
if(val&0x40)
sbuf[1] = 0;
else
sbuf[1] = 255;
if(val&0x20)
sbuf[2] = 0;
else
sbuf[2] = 255;
if(val&0x10)
sbuf[3] = 0;
else
sbuf[3] = 255;
if(val&0x08)
sbuf[4] = 0;
else
sbuf[4] = 255;
if(val&0x04)
sbuf[5] = 0;
else
sbuf[5] = 255;
if(val&0x02)
sbuf[6] = 0;
else
sbuf[6] = 255;
if(val&0x01)
sbuf[7] = 0;
else
sbuf[7] = 255;
sbuf += 8;
}
}
More information about the Comp.sys.sgi
mailing list