blob: 83b57f5f7261796a97c24ca99a921af2815f39f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
%D \module
%D [ file=syst-fnt,
%D version=2006.08.11,
%D title=\CONTEXT\ System Macros,
%D subtitle=Font Things,
%D author=Hans Hagen,
%D date=\currentdate,
%D copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details.
% formal names cf the tb \& tbt
\unprotect
\protected\def\fontslantperpoint {\fontdimen\plusone }
\protected\def\fontinterwordspace {\fontdimen\plustwo }
\protected\def\fontinterwordstretch{\fontdimen\plusthree}
\protected\def\fontinterwordshrink {\fontdimen\plusfour }
\protected\def\fontexheight {\fontdimen\plusfive }
\protected\def\fontemwidth {\fontdimen\plussix }
\protected\def\fontextraspace {\fontdimen\plusseven}
\protected\def\slantperpoint {\fontdimen\plusone \font}
\protected\def\interwordspace {\fontdimen\plustwo \font}
\protected\def\interwordstretch {\fontdimen\plusthree\font}
\protected\def\interwordshrink {\fontdimen\plusfour \font}
\protected\def\exheight {\fontdimen\plusfive \font}
\protected\def\emwidth {\fontdimen\plussix \font}
\protected\def\extraspace {\fontdimen\plusseven\font}
\let \mathaxisheight \Umathaxis % takes style
\def\currentspaceskip {\interwordspace\s!plus\interwordstretch\s!minus\interwordshrink\relax}
\def\currentspacevalue {\the\interwordspace
\ifzeropt\interwordstretch\else{ plus }\the\interwordstretch\fi
\ifzeropt\interwordshrink \else{ minus }\the\interwordshrink \fi}
\def\usedspacevalue {\ifzeropt\spaceskip\the\spaceskip\else\currentspacevalue\fi}
\def\mathstacktotal {\dimexpr\Umathstacknumup\scriptstyle+\Umathstackdenomdown\scriptstyle\relax}
\def\mathstackvgap {\Umathstackvgap\scriptstyle}
\protect \endinput
|
