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\immutable\protected\def\fontslantperpoint   {\scaledfontdimen\plusone  }
19\immutable\protected\def\fontinterwordspace  {\scaledfontdimen\plustwo  }
20\immutable\protected\def\fontinterwordstretch{\scaledfontdimen\plusthree}
21\immutable\protected\def\fontinterwordshrink {\scaledfontdimen\plusfour }
22\immutable\protected\def\fontexheight        {\scaledfontdimen\plusfive }
23\immutable\protected\def\fontemwidth         {\scaledfontdimen\plussix  }
24\immutable\protected\def\fontextraspace      {\scaledfontdimen\plusseven}
25
26%immutable\protected\def\slantperpoint       {\scaledfontdimen\plusone  \font}
27%immutable\protected\def\interwordspace      {\scaledfontdimen\plustwo  \font}
28%immutable\protected\def\interwordstretch    {\scaledfontdimen\plusthree\font}
29%immutable\protected\def\interwordshrink     {\scaledfontdimen\plusfour \font}
30%immutable\protected\def\exheight            {\scaledfontdimen\plusfive \font}
31%immutable\protected\def\emwidth             {\scaledfontdimen\plussix  \font}
32%immutable\protected\def\extraspace          {\scaledfontdimen\plusseven\font}
33
%D This saves a little bit of overhead but more important, it gives less tracing,
35%D and for practical reasone we keep this indirectness because we syntax highlight
36%D these pseudo constants different than primitives.
37
38\immutable\aliased\let\slantperpoint   \scaledslantperpoint
39\immutable\aliased\let\interwordspace  \scaledinterwordspace
40\immutable\aliased\let\interwordstretch\scaledinterwordstretch
41\immutable\aliased\let\interwordshrink \scaledinterwordshrink
42\immutable\aliased\let\exheight        \scaledexheight
43\immutable\aliased\let\emwidth         \scaledemwidth
\immutable\aliased\let\extraspace      \scaledextraspace

46\aliased\let\mathaxisheight\Umathaxis % takes style
47
48\permanent\def\currentspaceskip{\interwordspace\s!plus\interwordstretch\s!minus\interwordshrink\relax}
49
50\permanent\def\currentspacevalue{\the\interwordspace
51  \ifzeropt\interwordstretch\else{ plus  }\the\interwordstretch\fi
52  \ifzeropt\interwordshrink \else{ minus }\the\interwordshrink \fi}
53
54\permanent\def\usedspacevalue{\ifzeropt\spaceskip\the\spaceskip\else\currentspacevalue\fi}
55
56\permanent\def\mathstacktotal{\dimexpr\Umathstacknumup\scriptstyle+\Umathstackdenomdown\scriptstyle\relax}
57\permanent\def\mathstackvgap {\Umathstackvgap\scriptstyle}
58
59\protect \endinput
60