%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

