home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / GRAPHICS / PSCRIPT / DVIPS386.ZIP / TFMLOAD.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-25  |  2.9 KB  |  125 lines
  1. /*
  2.  *   Loads a tfm file.  It marks the characters as undefined.
  3.  */
  4. #include "structures.h" /* The copyright notice in that file is included too! */
  5. /*
  6.  *   These are the external routines it calls:
  7.  */
  8. extern void error() ;
  9. extern integer scalewidth() ;
  10. extern FILE *search() ;
  11. /*
  12.  *   Here are the external variables we use:
  13.  */
  14. extern real conv ;
  15. extern real vconv ;
  16. extern real alpha ;
  17. extern char *tfmpath ;
  18. extern char errbuf[] ;
  19. extern integer fsizetol ;
  20. /*
  21.  *   Our static variables:
  22.  */
  23. static FILE *tfmfile ; 
  24. static char name[50] ;
  25.  
  26. /*
  27.  *   Tries to open a tfm file.  Aborts job if unsuccessful.
  28.  */
  29. void
  30. tfmopen(fd)
  31.         register fontdesctype *fd ;
  32. {
  33.    register char *d, *n ;
  34.  
  35.    d = fd->area ;
  36.    n = fd->name ;
  37.    if (*d==0)
  38.       d = tfmpath ;
  39.    (void)sprintf(name, "%s.tfm", n) ;
  40.    if ((tfmfile=search(d, name, READBIN))==NULL) {
  41.       (void)sprintf(errbuf, "! Can't open font metric file %s%s",
  42.              fd->area, name) ;
  43.       error(errbuf) ;
  44.    }
  45. }
  46.  
  47. shalfword
  48. tfmbyte ()
  49. {
  50.   return(getc(tfmfile)) ;
  51. }
  52.  
  53. halfword
  54. tfm16 ()
  55. {
  56.   register halfword a ; 
  57.   a = tfmbyte () ; 
  58.   return ( a * 256 + tfmbyte () ) ; 
  59. } 
  60.  
  61. integer
  62. tfm32 ()
  63. {
  64.   register integer a ; 
  65.   a = tfm16 () ; 
  66.   if (a > 32767) a -= 65536 ;
  67.   return ( a * 65536 + tfm16 () ) ; 
  68. } 
  69.  
  70. void
  71. tfmload(curfnt)
  72.         register fontdesctype *curfnt ;
  73. {
  74.    register shalfword i ;
  75.    register integer li ;
  76.    integer scaledsize ;
  77.    shalfword nw, hd ;
  78.    shalfword bc, ec ;
  79.    integer scaled[256] ;
  80.    halfword chardat[256] ;
  81.  
  82.    tfmopen(curfnt) ;
  83. /*
  84.  *   Next, we read the font data from the tfm file, and store it in
  85.  *   our own arrays.
  86.  */
  87.    li = tfm16() ; hd = tfm16() ;
  88.    bc = tfm16() ; ec = tfm16() ;
  89.    nw = tfm16() ;
  90.    li = tfm32() ; li = tfm32() ; li = tfm32() ; li = tfm16() ;
  91.    li = tfm32() ;
  92.    if (li && curfnt->checksum)
  93.       if (li!=curfnt->checksum) {
  94.          (void)sprintf(errbuf,"Checksum mismatch in %s", name) ;
  95.          error(errbuf) ;
  96.        }
  97.    li = (integer)(alpha * (real)tfm32()) ;
  98.    if (li > curfnt->designsize + fsizetol ||
  99.        li < curfnt->designsize - fsizetol) {
  100.       (void)sprintf(errbuf,"Design size mismatch in %s", name) ;
  101.       error(errbuf) ;
  102.    }
  103.    for (i=2; i<hd; i++)
  104.       li = tfm32() ;
  105.    for (i=0; i<256; i++)
  106.       chardat[i] = 256 ;
  107.    for (i=bc; i<=ec; i++) {
  108.       chardat[i] = tfmbyte() ;
  109.       li = tfm16() ;
  110.       li = tfmbyte() ;
  111.    }
  112.    scaledsize = curfnt->scaledsize ;
  113.    for (i=0; i<nw; i++)
  114.       scaled[i] = scalewidth(tfm32(), scaledsize) ;
  115.    (void)fclose(tfmfile) ;
  116.    for (i=0; i<256; i++)
  117.       if (chardat[i]!= 256) {
  118.          li = scaled[chardat[i]] ;
  119.          curfnt->chardesc[i].TFMwidth = li ;
  120.          curfnt->chardesc[i].pixelwidth = ((integer)(conv*li+0.5)) ;
  121.          curfnt->chardesc[i].flags = (curfnt->resfont ? EXISTS : 0) ;
  122.       }
  123.    curfnt->loaded = 1 ;
  124. }
  125.