home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_200 / 286_02 / rotate.c < prev    next >
Text File  |  1989-05-25  |  7KB  |  234 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. /*==============================================================*
  9.  *                                                              *
  10.  *    This is a program to rotate the characters in a font      *
  11.  *    file by 90 degree in anti-clockwise direction.            *
  12.  *                                                              *
  13.  *    Usage : rotate infilename outfilename                     *
  14.  *                                                              *
  15.  *    Input file and output file must have different name.      *
  16.  *                                                              *
  17.  *==============================================================*/
  18.  
  19. #define ERROR (-1)
  20. #define FONTID 51
  21.  
  22. struct fontspec {
  23.     unsigned char width,inkwidth,height;
  24.       signed char leftmargin;
  25.     unsigned char topline,cellheight;
  26. };
  27.  
  28. /* maximum number of characters in the font file is 256 */
  29. struct fontspec fontinfo[256], outinfo[256];
  30.  
  31. unsigned char DOTVALUE[] =
  32. { 
  33.     0x0080, 0x0040, 0x0020, 0x0010, 0x0008, 0x0004, 0x0002, 0x0001
  34. };
  35.  
  36. /* maximum size of a character is 4096 bytes. approx 180 by 180 */
  37. unsigned char bufi[4096], bufo[4096];
  38. int infn,outfn;
  39.  
  40. main(argc,argv)
  41. int argc;
  42. char *argv[];
  43. {
  44.     int loop,count;
  45.  
  46.     if (argc != 3) {
  47.         fprintf(stderr,"usage: rotate infilename outfilename\n");
  48.         exit(1);
  49.     }
  50.     if ((infn=open(argv[1],O_RDONLY | O_BINARY)) == ERROR) {
  51.         fprintf(stderr,"\nrotate: Cannot open input file\n");
  52.         exit(1);
  53.         }
  54.     if ((outfn=open(argv[2],O_CREAT | O_BINARY | O_TRUNC |O_WRONLY,
  55.                           S_IREAD | S_IWRITE))
  56.            == ERROR) {
  57.         fprintf(stderr,"\nrotate: Cannot create output\n");
  58.         exit(1);
  59.         }
  60.     if ((count=read(infn,bufi,256)) <= 0) {
  61. errorexit:
  62.         fprintf(stderr,"Bad Font File\n");
  63.     }
  64.     /* first byte has to be equal to FONTID */
  65.     if (bufi[0]!=FONTID) goto errorexit;
  66.  
  67.     /* Look for the end of comment string */
  68.     for (loop=1; loop<=count; loop++) {
  69.         if (bufi[loop]==0) goto cont;
  70.     }
  71.     goto errorexit;
  72. cont:
  73.     loop++;
  74.     /* seek to begining of font information */
  75.     lseek(infn,(long) loop, SEEK_SET);
  76.     loop+=16;
  77.     if (read(infn,bufi,16) != 16) {
  78.         fprintf(stderr,"\n\nPremature EOF!\n");
  79.         goto cleanup;
  80.     }
  81.     switch(bufi[0]) {
  82.     case 0:     /* type 0 font file */
  83.         process0();
  84.         break;
  85.     case 1:     /* type 1 font file */
  86.         process1();
  87.         break;
  88.     default:
  89.         fprintf(stderr,"Invalid Font Type\n!");
  90.     }
  91. cleanup:
  92.     close(infn);
  93.     close(outfn);
  94. }
  95.  
  96. /* process type 0 font file */
  97. process0()
  98. {
  99.     unsigned char temp1,temp2;
  100.     int loop1,loop2,nochar,charsize,outsize;
  101.     struct fontspec inspec;
  102.  
  103.     /* see the appendix in user manual about font file format */
  104.     inspec.width=bufi[5];
  105.     inspec.inkwidth=bufi[6];
  106.     inspec.height=bufi[7];
  107.     inspec.leftmargin=bufi[8];
  108.     inspec.topline=bufi[9];
  109.     inspec.cellheight=bufi[10];
  110.     bufo[0]=FONTID;
  111.  
  112.     /* Allocate 14 bytes for comment */
  113.     for (loop1=1;loop1<15;) bufo[loop1++]=' ';
  114.     for (loop1=15; loop1<32;) bufo[loop1++]=0;
  115.     for (loop1=16;loop1<21;loop1++) bufo[loop1]=bufi[loop1-16];
  116.     bufo[21]=inspec.cellheight;
  117.     bufo[22]=inspec.height;
  118.     bufo[23]=inspec.inkwidth;
  119.     bufo[24]=inspec.cellheight-inspec.topline-1;
  120.     bufo[25]=inspec.inkwidth+inspec.leftmargin-1;
  121.     bufo[26]=inspec.width;
  122.  
  123.     /* write out the header */
  124.     write(outfn,bufo,32);
  125.     nochar=bufi[1]+(bufi[2]<<8);
  126.     /* calculate input character size in byte */
  127.     charsize=((inspec.inkwidth+7)>>3)*inspec.height;
  128.     /* calculate output character size in byte */
  129.     outsize=((inspec.height+7)>>3)*inspec.inkwidth;
  130.  
  131.     /* loop until all characters are processed */
  132.     while (nochar--) {
  133.         if (read(infn,bufi,charsize)!=charsize) {
  134.             fprintf(stderr,"\n\nPremature EOF!\n");
  135.             goto cleanup;
  136.         }    
  137.         rotate(&inspec,bufi,bufo);
  138.         write(outfn,bufo,outsize);
  139.     }
  140. cleanup: ;
  141. }
  142.  
  143. /* process type 1 font file */
  144. process1()
  145. {
  146.     unsigned char temp1,temp2;
  147.     int loop1,loop2,nochar,charsize,outsize;
  148.     long size;
  149.  
  150.     bufo[0]=FONTID;
  151.     /* allocate 14 bytes for comment */
  152.     for (loop1=1;loop1<15;) bufo[loop1++]=' ';
  153.     for (loop1=15;loop1<32;) bufo[loop1++]=0;
  154.     for (loop1=16;loop1<24;loop1++) bufo[loop1]=bufi[loop1-16];
  155.     nochar=bufi[1]+(bufi[2]<<8);
  156.  
  157.     /* read characters information */
  158.     if (read(infn,fontinfo,6*nochar)!=6*nochar) {
  159.         fprintf(stderr,"\n\nPremature EOF!\n");
  160.         goto cleanup;
  161.     }
  162.     size=0L;
  163.     for (loop1=0; loop1<nochar; loop1++) {
  164.         size+=(long) ((fontinfo[loop1].height+7)>>3)*fontinfo[loop1].inkwidth;
  165.         /* transform the character information */
  166.         rotspec(&fontinfo[loop1],&outinfo[loop1]);
  167.     }
  168.     bufo[21]=(unsigned char) (size & 0xff);
  169.     bufo[22]=(unsigned char) ((size>>8) & 0xff);
  170.     bufo[23]=(unsigned char) ((size>>16) & 0xff);
  171.     write(outfn,bufo,32);
  172.     if (write(outfn,outinfo,6*nochar)!=6*nochar) {
  173.         fprintf(stderr,"\nError writing the output file!\n");
  174.         goto cleanup;
  175.     }
  176.     for (loop1=0; loop1<nochar; loop1++) {
  177.         charsize=((fontinfo[loop1].inkwidth+7)>>3)*fontinfo[loop1].height;
  178.         outsize=((fontinfo[loop1].height+7)>>3)*fontinfo[loop1].inkwidth;
  179.         if (read(infn,bufi,charsize)!=charsize) {
  180.             fprintf(stderr,"\n\nPremature EOF!\n");
  181.             goto cleanup;
  182.         }    
  183.         rotate(&fontinfo[loop1],bufi,bufo);
  184.         write(outfn,bufo,outsize);
  185.     }
  186. cleanup: ;
  187. }
  188.  
  189. /* rotate the pattern given in bufi and stored output in bufo */
  190. rotate(spec,bufi,bufo)
  191. struct fontspec *spec;
  192. char bufi[], bufo[];
  193. {
  194.     int wb, tw, loop1, loop2, loop3, outptr,count;
  195.     unsigned char out;
  196.  
  197.     outptr=0;
  198.  
  199.     /* Hard to describe. You will understand it after tracing once */
  200.     wb=(spec->inkwidth+7)>>3;
  201.     tw=(spec->inkwidth-1) & 0x07;
  202.     for (loop1=wb-1; loop1>=0 ; loop1--) {
  203.         for (loop2=tw; loop2>=0 ; loop2--) {
  204.             out=count=0;
  205.             for (loop3=loop1; loop3<(wb*spec->height); loop3+=wb) {
  206.                 if (count++ == 8) {
  207.                     bufo[outptr++]=out;
  208.                     out=0;
  209.                     count=1;
  210.                 }
  211.                 out <<= 1;
  212.                 if (bufi[loop3] & DOTVALUE[loop2])
  213.                     out |= 1;
  214.             }
  215.         if (count<8) out <<= 8-count;
  216.         bufo[outptr++]=out;
  217.         }
  218.     tw=7;
  219.     }
  220. }
  221.  
  222. /* transform the character information */
  223. rotspec(in,out)
  224. struct fontspec *in, *out;
  225. {
  226.     out->width=in->cellheight;
  227.     out->inkwidth=in->height;
  228.     out->height=in->inkwidth;
  229.     out->topline=in->inkwidth+in->leftmargin-1;
  230.     out->cellheight=in->width;
  231.     out->leftmargin=in->cellheight-in->topline-1;
  232. }
  233.  
  234.