1
2
3
4
5
6
7
8
9
10
11
12
13
14\writestatus{loading}{ConTeXt Math Macros Scripts}
15
16\unprotect
17
18
19
20
21
22
23
24\def\math_scripts_raised_symbol#1
25 {\mathchoice
26 {\math_scripts_raised_symbol_indeed5\tf {#1}}
27 {\math_scripts_raised_symbol_indeed5\tf {#1}}
28 {\math_scripts_raised_symbol_indeed4\tx {#1}}
29 {\math_scripts_raised_symbol_indeed3\txx{#1}}}
30
31\def\math_scripts_raised_symbol_indeed#1#2#3
32 {\mathord{{#2\raise.#1ex\hbox{#2\symbol[#3]}}}}
33
34\def\math_scripts_raised_number#1
35 {\mathchoice
36 {\math_scripts_raised_number_indeed\tf {#1}}
37 {\math_scripts_raised_number_indeed\tf {#1}}
38 {\math_scripts_raised_number_indeed\tx {#1}}
39 {\math_scripts_raised_number_indeed\txx{#1}}}
40
41\def\math_scripts_raised_number_indeed#1#2
42 {\setbox\scratchbox\hbox{0}
43 \mathord{\hbox to \wd\scratchbox{\hss#1\symbol[#2]\hss}}}
44
45\definesymbol[positive] [\getglyph{Mono}{}]
46\definesymbol[negative] [\getglyph{Mono}{}]
47\definesymbol[zeroamount][\getglyph{Mono}{}]
48
49\unexpanded\def\negative {\math_scripts_raised_symbol{negative}}
50\unexpanded\def\positive {\math_scripts_raised_symbol{positive}}
51\unexpanded\def\zeroamount{\math_scripts_raised_number{zeroamount}}
52
53
54
55
56
57
58
59\protect \endinput
60 |