home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1356 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  4.6 KB
  1. From: paul@manray.asd.sgi.com (Paul Haeberli)
  2. Newsgroups: alt.sources
  3. Subject: [comp.sys.sgi] Convert IRIS image files to MacPaint format . . .
  4. Message-ID: <12137@stag.math.lsa.umich.edu>
  5. Date: 21 May 90 04:39:55 GMT
  6.  
  7. Archive-name: iristomacpaint/15-May-90
  8. Original-posting-by: paul@manray.asd.sgi.com (Paul Haeberli)
  9. Original-subject: Convert IRIS image files to MacPaint format . . .
  10. Reposted-by: emv@math.lsa.umich.edu (Edward Vielmetti)
  11.  
  12. [This is an experimental alt.sources re-posting from the newsgroup(s)
  13. comp.sys.sgi. Comments on this service to emv@math.lsa.umich.edu 
  14. (Edward Vielmetti).]
  15.  
  16.  
  17. /*
  18.  *    tomac -
  19.  *        Convert an IRIS image file to macpaint format.
  20.  *
  21.  *    to compile:
  22.  *        cc tomac.c -o tomac -limage -I/usr/include/gl
  23.  *
  24.  *                Paul Haeberli - 1989
  25.  *
  26.  */
  27. #include "image.h"
  28.  
  29. #define HEADERSIZE    512
  30.  
  31. #define MAXXSIZE    576
  32. #define MAXYSIZE    720
  33.  
  34. short sbuf[4096];
  35. unsigned char ibits[MAXXSIZE/8+20];
  36. unsigned char pbits[MAXXSIZE/8+20];
  37. char header[HEADERSIZE];
  38.  
  39. main(argc,argv) 
  40. int argc;
  41. char *argv[];
  42. { 
  43.     if(argc<3) {
  44.     fprintf(stderr,"usage: tomac image.bw image.mac\n");
  45.     exit(1);
  46.     }
  47.     writemac(argv[1],argv[2]);
  48. }
  49.  
  50. writemac(iname,oname)
  51. char *iname, *oname;
  52. {
  53.     FILE *outf;
  54.     IMAGE *iimage;
  55.     int i, y, n;
  56.     int xmargin, ymargin;
  57.     int xsize, ysize;
  58.  
  59.     iimage = iopen(iname,"r");
  60.     if(!iimage) {
  61.     fprintf(stderr,"tomac: can't open input file %s\n",iname);
  62.     exit(1);
  63.     }
  64.     outf = fopen(oname,"w");
  65.     if(!outf) {
  66.     fprintf(stderr,"tomac: can't open output file %s\n",iname);
  67.     exit(1);
  68.     }
  69.     xsize = iimage->xsize;
  70.     ysize = iimage->ysize;
  71.     xmargin = (MAXXSIZE-xsize)/2.0;
  72.     if(xmargin<0)
  73.     xmargin = 0;
  74.     ymargin = (MAXYSIZE-ysize)/2.0;
  75.     if(ymargin<0)
  76.     ymargin = 0;
  77.     for (i=0; i<HEADERSIZE; i++)
  78.     fputc(0,outf);
  79.     setrow(sbuf,sbuf,255,MAXXSIZE);
  80.     for(y=0; y<MAXYSIZE; y++) {
  81.      if(y>ymargin && y<(ymargin+ysize)) 
  82.         getrow(iimage,sbuf+xmargin,ysize-1-(y-ymargin),0);
  83.      else
  84.         setrow(sbuf,255,MAXXSIZE);
  85.     rowtobits(sbuf,ibits,MAXXSIZE);
  86.     n = packbits(ibits,pbits,MAXXSIZE);
  87.       fwrite(pbits,n,1,outf);
  88.     }
  89.     iclose(iimage);
  90.     fclose(outf);
  91.     return 1;
  92. }
  93.  
  94. packbits(ibits,pbits,nbits)
  95. unsigned char *ibits, *pbits;
  96. int nbits;
  97. {
  98.     int bytes;
  99.     unsigned char *sptr;
  100.     unsigned char *ibitsend;
  101.     unsigned char *optr = pbits;
  102.     int nbytes, todo, cc, count;
  103.  
  104.     nbytes = ((nbits-1)/8)+1;
  105.     ibitsend = ibits+nbytes;
  106.     while(ibits<ibitsend) {
  107.     sptr = ibits;
  108.     ibits += 2;
  109.     while((ibits<ibitsend)&&((ibits[-2]!=ibits[-1])||(ibits[-1]!=ibits[0])))
  110.         ibits++;
  111.      if(ibits != ibitsend) {
  112.         ibits -= 2;
  113.     }
  114.     count = ibits-sptr;
  115.     while(count) {
  116.         todo = count>127 ? 127:count;
  117.         count -= todo;
  118.         *optr++ = todo-1;
  119.         while(todo--)
  120.         *optr++ = *sptr++;
  121.     }
  122.     if(ibits == ibitsend)
  123.         break;
  124.     sptr = ibits;
  125.     cc = *ibits++;
  126.     while( (ibits<ibitsend) && (*ibits == cc) )
  127.         ibits++;
  128.     count = ibits-sptr;
  129.     while(count) {
  130.         todo = count>128 ? 128:count;
  131.         count -= todo;
  132.         *optr++ = 257-todo;
  133.         *optr++ = cc;
  134.     }
  135.     }
  136.     return optr - pbits;
  137. }
  138.  
  139. /*
  140.  *    row -
  141.  *        support for operations on image rows.
  142.  *
  143.  */
  144. zerorow(sptr,n)
  145. short *sptr;
  146. int n;
  147. {
  148.     bzero(sptr,n*sizeof(short));
  149. }
  150.  
  151. setrow(sptr,val,n)
  152. short *sptr;
  153. int val, n;
  154. {
  155.     if(val==0)
  156.     zerorow(sptr,n);
  157.     else {
  158.     while(n>=8) {
  159.         sptr[0] = val;
  160.         sptr[1] = val;
  161.         sptr[2] = val;
  162.         sptr[3] = val;
  163.         sptr[4] = val;
  164.         sptr[5] = val;
  165.         sptr[6] = val;
  166.         sptr[7] = val;
  167.         sptr += 8;
  168.         n -= 8;
  169.     }
  170.     while(n--) 
  171.         *sptr++ = val;
  172.     }
  173. }
  174.  
  175. bitstorow(bits,sbuf,n)
  176. unsigned char *bits;
  177. short *sbuf;
  178. int n;
  179. {
  180.     int i, val, nbytes;
  181.  
  182.     nbytes = ((n-1)/8)+1;
  183.     for(i = 0; i<nbytes; i++ ) {
  184.     val = *bits++;
  185.     if(val&0x80)
  186.         sbuf[0] = 0;
  187.     else
  188.         sbuf[0] = 255;
  189.     if(val&0x40)
  190.         sbuf[1] = 0;
  191.     else
  192.         sbuf[1] = 255;
  193.     if(val&0x20)
  194.         sbuf[2] = 0;
  195.     else
  196.         sbuf[2] = 255;
  197.     if(val&0x10)
  198.         sbuf[3] = 0;
  199.     else
  200.         sbuf[3] = 255;
  201.     if(val&0x08)
  202.         sbuf[4] = 0;
  203.     else
  204.         sbuf[4] = 255;
  205.     if(val&0x04)
  206.         sbuf[5] = 0;
  207.     else
  208.         sbuf[5] = 255;
  209.     if(val&0x02)
  210.         sbuf[6] = 0;
  211.     else
  212.         sbuf[6] = 255;
  213.     if(val&0x01)
  214.         sbuf[7] = 0;
  215.     else
  216.         sbuf[7] = 255;
  217.     sbuf += 8;
  218.     }
  219. }
  220.  
  221. rowtobits(sbuf,bits,n)
  222. short *sbuf;
  223. unsigned char *bits;
  224. int n;
  225. {
  226.     int i, val, nbytes, thresh;
  227.  
  228.     nbytes = ((n-1)/8)+1;
  229.     thresh = 128;
  230.     for(i = 0; i<nbytes; i++) {
  231.     val = 0;
  232.     if(sbuf[0]<thresh)
  233.         val |= 0x80;
  234.     if(sbuf[1]<thresh)
  235.         val |= 0x40;
  236.     if(sbuf[2]<thresh)
  237.         val |= 0x20;
  238.     if(sbuf[3]<thresh)
  239.         val |= 0x10;
  240.     if(sbuf[4]<thresh)
  241.         val |= 0x08;
  242.     if(sbuf[5]<thresh)
  243.         val |= 0x04;
  244.     if(sbuf[6]<thresh)
  245.         val |= 0x02;
  246.     if(sbuf[7]<thresh)
  247.         val |= 0x01;
  248.     sbuf += 8;
  249.     *bits++ = val;
  250.     }
  251. }
  252.