diff options
Diffstat (limited to 'macros/latex/contrib/pclnfss/src/fontdim.tex')
-rw-r--r-- | macros/latex/contrib/pclnfss/src/fontdim.tex | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/macros/latex/contrib/pclnfss/src/fontdim.tex b/macros/latex/contrib/pclnfss/src/fontdim.tex new file mode 100644 index 0000000000..dffe2091d5 --- /dev/null +++ b/macros/latex/contrib/pclnfss/src/fontdim.tex @@ -0,0 +1,39 @@ +% from T1.etx. +\setint{italicslant}{0} + +\ifisglyph{x}\then + \setint{xheight}{\height{x}} +\else + \setint{xheight}{500} +\fi + +\ifisglyph{space}\then + \setint{interword}{\width{space}} +\else\ifisglyph{i}\then + \setint{interword}{\width{i}} +\else + \setint{interword}{333} +\fi\fi + +\ifisglyph{emspace}\then + \setint{quad}{\width{emspace}} +\else + \setint{quad}{1000} +\fi + +\setint{fontdimen(1)}{\int{italicslant}} % italic slant +\setint{fontdimen(2)}{\int{interword}} % interword space +\ifisint{monowidth}\then + \setint{fontdimen(3)}{0} % interword stretch + \setint{fontdimen(4)}{0} % interword shrink +\else + \setint{fontdimen(3)}{\scale{\int{interword}}{333}}% interword stretch + \setint{fontdimen(4)}{\scale{\int{interword}}{333}}% interword shrink +\fi +\setint{fontdimen(5)}{\int{xheight}} % x-height +\setint{fontdimen(6)}{\int{quad}} % quad +\ifisint{monowidth}\then + \setint{fontdimen(7)}{\int{interword}} % extra space after . +\else + \setint{fontdimen(7)}{\scale{\int{interword}}{333}}% extra space after . +\fi |