home *** CD-ROM | disk | FTP | other *** search
/ NeXTSTEP 3.3.4.17 [SPARC, PA-RISC] / nextstep33_risc.iso / NextLibrary / TeX / tex / src / texview / tfmload.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-02-01  |  3.6 KB  |  151 lines
  1. /*
  2.  *   tfmload.c of dvisw software package.
  3.  *
  4.  *   Loads a tfm file.  It marks the characters as undefined.
  5.  */
  6. #include "structures.h"
  7. #include <string.h>
  8. /*
  9.  *   These are the external routines it calls:
  10.  */
  11. extern void error() ;
  12. extern FILE *search() ;
  13. extern integer scalewidth() ;
  14. extern void newraster() ;
  15. extern void TPSdf(), TPSdfe(), TPSdc(), TPSbop(), TPSeop(), texflush() ;
  16. /*
  17.  *   Here are the external variables we use:
  18.  */
  19. extern halfword *left, *right, *top ;
  20. extern TeXfontdesctype *TeXfonts[] ;
  21. extern real conv ;
  22. extern int curid ;
  23. extern char *tfmpath ;
  24. extern char lastfile[] ;
  25. /*
  26.  *   Our static variables:
  27.  */
  28. static FILE *tfmfile ; 
  29. /*
  30.  *   Tries to open a tfm file.  Returns true if found.
  31.  */
  32. Boolean tfmopen(tft)
  33. TeXfontdesctype *tft ;
  34. {
  35.    register char *d, *n ;
  36.  
  37.    n = tft->name ;
  38.    if (*n==0) {
  39.       n++ ;
  40.       d = tfmpath ;
  41.    } else {
  42.       d = n ;
  43.       while (*n) n++ ;
  44.    }
  45.    sprintf(lastfile, "%s.tfm", n) ;
  46.    tfmfile = search(d, lastfile) ;
  47.    if (tfmfile == 0) {
  48.       error(" couldn't find tfm file; substituting cmr10") ;
  49.       tfmfile = search(tfmpath, "cmr10.tfm") ;
  50.    }
  51.    return (tfmfile != NULL) ;
  52. }
  53. shalfword tfmbyte () {
  54.   return(getc(tfmfile)) ;
  55. }
  56. halfword tfm16 () {
  57. register halfword a ; 
  58.   a = tfmbyte () ; 
  59.   return ( a * 256 + tfmbyte () ) ; 
  60. } 
  61. integer tfm32 () {
  62. register integer a ; 
  63.   a = tfm16 () ; 
  64.   return ( (a << 16) + tfm16 () ) ; 
  65. } 
  66. void tfmload(tft, define)
  67. register TeXfontdesctype *tft ;
  68. int define ;
  69. {
  70.    register chardesctype *cdp ;
  71.    register shalfword i ;
  72.    register integer li ;
  73.    register fontdesctype *curfnt ;
  74.    integer scaledsize ;
  75.    shalfword nw, nh, nd, hd ;
  76.    shalfword bc, ec ;
  77.    integer scaled[300] ;
  78.    halfword chardat[256] ;
  79.    shalfword pixel[300] ;
  80.    int height, width, yoff ;
  81.    int *black ;
  82.    int bk ;
  83.  
  84.    bk = ~0 ;
  85.    black = &bk ;
  86.    curfnt = tft->loaded ;
  87.    if (!tfmopen(tft))
  88.       error("! could not open tfm file") ;
  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() ; nh = tfm16() ; nd = tfm16() ;
  96.    li = tfm32() ; li = tfm32() ; li = tfm16() ;
  97.    scaledsize = tfm32() ;
  98. /* if (scaledsize-tft->checksum > 6 || -6 > scaledsize-tft->checksum) {
  99.        error("bad checksum in tfm file") ;
  100.    } */
  101.    li = tfm32() >> 4 ;
  102.    if (li > tft->designsize + 2 || li < tft->designsize - 2)
  103.       error("bad design size in tfm file") ;
  104.    for (i=2; i<hd; i++)
  105.       li = tfm32() ;
  106.    for (i=bc; i<=ec; i++) {
  107.       chardat[i] = tfm16() ;
  108.       li = tfm16() ;
  109.    }
  110.    scaledsize = tft->scaledsize ;
  111.    for (i=0; i<nw+nh+nd; i++) {
  112.      scaled[i] = tfm32() ;
  113.      if (scaled[i] >= 0)
  114.         pixel[i] = (conv * scalewidth(scaled[i], scaledsize) + 0.5) ;
  115.      else
  116.         pixel[i] = -(conv * scalewidth(-scaled[i], scaledsize) + 0.5) ;
  117.    }
  118.    fclose(tfmfile) ;
  119.    if (define) {
  120.       curfnt->id = curid++ ;
  121. #ifdef POPRESTORE
  122.       TPSeop() ;
  123. #endif
  124.       TPSdf(curfnt->id) ;
  125.     }
  126.    for (i=0, cdp = curfnt->chardesc; i<256; i++, cdp++) {
  127.       if (i>=bc && i<=ec) {
  128.          cdp = curfnt->chardesc + i ;
  129.          cdp->TFMwidth = scaled[chardat[i]>>8] ;
  130.          cdp->pixelwidth = pixel[chardat[i]>>8] ;
  131.          width = cdp->pixelwidth ;
  132.          yoff = pixel[((chardat[i]&240)>>4)+nw] ;
  133.          height = pixel[(chardat[i]&15)+nw+nh] + yoff ;
  134.          if (width <= 0)
  135.             width = 1 ;
  136.          if (height <= 0)
  137.             height = 1 ;
  138.          if (define)
  139.             TPSdc(black, 2, width, height, 0, height - yoff - 1, cdp->pixelwidth, i) ;
  140.       }
  141.    }
  142.    if (define) {
  143.       TPSdfe() ;
  144. #ifdef POPRESTORE
  145.       TPSbop() ;
  146. #else
  147.       texflush() ;
  148. #endif
  149.    }
  150. }
  151.