summaryrefslogtreecommitdiff
path: root/tex/context/base/math-ini.mkiv
diff options
context:
space:
mode:
authorMarius <mariausol@gmail.com>2013-01-02 19:40:16 +0200
committerMarius <mariausol@gmail.com>2013-01-02 19:40:16 +0200
commit250316e74df7a2fe9544318ed39fd2f6621e8dbb (patch)
tree7f2ce6c817e96973537a4d47ece7b0c74064a3c1 /tex/context/base/math-ini.mkiv
parentc67041351da8f66abcefbfcbbeb7b750b9cf4a52 (diff)
downloadcontext-250316e74df7a2fe9544318ed39fd2f6621e8dbb.tar.gz
beta 2013.01.02 18:19
Diffstat (limited to 'tex/context/base/math-ini.mkiv')
-rw-r--r--tex/context/base/math-ini.mkiv38
1 files changed, 38 insertions, 0 deletions
diff --git a/tex/context/base/math-ini.mkiv b/tex/context/base/math-ini.mkiv
index 58650595f..a1f747a79 100644
--- a/tex/context/base/math-ini.mkiv
+++ b/tex/context/base/math-ini.mkiv
@@ -1069,6 +1069,19 @@
\textfont
\fi\zerocount} % hm, can ie other value as well
+\def\mathsmallstylefont#1% #1 is number (\normalmathstyle)
+ {\ifcase#1\relax
+ \scriptfont \or
+ \scriptfont \or
+ \scriptfont \or
+ \scriptfont \or
+ \scriptscriptfont \or
+ \scriptscriptfont \or
+ \scriptscriptfont \or
+ \scriptscriptfont \else
+ \scriptfont
+ \fi\zerocount} % hm, can ie other value as well
+
\def\mathstyleface#1% #1 is number (\normalmathstyle)
{\ifcase#1
\textface \or
@@ -1082,6 +1095,19 @@
\textface
\fi}
+\def\mathsmallstyleface#1% #1 is number (\normalmathstyle)
+ {\ifcase#1
+ \scriptface \or
+ \scriptface \or
+ \scriptface \or
+ \scriptface \or
+ \scriptscriptface \or
+ \scriptscriptface \or
+ \scriptscriptface \or
+ \scriptscriptface \else
+ \scriptface
+ \fi}
+
\def\mathstylecommand#1#2#3%
{\ifcase\normalmathstyle
\expandafter#1\or
@@ -1131,6 +1157,18 @@
{\normalexpanded{\vcenter\bgroup\vbox\bgroup
$\triggermathstyle\normalmathstyle}\mathsurround\zeropoint#1$\egroup\egroup}
+\unexpanded\def\setmathsmalltextbox#1#2#%
+ {\normalizebodyfontsize\m_math_text_choice_face{\mathsmallstyleface\normalmathstyle}%
+ \setbox#1#2\bgroup
+ \font_basics_switchtobodyfont\m_math_text_choice_face
+ \let\next}
+
+\unexpanded\def\setmathtextbox#1#2#%
+ {\normalizebodyfontsize\m_math_text_choice_face{\mathstyleface\normalmathstyle}%
+ \setbox#1#2\bgroup
+ \font_basics_switchtobodyfont\m_math_text_choice_face
+ \let\next}
+
%D Something similar can be used in the (re|)|definition of \type {\text}. This
%D version is a variation on the one in the math module (see \type{m-math} and|/|or
%D \type {m-newmat}).