home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 286_02 / size.c < prev    next >
Text File  |  1989-05-25  |  9KB  |  336 lines
  1. #include <stdio.h>
  2. #include <fcntl.h>
  3. #include <sys\types.h>
  4. #include <io.h>
  5. #include <sys\stat.h>
  6. #include <stdlib.h>
  7.  
  8. #define ERROR (-1)
  9. #define FONTID 51
  10.  
  11. struct fontspec {
  12.     unsigned char width,inkwidth,height;
  13.       signed char leftmargin;
  14.     unsigned char topline,cellheight;
  15. };
  16.  
  17. struct fontspec fontinfo[256], outinfo[256];
  18.  
  19. unsigned char DOTVALUE[] =
  20. { 
  21.     0x0080, 0x0040, 0x0020, 0x0010, 0x0008, 0x0004, 0x0002, 0x0001
  22. };
  23.  
  24. unsigned char bufi[4096], bufo[4096];
  25. int infn,outfn, mode=0, option=0;
  26.  
  27. main(argc,argv)
  28. int argc;
  29. char *argv[];
  30. {
  31.     int loop, count, ret;
  32.     char ch;
  33.  
  34.     argv++;
  35.     while (argc-- > 1 && *(*argv)++=='-') {
  36.         if (**argv) {
  37.             ch= *(*argv)++;
  38.             ret=atoi(*argv);
  39.         } else {
  40.             ch=0;
  41.         }
  42.         switch(ch) {
  43.         case 's':
  44.             if (ret > 2) {
  45.                 fprintf(stderr,"only 0, 1 or 2 can be used with -s\n");
  46.                 exit(1);
  47.             }
  48.             option=ret;
  49.             break;
  50.         case 'o':
  51.             if (ret > 4) {
  52.                 fprintf(stderr,"only 0 to 3 can be used with -o\n");
  53.                 exit(1);
  54.             }
  55.             mode=ret;
  56.             break;
  57.         default:
  58.             fprintf(stderr,"Unknow option -%c ** IGNORED **\n",ch);
  59.             break;
  60.         }
  61.         argv++;
  62.     }
  63.  
  64.     if (argc!=2) {
  65.         fprintf(stderr,"size: size [options] infile outfile\n\n");
  66.         fprintf(stderr,"Available options include:\n");
  67.         fprintf(stderr,"    -s0  reduce height to half\n");
  68.         fprintf(stderr,"    -s1  double the width\n");
  69.         fprintf(stderr,"    -s2  double the height\n\n");
  70.         fprintf(stderr,"-o option is used with reduction only\n");
  71.         fprintf(stderr,"    -o0  ink dominate\n");
  72.         fprintf(stderr,"    -o1  perfer ink\n");
  73.         fprintf(stderr,"    -o2  perfer space\n");
  74.         fprintf(stderr,"    -o3  space dominate\n");
  75.         exit(1);
  76.     }
  77.     (*argv)--;
  78.     if ((infn=open(argv[0],O_RDONLY | O_BINARY)) == ERROR) {
  79.         fprintf(stderr,"\nsize: Open file error -- %s\n",argv[0]);
  80.         exit(1);
  81.         }
  82.     if ((outfn=open(argv[1],O_CREAT | O_BINARY | O_TRUNC |O_WRONLY,
  83.                           S_IREAD | S_IWRITE))
  84.            == ERROR) {
  85.         fprintf(stderr,"\nsize: Create file error -- %s\n",argv[1]);
  86.         exit(1);
  87.         }
  88.     if ((count=read(infn,bufi,256)) <= 0) {
  89. errorexit:
  90.         fprintf(stderr,"Bad font file\n");
  91.     }
  92.     if (bufi[0]!=FONTID) goto errorexit;
  93.     for (loop=1; loop<=count; loop++) {
  94.         if (bufi[loop]==0) goto cont;
  95.     }
  96.     goto errorexit;
  97. cont:
  98.     loop++;
  99.     lseek(infn,(long) loop, SEEK_SET);
  100.     if (read(infn,bufi,16) != 16) {
  101.         fprintf(stderr,"\n\nPremature EOF!\n");
  102.         goto cleanup;
  103.     }
  104.     switch(bufi[0]) {
  105.     case 0:
  106.         process0();
  107.         break;
  108.     case 1:
  109.         process1();
  110.         break;
  111.     default:
  112.         fprintf(stderr,"Invalid Font Type\n!");
  113.     }
  114. cleanup:
  115.     close(infn);
  116.     close(outfn);
  117. }
  118.  
  119. process0()
  120. {
  121.     unsigned char temp1,temp2;
  122.     int loop1,loop2,nochar,charsize,outsize;
  123.     struct fontspec inspec, outspec;
  124.  
  125.     inspec.width=bufi[5];
  126.     inspec.inkwidth=bufi[6];
  127.     inspec.height=bufi[7];
  128.     inspec.leftmargin=bufi[8];
  129.     inspec.topline=bufi[9];
  130.     inspec.cellheight=bufi[10];
  131.     chgspec(&inspec, &outspec);
  132.     bufo[0]=FONTID;
  133.     for (loop1=1;loop1<15;) bufo[loop1++]=' ';
  134.     for (loop1=15;loop1<32;) bufo[loop1++]=0;
  135.     for (loop1=16;loop1<27;loop1++) bufo[loop1]=bufi[loop1-16];
  136.     bufo[21]=outspec.width;
  137.     bufo[22]=outspec.inkwidth;
  138.     bufo[23]=outspec.height;
  139.     bufo[24]=outspec.leftmargin;
  140.     bufo[25]=outspec.topline;
  141.     bufo[26]=outspec.cellheight;
  142.     write(outfn,bufo,32);
  143.     nochar=bufi[1]+(bufi[2]<<8);
  144.     charsize=((inspec.inkwidth+7)>>3)*inspec.height;
  145.     outsize=((outspec.inkwidth+7)>>3)*outspec.height;
  146.     while (nochar--) {
  147.         if (read(infn,bufi,charsize)!=charsize) {
  148.             fprintf(stderr,"\n\nPremature EOF!\n");
  149.             goto cleanup;
  150.         }    
  151.         size(&inspec,bufi,bufo);
  152.         write(outfn,bufo,outsize);
  153.     }
  154. cleanup: ;
  155. }
  156.  
  157. process1()
  158. {
  159.     unsigned char temp1,temp2;
  160.     int loop1,loop2,nochar,charsize,outsize;
  161.     unsigned char *curptr;
  162.     long filesize;
  163.  
  164.     bufo[0]=FONTID;
  165.     for (loop1=1;loop1<15;) bufo[loop1++]=' ';
  166.     for (loop1=15;loop1<32;) bufo[loop1++]=0;
  167.     for (loop1=16;loop1<24;loop1++) bufo[loop1]=bufi[loop1-16];
  168.     nochar=bufi[1]+(bufi[2]<<8);
  169.     if (read(infn,fontinfo,6*nochar)!=6*nochar) {
  170.         fprintf(stderr,"\n\nPremature EOF!\n");
  171.         goto cleanup;
  172.     }
  173.     filesize=0L;
  174.     for (loop1=0; loop1<nochar; loop1++) {
  175.         chgspec(&fontinfo[loop1],&outinfo[loop1]);
  176.         filesize+=(long)((outinfo[loop1].inkwidth+7)>>3)*outinfo[loop1].height;
  177.     }
  178.     bufo[21]=(unsigned char) (filesize & 0xff);
  179.     bufo[22]=(unsigned char) ((filesize>>8) & 0xff);
  180.     bufo[23]=(unsigned char) ((filesize>>16) & 0xff);
  181.     write(outfn,bufo,32);
  182.     if (write(outfn,outinfo,6*nochar)!=6*nochar) {
  183.         fprintf(stderr,"\nError writing File!\n");
  184.         goto cleanup;
  185.     }
  186.     for (loop1=0; loop1<nochar; loop1++) {
  187.         charsize=((fontinfo[loop1].inkwidth+7)>>3)*fontinfo[loop1].height;
  188.         outsize=((outinfo[loop1].inkwidth+7)>>3)*outinfo[loop1].height;
  189.         if (read(infn,bufi,charsize)!=charsize) {
  190.             fprintf(stderr,"\n\nPremature EOF!\n");
  191.             goto cleanup;
  192.         }    
  193.         size(&fontinfo[loop1],bufi,bufo);
  194.         write(outfn,bufo,outsize);
  195.     }
  196. cleanup: ;
  197. }
  198.  
  199. chgspec(in,out)
  200. struct fontspec *in, *out;
  201. {
  202.     switch(option) {
  203.     case 0:
  204.         out->width=in->width;
  205.         out->inkwidth=in->inkwidth;
  206.         out->height=(in->height+1)>>1;
  207.         out->topline=(in->topline+1)>>1;
  208.         out->cellheight=(in->cellheight+1)>>1;
  209.         out->leftmargin=in->leftmargin;
  210.         break;
  211.     case 1:
  212.         out->width=in->width<<1;
  213.         out->inkwidth=in->inkwidth<<1;
  214.         out->height=in->height;
  215.         out->topline=in->topline;
  216.         out->cellheight=in->cellheight;
  217.         out->leftmargin=in->leftmargin*2;
  218.         break;
  219.     case 2:
  220.         out->width=in->width;
  221.         out->inkwidth=in->inkwidth;
  222.         out->height=in->height<<1;
  223.         out->topline=in->topline<<1;
  224.         out->cellheight=in->cellheight<<1;
  225.         out->leftmargin=in->leftmargin;
  226.         break;
  227.     }
  228. }
  229.  
  230. size(spec,bufi,bufo)
  231. struct fontspec *spec;
  232. unsigned char *bufi, *bufo;
  233. {
  234.     switch(option) {
  235.     case 0:
  236.         RH2to1(spec,bufi,bufo);
  237.         break;
  238.     case 1:
  239.         EW1to2(spec,bufi,bufo);
  240.         break;
  241.     case 2:
  242.         EH1to2(spec,bufi,bufo);
  243.     }
  244. }
  245.  
  246. /* Reduce height in the ratio 2 to 1 */
  247. RH2to1(spec,bufi,bufo)
  248. struct fontspec *spec;
  249. unsigned char *bufi, *bufo;
  250. {
  251.     int loop1, loop2, count, wb, height;
  252.     unsigned int temp1, temp2;
  253.  
  254.     wb=(spec->inkwidth+7)>>3;   /* calculate width in byte */
  255.     height=spec->height;
  256.     if (height==0 || wb==0) return;
  257.     for (; height!=3 && height!=1 && height>0 ; height-=2, bufi+=wb) {
  258.       for (loop1=0; loop1 < wb ; loop1++, bufi++) {
  259.         switch(mode) {
  260.         case 0:
  261.         case 1:
  262.             *bufo++= *bufi | *(bufi+wb);
  263.             break;
  264.         case 2:
  265.         case 3:
  266.             *bufo++= *bufi & *(bufi+wb);
  267.             break;
  268.         }
  269.       }
  270.     }
  271.     if (height==1) {
  272.         for (loop1=0; loop1<wb; loop1++) *bufo++ = *bufi++;
  273.     } else {
  274.         for (loop1=0; loop1<wb; loop1++,*bufi++) {
  275.             switch(mode) {
  276.             case 0:
  277.             case 1:
  278.                 *(bufo+wb)= *(bufi+wb) | *(bufi+wb+wb);
  279.                 *bufo++ = *bufi | *(bufi+wb);
  280.                 break;
  281.             case 2:
  282.             case 3:
  283.                 *(bufo+wb)= *(bufi+wb) & *(bufi+wb+wb);
  284.                 *bufo++ = *bufi & *(bufi+wb);
  285.                 break;
  286.             }
  287.         }
  288.     }
  289. }
  290.  
  291. /* Enlarge width in the ratio 1 to 2 */
  292. EW1to2(spec,bufi,bufo)
  293. struct fontspec *spec;
  294. unsigned char *bufi, *bufo;
  295. {
  296.     int loop1, loop2, count, wb, height;
  297.     unsigned int temp1, temp2;
  298.  
  299.     wb=(spec->inkwidth+7)>>3;   /* calculate width in byte */
  300.     count=(((spec->inkwidth<<1)+7)>>3) & 0x01;
  301.     height=spec->height;
  302.     if (height==0 || wb==0) return;
  303.     for (;height>0; height--) {
  304.         for (loop1=0; loop1 < wb; loop1++, bufi++) {
  305.             temp1=0;
  306.             for (loop2=0; loop2<8; loop2++) {
  307.                 temp1 <<= 2;
  308.                 temp1 |= (*bufi & 0x80) ? 3 : 0;
  309.                 *bufi <<= 1;
  310.             }
  311.             *bufo++ = temp1 >> 8;
  312.             *bufo++ = temp1 & 0xff;
  313.         }
  314.         if (count) *bufo--;
  315.     }
  316. }
  317.  
  318. /* Enlarge height in the ratio 1 to 2 */
  319. EH1to2(spec,bufi,bufo)
  320. struct fontspec *spec;
  321. unsigned char *bufi, *bufo;
  322. {
  323.     int loop1, loop2, wb, height;
  324.  
  325.     wb=(spec->inkwidth+7)>>3;   /* calculate width in byte */
  326.     height=spec->height;
  327.     if (height==0 || wb==0) return;
  328.     for (;height>0; height--, bufo+=wb) {
  329.         for (loop1=0; loop1 < wb; loop1++, bufi++, bufo++) {
  330.             *(bufo+wb)= *bufo= *bufi;
  331.         }
  332.     }
  333. }
  334.  
  335.  
  336.