home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1357 < prev    next >
Encoding:
Internet Message Format  |  1990-12-28  |  3.7 KB
  1. From: paul@manray.asd.sgi.com (Paul Haeberli)
  2. Newsgroups: alt.sources
  3. Subject: [comp.sys.sgi] Convert MacPaint files to IRIS image file format.
  4. Message-ID: <12138@stag.math.lsa.umich.edu>
  5. Date: 21 May 90 04:40:11 GMT
  6.  
  7. Archive-name: macpainttoiris/15-May-90
  8. Original-posting-by: paul@manray.asd.sgi.com (Paul Haeberli)
  9. Original-subject: Convert MacPaint files to IRIS image file 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.  *    frommac -
  19.  *        Convert macpaint image files to IRIS image files.
  20.  *
  21.  *                Paul Haeberli - 1989
  22.  */
  23. #include "image.h"
  24.  
  25. #define MAXXSIZE    576
  26. #define MAXYSIZE    720
  27.  
  28. short sbuf[4096];
  29. unsigned char cbuf[72+256];
  30.  
  31. main(argc,argv) 
  32. int argc;
  33. char *argv[];
  34. { 
  35.     if(argc<3) {
  36.     fprintf(stderr,"usage: frommac image.mac image.bw\n");
  37.     exit(1);
  38.     }
  39.     if(readmac(argv[1],argv[2],512)) 
  40.     exit(0);
  41.     else if(readmac(argv[1],argv[2],512+128))
  42.     exit(0);
  43.     else {
  44.     fprintf(stderr,"frommac: bad macpaint file %s\n",argv[1]);
  45.     exit(1);
  46.     }
  47. }
  48.  
  49. readmac(iname,oname,offset)
  50. char *iname, *oname;
  51. int offset;
  52. {
  53.     FILE *inf;
  54.     IMAGE *oimage;
  55.     int i, y;
  56.  
  57.     inf = fopen(iname,"r");
  58.     if(!inf) {
  59.     fprintf(stderr,"frommac: can't open input file %s\n",iname);
  60.     exit(1);
  61.     }
  62.     oimage = iopen(oname,"w",RLE(1),2,MAXXSIZE,MAXYSIZE,1);
  63.     for (i=0; i<offset; i++)
  64.     getc(inf);
  65.     for(y=0; y<MAXYSIZE; y++) {
  66.     if(!readline(inf)) {
  67.         iclose(oimage);
  68.         fclose(inf);
  69.         return 0;
  70.         break;
  71.     }
  72.     bitstorow(cbuf,sbuf,MAXXSIZE);
  73.     putrow(oimage,sbuf,MAXYSIZE-1-y,0);
  74.     }
  75.     iclose(oimage);
  76.     fclose(inf);
  77.     fprintf(stderr,"head size was %d\n",offset);
  78.     return 1;
  79. }
  80.  
  81. readline(inf)
  82. FILE *inf;
  83. {
  84.     int pos, cnt, val;
  85.  
  86.     pos = 0;
  87.     while(pos < 72) {
  88.     cnt = getc(inf);
  89.     if((cnt&0x80)==0) {
  90.         cnt++;            
  91.         while(cnt--)
  92.         cbuf[pos++] = getc(inf);
  93.     } else {    
  94.         cnt = 257-cnt;
  95.         val = getc(inf);     
  96.         while (cnt--)
  97.         cbuf[pos++] = val;
  98.     }
  99.     }
  100.     if(pos==72) 
  101.     return 1;
  102.     else
  103.     return 0;
  104. }
  105.  
  106. /*
  107.  *    row -
  108.  *        support for operations on image rows.
  109.  *
  110.  */
  111. zerorow(sptr,n)
  112. short *sptr;
  113. int n;
  114. {
  115.     bzero(sptr,n*sizeof(short));
  116. }
  117.  
  118. setrow(sptr,val,n)
  119. short *sptr;
  120. int val, n;
  121. {
  122.     if(val==0)
  123.     zerorow(sptr,n);
  124.     else {
  125.     while(n>=8) {
  126.         sptr[0] = val;
  127.         sptr[1] = val;
  128.         sptr[2] = val;
  129.         sptr[3] = val;
  130.         sptr[4] = val;
  131.         sptr[5] = val;
  132.         sptr[6] = val;
  133.         sptr[7] = val;
  134.         sptr += 8;
  135.         n -= 8;
  136.     }
  137.     while(n--) 
  138.         *sptr++ = val;
  139.     }
  140. }
  141.  
  142. bitstorow(bits,sbuf,n)
  143. unsigned char *bits;
  144. short *sbuf;
  145. int n;
  146. {
  147.     int i, val, nbytes;
  148.  
  149.     nbytes = ((n-1)/8)+1;
  150.     for(i = 0; i<nbytes; i++ ) {
  151.     val = *bits++;
  152.     if(val&0x80)
  153.         sbuf[0] = 0;
  154.     else
  155.         sbuf[0] = 255;
  156.     if(val&0x40)
  157.         sbuf[1] = 0;
  158.     else
  159.         sbuf[1] = 255;
  160.     if(val&0x20)
  161.         sbuf[2] = 0;
  162.     else
  163.         sbuf[2] = 255;
  164.     if(val&0x10)
  165.         sbuf[3] = 0;
  166.     else
  167.         sbuf[3] = 255;
  168.     if(val&0x08)
  169.         sbuf[4] = 0;
  170.     else
  171.         sbuf[4] = 255;
  172.     if(val&0x04)
  173.         sbuf[5] = 0;
  174.     else
  175.         sbuf[5] = 255;
  176.     if(val&0x02)
  177.         sbuf[6] = 0;
  178.     else
  179.         sbuf[6] = 255;
  180.     if(val&0x01)
  181.         sbuf[7] = 0;
  182.     else
  183.         sbuf[7] = 255;
  184.     sbuf += 8;
  185.     }
  186. }
  187.  
  188. rowtobits(sbuf,bits,n)
  189. short *sbuf;
  190. unsigned char *bits;
  191. int n;
  192. {
  193.     int i, val, nbytes, thresh;
  194.  
  195.     nbytes = ((n-1)/8)+1;
  196.     thresh = 128;
  197.     for(i = 0; i<nbytes; i++) {
  198.     val = 0;
  199.     if(sbuf[0]<thresh)
  200.         val |= 0x80;
  201.     if(sbuf[1]<thresh)
  202.         val |= 0x40;
  203.     if(sbuf[2]<thresh)
  204.         val |= 0x20;
  205.     if(sbuf[3]<thresh)
  206.         val |= 0x10;
  207.     if(sbuf[4]<thresh)
  208.         val |= 0x08;
  209.     if(sbuf[5]<thresh)
  210.         val |= 0x04;
  211.     if(sbuf[6]<thresh)
  212.         val |= 0x02;
  213.     if(sbuf[7]<thresh)
  214.         val |= 0x01;
  215.     sbuf += 8;
  216.     *bits++ = val;
  217.     }
  218. }
  219.