home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / d / dvips549.zip / DVIPS / TFMLOAD.C < prev    next >
C/C++ Source or Header  |  1992-10-14  |  3KB  |  137 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. FILE *tfmfile ; 
  24. static char name[50] ;
  25.  
  26. /*
  27.  *   Tries to open a tfm file.  Uses cmr10.tfm if unsuccessful,
  28.  *   and complains loudly about it.
  29.  */
  30. void
  31. tfmopen(fd)
  32.         register fontdesctype *fd ;
  33. {
  34.    register char *d, *n ;
  35.  
  36.    d = fd->area ;
  37.    n = fd->name ;
  38.    if (*d==0)
  39.       d = tfmpath ;
  40.    (void)sprintf(name, "%s.tfm", n) ;
  41.    if ((tfmfile=search(d, name, READBIN))==NULL) {
  42.       (void)sprintf(errbuf, "Can't open font metric file %s%s",
  43.              fd->area, name) ;
  44.       error(errbuf) ;
  45.       error("I will use cmr10.tfm instead, so expect bad output.") ;
  46.       if ((tfmfile=search(d, "cmr10.tfm", READBIN))==NULL)
  47.          error(
  48.           "! I can't find cmr10.tfm; please reinstall me with proper paths") ;
  49.    }
  50. }
  51.  
  52. shalfword
  53. tfmbyte ()
  54. {
  55.   return(getc(tfmfile)) ;
  56. }
  57.  
  58. halfword
  59. tfm16 ()
  60. {
  61.   register halfword a ; 
  62.   a = tfmbyte () ; 
  63.   return ( a * 256 + tfmbyte () ) ; 
  64. } 
  65.  
  66. integer
  67. tfm32 ()
  68. {
  69.   register integer a ; 
  70.   a = tfm16 () ; 
  71.   if (a > 32767) a -= 65536 ;
  72.   return ( a * 65536 + tfm16 () ) ; 
  73. } 
  74.  
  75. int
  76. tfmload(curfnt)
  77.         register fontdesctype *curfnt ;
  78. {
  79.    register shalfword i ;
  80.    register integer li ;
  81.    integer scaledsize ;
  82.    shalfword nw, hd ;
  83.    shalfword bc, ec ;
  84.    integer scaled[256] ;
  85.    halfword chardat[256] ;
  86.    int charcount = 0 ;
  87.  
  88.    tfmopen(curfnt) ;
  89. /*
  90.  *   Next, we read the font data from the tfm file, and store it in
  91.  *   our own arrays.
  92.  */
  93.    li = tfm16() ; hd = tfm16() ;
  94.    bc = tfm16() ; ec = tfm16() ;
  95.    nw = tfm16() ;
  96.    li = tfm32() ; li = tfm32() ; li = tfm32() ; li = tfm16() ;
  97.    li = tfm32() ;
  98.    if (li && curfnt->checksum)
  99.       if (li!=curfnt->checksum) {
  100.          (void)sprintf(errbuf,"Checksum mismatch in %s", name) ;
  101.          error(errbuf) ;
  102.        }
  103.    li = (integer)(alpha * (real)tfm32()) ;
  104.    if (li > curfnt->designsize + fsizetol ||
  105.        li < curfnt->designsize - fsizetol) {
  106.       (void)sprintf(errbuf,"Design size mismatch in %s", name) ;
  107.       error(errbuf) ;
  108.    }
  109.    for (i=2; i<hd; i++)
  110.       li = tfm32() ;
  111.    for (i=0; i<256; i++)
  112.       chardat[i] = 256 ;
  113.    for (i=bc; i<=ec; i++) {
  114.       chardat[i] = tfmbyte() ;
  115.       li = tfm16() ;
  116.       li |= tfmbyte() ;
  117.       if (li || chardat[i])
  118.          charcount++ ;
  119.    }
  120.    scaledsize = curfnt->scaledsize ;
  121.    for (i=0; i<nw; i++)
  122.       scaled[i] = scalewidth(tfm32(), scaledsize) ;
  123.    (void)fclose(tfmfile) ;
  124.    for (i=0; i<256; i++)
  125.       if (chardat[i]!= 256) {
  126.          li = scaled[chardat[i]] ;
  127.          curfnt->chardesc[i].TFMwidth = li ;
  128.          if (li >= 0)
  129.             curfnt->chardesc[i].pixelwidth = ((integer)(conv*li+0.5)) ;
  130.          else
  131.             curfnt->chardesc[i].pixelwidth = -((integer)(conv*-li+0.5)) ;
  132.          curfnt->chardesc[i].flags = (curfnt->resfont ? EXISTS : 0) ;
  133.       }
  134.    curfnt->loaded = 1 ;
  135.    return charcount ;
  136. }
  137.