home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / autocad / hrsh2acd.arc / FONTX.C < prev    next >
Text File  |  1988-07-15  |  8KB  |  357 lines
  1. /* --- FONTX.C -- Compiles a subset of AutoCAD font files (*.SHP) into packed
  2.  |         binary format for faster loading and drawing.
  3.  |     Compiled file fomat is totally incompatible from AutoCAD "*.SHX"
  4.  |         file format.  We don't know the format for "*.SHX" files.
  5.  |     To acknowledge this difference, this program produces compiled
  6.  |         files with suffix ".XSH".
  7.  |     Compiled fonts can be viewed using the accompanying program FONTDEMO.C.
  8.  |     There is NO DOCUMENTATION for the format of our compiled font in "*.XSH"
  9.  |         files.  Please read FONTDEMO.C code for details.
  10.  |     This program is hereby released into the public domain.
  11.  |     This program has been developed to use Hershey Font in our locally
  12.  |         developed graphics package.
  13.  |     This program supports only a subset of AutoCAD "*.SHP" font definitions.
  14.  |         Vertical text mode will be ignored, and "*.SHP" files containing
  15.  |         ARC commands cannot be compiled.
  16.  |         
  17.  |     Author:     Wayne C. Crawford,   6-20-88 starting.
  18.  *-------------------------------------------------------------------------- */
  19.  
  20. #include <stdio.h>
  21. #include <string.h>
  22.  
  23. FILE *fpinp;
  24. FILE *fpdataout;
  25. unsigned int ptarray[128];
  26. unsigned int fontarray[6000];
  27. int junk, garbage;
  28. int pendowner;
  29. char string[128];
  30. char readfile[80], *rfileptr;
  31. char writefile[80], *wfileptr;
  32. int count = 1;          /* position of array that we are presently in */
  33. int ignore = 0;
  34. float xpos,ypos;
  35. float fontscale;
  36.  
  37.  
  38. /*------ mani() starts here -----------------------------------------------*/
  39. main(argc,argv)
  40. int argc;
  41. char *argv[];
  42. {
  43. int inpnum;
  44. char line[255];
  45. register int i;
  46. char *stringptr;
  47.  
  48.     if (argc != 2)
  49.     {
  50.         printf("Usage: FONTX FONTNAME.SHP (enter)\n\n");
  51.         printf("    Compiles Hershey Font in AutoCAD SHP format into\n");
  52.         printf("    packed binary format, and output results to\n");
  53.         printf("    a file FONTNAME.XSH\n");
  54.         exit(1);
  55.     }
  56.  
  57.     strcpy( readfile, strupr(argv[1]) );
  58.     strcpy( writefile, readfile);
  59.     /* Check if filename is OK */
  60.     stringptr = readfile;
  61.     while ( *(++stringptr) != '\0' );
  62.     --stringptr; --stringptr; --stringptr;
  63.     if( strcmp( stringptr, "SHP") != 0 )
  64.     {
  65.         printf("Input file suffix must be .SHP\n");
  66.         exit(2);
  67.     }    
  68.  
  69.     if ((fpinp= fopen(argv[1],"r")) == NULL)
  70.     {
  71.         printf("Couldn't open file: %s\n",argv[1]);
  72.         exit(2);
  73.     }
  74.  
  75.     for( i = 0; i < 128; i++)
  76.         ptarray[i] = 0;          /* INITIALIZE POINTER ARRAY */
  77.     
  78.     fgets(line,80,fpinp);
  79.     get_next_integer(&inpnum,&garbage);
  80.     fontscale = 21./(float)inpnum;
  81.     fgets(line,80,fpinp);
  82.     printf("Fontscale = %.2f\n",fontscale);
  83.     while ( inpnum != -1)
  84.     {
  85.         inpnum = get_one_command();
  86.     }
  87.     printf("count = %d\n",count);
  88.     wrt_fontfile(writefile);
  89.     fclose(fpinp); 
  90. }    
  91.  
  92.  
  93. get_one_command()
  94. {
  95. int inpnum,newinp;
  96. int endof = 0;
  97.     
  98.     endof = get_next_integer(&inpnum,&newinp);
  99.     if (endof == -1)
  100.         return(-1);
  101.     if (newinp)
  102.     {
  103.         ptarray[inpnum] = count;
  104.         xpos = 20.;
  105.         ypos = 20.; /* The "20"s are to offset the character box */
  106.     }
  107.     else
  108.     {
  109.         switch(inpnum)
  110.         {
  111.         case 0:    end_of_shape();
  112.             break;
  113.         case 1:    pendown(1);
  114.             break;
  115.         case 2: pendown(0);
  116.             break;
  117.         case 3:
  118.         case 4:    if (!ignore)
  119.                 printf("Multiply/Divide Error\n");
  120.             get_next_integer(&junk,&garbage);
  121.             break;
  122.         case 5:    
  123.         case 6:    
  124.         case 7:    
  125.         case 10:    
  126.         case 11:    
  127.         case 12:    
  128.         case 13: printf("TERMINAL Error!\n");
  129.             return(-1);
  130.             break;    
  131.         case 8: convert_to_screen();
  132.             break;    
  133.         case 9: while (convert_to_screen());
  134.             break;    
  135.         case 14: ignore = 1;
  136.             get_one_command();
  137.             ignore = 0;
  138.             break;    
  139.         default: convert_to_xy(inpnum);
  140.             break;    
  141.         }
  142.     }
  143.     return(inpnum);
  144. }    
  145.  
  146.  
  147. get_next_integer(number, newone)
  148. int *number, *newone;
  149. {
  150. int c;
  151.  
  152.     c = getc(fpinp);
  153.     while ( ((c > '9') || (c < '0')) && ((c != '*') && (c != '-')) && (c != -1) )
  154.         c = getc(fpinp);
  155.     if (c == -1)
  156.         return (-1);
  157.     else if (c == '*')
  158.     {
  159.         c = getc(fpinp);    /* ADVANCE STREAM POINTER BY ONE */
  160.         *number = grabnum(c);
  161.             fgets(string,80,fpinp);
  162.         *newone = 1;
  163.     }
  164.     else
  165.     {
  166.         *number = grabnum(c);
  167.         *newone = 0;
  168.     }
  169.     return(0);
  170. }
  171.  
  172.  
  173. grabnum(c)
  174. int c;
  175. {
  176. int value;
  177.  
  178.      if (c == '0') /* GET HEXIDECIMAL NUMBER */
  179.     {
  180.         value = decodedhex(c);
  181.         while ( decodedhex(c = getc(fpinp)) >= 0 )
  182.         {
  183.             value = value*16 + decodedhex(c);
  184.         }
  185.     }
  186.     else if (c == '-')  /* negative value */
  187.     {
  188.         value = getc(fpinp) - '0';
  189.         c = getc(fpinp);
  190.         while ( (c >= '0') && (c <= '9') )
  191.         {
  192.             value = value*10 + c - '0';
  193.             c = getc(fpinp);
  194.         }
  195.         value *= -1;
  196.     }
  197.     else               /* positive integer */
  198.     {
  199.         value = c - '0';
  200.         c = getc(fpinp);
  201.         while ( (c >= '0') && (c <= '9') )
  202.         {
  203.             value = value*10 + c - '0';
  204.             c = getc(fpinp);
  205.         }
  206.     }
  207.     return(value);
  208. }
  209.  
  210.  
  211. decodedhex(c)
  212. int c;
  213. {
  214.     int value;
  215.  
  216.     if ( (c >= 'a')&&(c <= 'f') )
  217.         value = 10 + c - 'a';
  218.     else if ( (c >= 'A')&&(c <= 'F') )
  219.         value = 10 + c - 'A';
  220.     else if ( (c >= '0')&&(c <= '9') )
  221.         value = c - '0';
  222.     else value = -1;
  223.     return(value);
  224. }
  225.  
  226.  
  227. /****************************************************************************/
  228. /******************** NOW FOR THE COMMAND HANDLING PART *********************/
  229. /****************************************************************************/
  230.  
  231. end_of_shape()
  232. { 
  233.     if (!ignore)
  234.     {
  235.         fontarray[count++] = 0x4000;
  236.     }
  237.     return(0);
  238. }
  239.  
  240. pendown(penval)
  241. int penval;
  242. {
  243.     if (!ignore)
  244.     {
  245.         fontarray[count++] = 0x2000 + penval*0x1000;
  246.     }
  247.     return(0);
  248. }
  249.  
  250. convert_to_screen()
  251. {
  252. int x,y,junk;
  253.  
  254.     get_next_integer(&x,&junk);
  255.     get_next_integer(&y,&junk);
  256.     if (!ignore)
  257.     {
  258.         if ((x == 0) && (y == 0))
  259.             return(0); 
  260.         xpos += (float)x*fontscale;
  261.         ypos += (float)y*fontscale;
  262.         fontarray[count++]
  263.           = (((int)(xpos+0.1) & 0x3f) << 6) + ((int)(ypos+0.1) & 0x3f);
  264.     }
  265.     return(1);
  266. }
  267.  
  268. convert_to_xy(hexnum)
  269. int hexnum;
  270. {
  271. float xtimes,ytimes;
  272. unsigned int dirhex, maghex;
  273.  
  274.     if (!ignore)
  275.     {
  276.         dirhex = hexnum & 0x0f;
  277.         maghex = (hexnum & 0xf0) >> 4;
  278.         switch (dirhex)
  279.         {
  280.             case 0:    xtimes = 1.; ytimes = 0.;
  281.             break;
  282.             case 1:    xtimes = 1.; ytimes = .5;
  283.             break;
  284.             case 2:    xtimes = 1.; ytimes = 1.;
  285.             break;
  286.             case 3:    xtimes = .5; ytimes = 1.;
  287.             break;
  288.             case 4:    xtimes = 0.; ytimes = 1.;
  289.             break;
  290.             case 5:    xtimes = -.5; ytimes = 1.;
  291.             break;
  292.             case 6:    xtimes = -1.; ytimes = 1.;
  293.             break;
  294.             case 7:    xtimes = -1.; ytimes = .5;
  295.             break;
  296.             case 8:    xtimes = -1.; ytimes = 0.;
  297.             break;
  298.             case 9:    xtimes = -1.; ytimes = -.5;
  299.             break;
  300.             case 10:xtimes = -1.; ytimes = -1.;
  301.             break;
  302.             case 11:xtimes = -.5; ytimes = -1.;
  303.             break;
  304.             case 12:xtimes = 0.; ytimes = -1.;
  305.             break;
  306.             case 13:xtimes = .5; ytimes = -1.;
  307.             break;
  308.             case 14:xtimes = 1.; ytimes = -1.;
  309.             break;
  310.             case 15:xtimes = 1.; ytimes = -.5;
  311.             break;
  312.         default:printf("BIG Direction mistake\n");
  313.             break;
  314.         }
  315.         xpos += maghex*xtimes*fontscale;
  316.         ypos += maghex*ytimes*fontscale;
  317.                fontarray[count++]
  318.         = (((int)(xpos+0.1) & 0x3f) << 6) + ((int)(ypos+0.1) & 0x3f);
  319.     }
  320.     return(0);
  321. }
  322.  
  323. /****************************************************************************/
  324.  
  325. /* ----- Write compiled font file ---------------------------------- */
  326. wrt_fontfile(wfilename)
  327. char *wfilename;
  328. {
  329. int it;
  330. int numwritten;
  331. int *fontptr;
  332. char *stringptr;
  333.  
  334.     stringptr = wfilename;
  335.     while ( *(++stringptr) != '\0' );    /* change suffix to XSH */
  336.     *(--stringptr) = 'H';
  337.     *(--stringptr) = 'S';
  338.     *(--stringptr) = 'X';
  339.  
  340.     fpdataout = fopen(wfilename, "wb");
  341.     if (fpdataout == NULL)
  342.     {
  343.         printf("Compiled font file: %s cannot be opened.\n",writefile);
  344.         return(1);
  345.     }
  346.     /* OK file opened, write the size of the font array*/
  347.         numwritten = fwrite( (char *)&count, sizeof(unsigned), 1, fpdataout);
  348.         numwritten = fwrite( (char *)ptarray, sizeof(unsigned), 128, fpdataout);
  349.     numwritten = fwrite( (char *)fontarray, sizeof(unsigned), count+2, fpdataout);
  350.     if( numwritten != (count+ 2))
  351.     {
  352.         printf("Can't write compiled font file fully.\n");
  353.     }
  354.     fclose(fpdataout);
  355. }
  356.  
  357.