diff options
author | Karl Berry <karl@freefriends.org> | 2021-03-06 21:58:15 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-03-06 21:58:15 +0000 |
commit | 974640d66e61e81cb197ad96fdff7b08343e4c5a (patch) | |
tree | 2e1f75f32f312b7f24ba82b4590ae230bcd6f399 /Master/texmf-dist/tex/context/base/mkxl/math-scr.mkxl | |
parent | b4fa72e61230aca75f7f6fbf988821f71edfb6b2 (diff) |
context
git-svn-id: svn://tug.org/texlive/trunk@58167 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkxl/math-scr.mkxl')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkxl/math-scr.mkxl | 58 |
1 files changed, 58 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkxl/math-scr.mkxl b/Master/texmf-dist/tex/context/base/mkxl/math-scr.mkxl new file mode 100644 index 00000000000..555f549f133 --- /dev/null +++ b/Master/texmf-dist/tex/context/base/mkxl/math-scr.mkxl @@ -0,0 +1,58 @@ +%D \module +%D [ file=math-scr, +%D version=2007.07.19, +%D title=\CONTEXT\ Math Macros, +%D subtitle=Scripts, +%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. + +\writestatus{loading}{ConTeXt Math Macros / Scripts} + +\unprotect + +%D These macros were first needed by Frits (Gajes) Spijkers (of the Math4All project +%D that we participate in), and used for typesetting the minus sign that is keyed +%D into scientific calculators. We use the monospaced signs, that we also define as +%D symbol, so that they can be overloaded. We can probably do it nicer now (in lmtx). + +\def\math_scripts_raised_symbol#1% + {\mathchoice + {\math_scripts_raised_symbol_indeed5\tf {#1}}% + {\math_scripts_raised_symbol_indeed5\tf {#1}}% + {\math_scripts_raised_symbol_indeed4\tx {#1}}% + {\math_scripts_raised_symbol_indeed3\txx{#1}}} + +\def\math_scripts_raised_symbol_indeed#1#2#3% + {\mathord{{#2\raise.#1ex\hbox{#2\symbol[#3]}}}} + +\def\math_scripts_raised_number#1% + {\mathchoice + {\math_scripts_raised_number_indeed\tf {#1}}% + {\math_scripts_raised_number_indeed\tf {#1}}% + {\math_scripts_raised_number_indeed\tx {#1}}% + {\math_scripts_raised_number_indeed\txx{#1}}} + +\def\math_scripts_raised_number_indeed#1#2% + {\setbox\scratchbox\hbox{0}% + \mathord{\hbox to \wd\scratchbox{\hss#1\symbol[#2]\hss}}} + +\definesymbol[positive] [\getglyph{Mono}{+}] +\definesymbol[negative] [\getglyph{Mono}{-}] +\definesymbol[zeroamount][\getglyph{Mono}{-}] + +\permanent\protected\def\negative {\math_scripts_raised_symbol{negative}} +\permanent\protected\def\positive {\math_scripts_raised_symbol{positive}} +\permanent\protected\def\zeroamount{\math_scripts_raised_number{zeroamount}} + +%D How negative such a symbol looks is demonstrated in: $\negative 10^{\negative +%D 10^{\negative 10}}$. + +% \setuptextformulas % why here +% [\c!size=\v!normal] + +\protect \endinput |