blob: 1b5ebed416ef77c2ac40fe55070c4b6d2a00e092 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
|
%D \module
%D [ file=s-math-atoms.mksl,
%D version=2022.02.13,
%D title=\CONTEXT\ Style File,
%D subtitle=Show Math Atom Spacing,
%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.
%D This is just a quick and dirty overview.
\startmodule[math-atoms]
\setvalue{atom:\number\mathordinarycode }{ord}%inary}
\setvalue{atom:\number\mathoperatorcode }{ope}%rator}
\setvalue{atom:\number\mathbinarycode }{bin}%ary}
\setvalue{atom:\number\mathrelationcode }{rel}%ation}
\setvalue{atom:\number\mathopencode }{ope}%n}
\setvalue{atom:\number\mathclosecode }{clo}%se}
\setvalue{atom:\number\mathpunctuationcode }{pun}%ctuation}
%setvalue{atom:\number\mathinnercode }{inn}%er}
%setvalue{atom:\number\mathovercode }{ove}%r}
%setvalue{atom:\number\mathundercode }{und}%er}
\setvalue{atom:\number\mathfractioncode }{fra}%ction}
\setvalue{atom:\number\mathradicalcode }{rad}%ical}
\setvalue{atom:\number\mathmiddlecode }{mid}%dle}
%setvalue{atom:\number\mathaccentcode }{acc}%ent}
%setvalue{atom:\number\mathfencedcode }{fen}%ced}
%setvalue{atom:\number\mathvariablecode }{var}%iable}
%setvalue{atom:\number\mathactivecode }{act}%ive}
%setvalue{atom:\number\mathvcentercode }{vce}%nter}
%setvalue{atom:\number\mathreservedcode }{res}%erved}
%setvalue{atom:\number\mathimaginarycode }{ima}%ginary}
%setvalue{atom:\number\mathdifferentialcode}{dif}%ferential}
%setvalue{atom:\number\mathexponentialcode }{exp}%onential}
\setvalue{atom:\number\mathfunctioncode }{fun}%ction}
\setvalue{atom:\number\mathdigitcode }{dig}%it}
\dostepwiserecurse \mathordinarycode \mathdigitcode \plusone {
\setmathatomrule \mathbegincode #1 \allmathstyles \mathbegincode #1
\setmathatomrule #1 \mathendcode \allmathstyles #1 \mathendcode
\dostepwiserecurse \mathordinarycode \mathdigitcode \plusone {
\setmathatomrule#1 ##1 \allmathstyles #1 ##1
}
}
\protected\def\showmathatomspacing#1{
\startTEXpage[offset=10pt]
\showmakeup[mathglue]
\bTABLE[align=middle,width=4em]
\dostepwiserecurse \mathordinarycode \mathdigitcode \plusone {%
\ifcsname atom:##1\endcsname
\bTR
\dostepwiserecurse \mathordinarycode \mathdigitcode \plusone {%
\ifcsname atom:####1\endcsname
\bTD
$ #1%
\mathatom class ##1 {\hpack to 1.5em{\infofont[\hss\getvalue{atom:##1}\hss]}}
\mathatom class ####1 {\hpack to 1.5em{\infofont[\hss\getvalue{atom:####1}\hss]}}
$
\eTD
\fi
}
\eTR
\fi
}
\bTR[frame=off]
\bTD[nx=12,height=6ex,align={middle,lohi}]
\type{#1}
\eTD
\eTR
\bTR
\bTD[nx=12,align=middle]
\infofont\hfill
tiny : \the\tinymuskip\hfill
thin : \the\thinmuskip\hfill
med : \the\medmuskip\hfill
thick : \the\thickmuskip\hfill\strut
\eTD
\eTR
\eTABLE
\stopTEXpage
}
\stopmodule
\continueifinputfile{s-math-atoms.mkxl}
\starttext
\showmathatomspacing{\displaystyle}
\showmathatomspacing{\textstyle}
\showmathatomspacing{\scriptstyle}
\showmathatomspacing{\scriptscriptstyle}
\showmathatomspacing{\crampeddisplaystyle}
\showmathatomspacing{\crampedtextstyle}
\showmathatomspacing{\crampedscriptstyle}
\showmathatomspacing{\crampedscriptscriptstyle}
\stoptext
|