summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/pclnfss/src/fontdim.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/pclnfss/src/fontdim.tex')
-rw-r--r--macros/latex/contrib/pclnfss/src/fontdim.tex39
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