Source Browser ?

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