blob: e6029d80511508141dadb4acbd38ad080060818d (
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
\immutable\protected\def\fontslantperpoint {\scaledfontdimen\plusone }
\immutable\protected\def\fontinterwordspace {\scaledfontdimen\plustwo }
\immutable\protected\def\fontinterwordstretch{\scaledfontdimen\plusthree}
\immutable\protected\def\fontinterwordshrink {\scaledfontdimen\plusfour }
\immutable\protected\def\fontexheight {\scaledfontdimen\plusfive }
\immutable\protected\def\fontemwidth {\scaledfontdimen\plussix }
\immutable\protected\def\fontextraspace {\scaledfontdimen\plusseven}
\immutable\protected\def\slantperpoint {\scaledfontdimen\plusone \font}
\immutable\protected\def\interwordspace {\scaledfontdimen\plustwo \font}
\immutable\protected\def\interwordstretch {\scaledfontdimen\plusthree\font}
\immutable\protected\def\interwordshrink {\scaledfontdimen\plusfour \font}
\immutable\protected\def\exheight {\scaledfontdimen\plusfive \font}
\immutable\protected\def\emwidth {\scaledfontdimen\plussix \font}
\immutable\protected\def\extraspace {\scaledfontdimen\plusseven\font}
\aliased\let\mathaxisheight\Umathaxis % takes style
\permanent\def\currentspaceskip{\interwordspace\s!plus\interwordstretch\s!minus\interwordshrink\relax}
\permanent\def\currentspacevalue{\the\interwordspace
\ifzeropt\interwordstretch\else{ plus }\the\interwordstretch\fi
\ifzeropt\interwordshrink \else{ minus }\the\interwordshrink \fi}
\permanent\def\usedspacevalue{\ifzeropt\spaceskip\the\spaceskip\else\currentspacevalue\fi}
\permanent\def\mathstacktotal{\dimexpr\Umathstacknumup\scriptstyle+\Umathstackdenomdown\scriptstyle\relax}
\permanent\def\mathstackvgap {\Umathstackvgap\scriptstyle}
\protect \endinput
|
