syst-fnt.mkiv /size: 1755 b    last modification: 2020-07-01 14:35
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
\def
\fontslantperpoint
{
\fontdimen
\plusone
}
19
\def
\fontinterwordspace
{
\fontdimen
\plustwo
}
20
\def
\fontinterwordstretch
{
\fontdimen
\plusthree
}
21
\def
\fontinterwordshrink
{
\fontdimen
\plusfour
}
22
\def
\fontexheight
{
\fontdimen
\plusfive
}
23
\def
\fontemwidth
{
\fontdimen
\plussix
}
24
\def
\fontextraspace
{
\fontdimen
\plusseven
}
25 26
\def
\slantperpoint
{
\fontdimen
\plusone
\font
}
27
\def
\interwordspace
{
\fontdimen
\plustwo
\font
}
28
\def
\interwordstretch
{
\fontdimen
\plusthree
\font
}
29
\def
\interwordshrink
{
\fontdimen
\plusfour
\font
}
30
\def
\exheight
{
\fontdimen
\plusfive
\font
}
31
\def
\emwidth
{
\fontdimen
\plussix
\font
}
32
\def
\extraspace
{
\fontdimen
\plusseven
\font
}
33 34
\def
\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