home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / gnu / unixtex-6.1b-src.lha / unixtex-6.1b / dviljk / contrib / fontdim.tex < prev    next >
Encoding:
Text File  |  1994-02-14  |  1.1 KB  |  40 lines
  1. % from T1.etx.
  2. \setint{italicslant}{0}
  3.  
  4. \ifisglyph{x}\then
  5.    \setint{xheight}{\height{x}}
  6. \else
  7.    \setint{xheight}{500}
  8. \fi
  9.  
  10. \ifisglyph{space}\then
  11.    \setint{interword}{\width{space}}
  12. \else\ifisglyph{i}\then
  13.    \setint{interword}{\width{i}}
  14. \else
  15.    \setint{interword}{333}
  16. \fi\fi
  17.  
  18. \ifisglyph{emspace}\then
  19.    \setint{quad}{\width{emspace}}
  20. \else
  21.    \setint{quad}{1000}
  22. \fi
  23.  
  24. \setint{fontdimen(1)}{\int{italicslant}}              % italic slant
  25. \setint{fontdimen(2)}{\int{interword}}                % interword space
  26. \ifisint{monowidth}\then
  27.    \setint{fontdimen(3)}{0}                           % interword stretch
  28.    \setint{fontdimen(4)}{0}                           % interword shrink
  29. \else
  30.    \setint{fontdimen(3)}{\scale{\int{interword}}{333}}% interword stretch
  31.    \setint{fontdimen(4)}{\scale{\int{interword}}{333}}% interword shrink
  32. \fi   
  33. \setint{fontdimen(5)}{\int{xheight}}                  % x-height
  34. \setint{fontdimen(6)}{\int{quad}}                     % quad
  35. \ifisint{monowidth}\then
  36.    \setint{fontdimen(7)}{\int{interword}}             % extra space after .
  37. \else
  38.    \setint{fontdimen(7)}{\scale{\int{interword}}{333}}% extra space after .
  39. \fi
  40.