blob: cd68998a1a8a81b2b18f36e50bd700aeb2be5934 (
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
|
%D \module
%D [ filefile=math-eul,
%D version=2003.02.03,
%D title=\CONTEXT\ Math Macros,
%D subtitle=Virtual Euler Specials,
%D author={Hans Hagen \& Taco Hoekwater \& Adam Lindsay},
%D date=\currentdate,
%D copyright=\PRAGMA]
%C
%C This module is part of the \CONTEXT\ macro||package and is
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
%C details. Further modified by Adam Lindsay.
\unprotect
%D We follow the following mappings from type-eul:
%D mr [MathRoman] [Euler-Roman] [zeurm10]
%D mi [MathItalic] [Euler-Italic] [zeurm10]
%D ex [MathExtension] [Euler-Extension] [zeuex10]
%D sy [MathSymbol] [Euler-Symbol] [zeusm10]
%D mb [MathBeta] [Charter-Roman] [bchr8r]
%D mc [MathGamma] [Euler-Fraktur] [eufm10]
%D
%D The inclusion of Bitstream Charter was originally for the text accents.
%D Obviously, it's not a proper ``MathBeta'' font.
%D The varrho and varsigma characters don't exist in eulervm,
%D so we point at the normal types.
\startmathcollection [eul]
\definemathsymbol [varrho] [nothing] [vargreek] ["1A]
\definemathsymbol [varsigma] [nothing] [vargreek] ["1B]
\stopmathcollection
\startmathcollection [eul]
\definemathcharacter [!] [close] [mc] ["21]
\definemathcharacter [(] [open] [mc] ["28]
\definemathcharacter [)] [close] [mc] ["29]
\definemathcharacter [+] [bin] [mc] ["2B]
\definemathcharacter [:] [rel] [sy] ["BA]
\definemathcharacter [;] [punct] [sy] ["BB]
\definemathcharacter [=] [rel] [mi] ["82]
\definemathcharacter [?] [close] [sy] ["BF]
\definemathcharacter [91] [open] [sy] ["DB] % [
\definemathcharacter [93] [close] [sy] ["DD] % ]
\stopmathcollection
\startmathcollection [eul]
\definemathcharacter [(] [nothing] [sy] ["A8] [ex] ["00]
\definemathcharacter [)] [nothing] [sy] ["A9] [ex] ["01]
\definemathcharacter [91] [nothing] [sy] ["DB] [ex] ["02] % [
\definemathcharacter [93] [nothing] [sy] ["DD] [ex] ["03] % ]
\definemathcharacter [/] [nothing] [mi] ["3D] [ex] ["0E]
\stopmathcollection
\startmathcollection [eul]
\definemathsymbol [hbar] [nothing] [mi] ["80]
\stopmathcollection
%D I used my discretion in substituting Charter here for the CM glyphs
%D brought in by the eulervm virtual font
\startmathcollection [eul]
\definemathsymbol [ddagger] [bin] [mb] ["87]
\definemathsymbol [dagger] [bin] [mb] ["86]
\stopmathcollection
\startmathcollection [eul]
\definemathsymbol [colon] [punct] [sy] ["BA]
\stopmathcollection
%D This is very hackish; it brings in text accents from the
%D well-matched Bitstream Charter.
\startmathcollection [eul]
\definemathsymbol [acute] [accent] [mb] ["B4]
\definemathsymbol [grave] [accent] [mb] ["1E]
\definemathsymbol [ddot] [accent] [mb] ["A8]
\definemathsymbol [tilde] [accent] [mb] ["98]
\definemathsymbol [bar] [accent] [mb] ["AF]
\definemathsymbol [breve] [accent] [mb] ["0B]
\definemathsymbol [check] [accent] [mb] ["10]
%\definemathsymbol [hat] [accent] [mc] ["5E]
\definemathsymbol [hat] [accent] [mb] ["88]
\definemathsymbol [dot] [accent] [mb] ["01]
\stopmathcollection
\startmathcollection [eul]
\definemathsymbol [lgroup] [open] [sy] ["A8] [ex] ["3A] % ?
\definemathsymbol [rgroup] [close] [sy] ["A9] [ex] ["3B] % ?
\stopmathcollection
\startmathcollection [eul]
\definemathsymbol [dag] [box] [mb] ["86]
\definemathsymbol [ddag] [box] [mb] ["87]
\definemathsymbol [S] [box] [mb] ["A7]
\definemathsymbol [P] [box] [mb] ["B6]
%%% originals before substituting Charter characters
%\definemathsymbol [dag] [box] [sy] ["79]
%\definemathsymbol [ddag] [box] [sy] ["7A]
%\definemathsymbol [S] [box] [sy] ["78]
%\definemathsymbol [P] [box] [sy] ["7B]
\stopmathcollection
\protect \endinput
|