blob: 35f2a6248db7993feb8b2fbf6383b300d18f48ab (
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
105
106
107
108
109
110
111
112
|
%D \module
%D [ file=s-math-tests.mkxl,
%D version=2023.04.03,
%D title=\CONTEXT\ Style File,
%D subtitle=Some Math Tests,
%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.
\continueifinputfile{s-math-tests.mkxl}
%D Here we collect some tests that later will become proper macros.
\starttext
\startbuffer
\ruledhbox \bgroup \im {
\dostepwiserecurse{`A}{`Z}{1}{
\blackrule[color=darkgray,height=\the\Umathflattenedaccentbaseheight\textstyle,depth=0pt,width=0.05ts]
\hat{\char#1}
}
}\egroup
\stopbuffer
\startTEXpage[offset=1ts]
\showglyphs
% \switchtobodyfont[modern] \getbuffer\par
% \blank
% \switchtobodyfont[pagella] \getbuffer\par
% \switchtobodyfont[termes] \getbuffer\par
% \switchtobodyfont[schola] \getbuffer\par
% \blank
% \switchtobodyfont[ebgaramon-nt]\getbuffer\par
% \switchtobodyfont[ebgaramond] \getbuffer\par
% \blank
% \switchtobodyfont[erewhon] \getbuffer\par
% \switchtobodyfont[kpfonts] \getbuffer\par
% \switchtobodyfont[xcharter] \getbuffer\par
% \switchtobodyfont[concrete] \getbuffer\par
% \switchtobodyfont[libertinus] \getbuffer\par
% \switchtobodyfont[stixtwo] \getbuffer\par
% \switchtobodyfont[lucida-nt] \getbuffer\par
\switchtobodyfont[lucida]
% 8.67123pt default
\bgroup
\bitwiseflip\mathfontcontrol\ignoreflataccentsmathcontrolcode
\appendtoks
\Umathflattenedaccentbaseheight\textstyle8.67123pt
\to\everymathematics
\getbuffer\par
\egroup
\bgroup
\appendtoks
\Umathflattenedaccentbaseheight\textstyle8.67123pt
\to\everymathematics
\getbuffer\par
\egroup
% 8.51532pt fixed
\bgroup
\appendtoks
\Umathflattenedaccentbaseheight\textstyle8.51532pt
\to\everymathematics
\getbuffer\par
\egroup
% \switchtobodyfont[libertinus] \getbuffer\par
\stopTEXpage
\startTEXpage[offset=1ts]
\definefontfeature[mathextra][]
% \definefontfeature[mathextra][ss10=yes,ss06=yes]
\setupbodyfont[ebgaramond]
\bgroup
\setupmathematics[stylealternative=]
\im{\hbar^{\hbar^{\hbar}}}
\egroup
\bgroup
\setupmathematics[stylealternative={hbar}]
\im{\hbar^{\hbar^{\hbar}}}
\egroup
\bgroup
\setupmathematics[stylealternative={hbar,outbendingh}]
\im{\hbar^{\hbar^{\hbar}}}
\egroup
\bgroup
\setupmathematics[stylealternative={outbendingh}]
\im{\hbar^{\hbar^{\hbar}}}
\egroup
\definefontfeature[mathextra][]
% \definefontfeature[mathextra][cv03=yes]
\setupbodyfont[stixtwo]
\bgroup
\setupmathematics[stylealternative=]
\im{\emptyset^{\emptyset^{\emptyset}}}
\egroup
\bgroup
\setupmathematics[stylealternative={emptyset}]
\im{\emptyset^{\emptyset^{\emptyset}}}
\egroup
\stopTEXpage
\stoptext
|