%D \module
%D   [       file=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
%D  mr [MathRoman]      [Euler-Roman]     [zeurm10]

%D  mi [MathItalic]     [Euler-Italic]    [eufm10]

%D  ex [MathExtension]  [Euler-Extension] [zeuex10]
%D  sy [MathSymbol]     [Euler-Symbol]    [zeusm10]

%D  mb [MathBeta]       [Charter-Roman]   [bchr8r] XXX
%D  mc [MathGamma]      [Euler-Fraktur]   [eufm10] XXX
%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.

\definefamilysynonym [eul]     [calligraphic] [sy]
\definefamilysynonym [eul]     [oldstyle]     [mi]
\definefamilysynonym [eul]     [gothic]       [mi]
\definefamilysynonym [eul]     [fraktur]      [mi]

\definefamilysynonym [eul]     [lcgreek]      [mr]
\definefamilysynonym [eul]     [ucgreek]      [mr]
\definefamilysynonym [eul]     [vargreek]     [mr]

%% Well, you don't know until you try!
%\definefamilysynonym [eul]     [accents]      [Serif]

\startmathcollection [eul]

\definemathsymbol [varrho]   [nothing] [vargreek] ["1A]
\definemathsymbol [varsigma] [nothing] [vargreek] ["1B]

%D Changes necessitated by collapsing mr \& mi into one:
\definemathsymbol [imath]    [nothing] [mr] ["7B]
\definemathsymbol [jmath]    [nothing] [mr] ["7C]
\definemathsymbol [ell]      [nothing] [mr] ["60]
\definemathsymbol [wp]       [nothing] [mr] ["7D]
\definemathsymbol [partial]  [nothing] [mr] ["40]

\definemathsymbol [flat]         [ord] [mr] ["5B]
\definemathsymbol [natural]      [ord] [mr] ["5C]
\definemathsymbol [sharp]        [ord] [mr] ["5D]

\definemathsymbol [triangleleft] [bin] [mr] ["2F]
\definemathsymbol [triangleright][bin] [mr] ["2E]

\definemathsymbol [star]         [bin] [mr] ["3F]

\definemathsymbol [smile]            [rel] [mr] ["5E]
\definemathsymbol [frown]            [rel] [mr] ["5F]
\definemathsymbol [leftharpoonup]    [rel] [mr] ["28]
\definemathsymbol [leftharpoondown]  [rel] [mr] ["29]
\definemathsymbol [rightharpoonup]   [rel] [mr] ["2A]
\definemathsymbol [rightharpoondown] [rel] [mr] ["2B]
\definemathsymbol [lhook]            [rel] [mr] ["2C]
\definemathsymbol [rhook]            [rel] [mr] ["2D]

\definemathsymbol [mathperiod] [ord]   [mr] ["3A]
\definemathsymbol [textperiod] [punct] [mr] ["3A]

\definemathsymbol [mathcomma]  [ord]   [mr] ["3B]
\definemathsymbol [textcomma]  [punct] [mr] ["3B]

\definemathsymbol [ldotp] [punct] [mr] ["3A]

% extras from AMS:
\definemathsymbol [hslash]   [ord]   [mr] ["80] %beauty over truth

\stopmathcollection

\startmathcollection [eul]
% Ugh. no way around this to keep it compact in the font defs.

\definemathcharacter [a]   [nothing] [mr] ["61]
\definemathcharacter [b]   [nothing] [mr] ["62]
\definemathcharacter [c]   [nothing] [mr] ["63]
\definemathcharacter [d]   [nothing] [mr] ["65]
\definemathcharacter [e]   [nothing] [mr] ["65]
\definemathcharacter [f]   [nothing] [mr] ["66]
\definemathcharacter [g]   [nothing] [mr] ["67]
\definemathcharacter [h]   [nothing] [mr] ["68]
\definemathcharacter [i]   [nothing] [mr] ["69]
\definemathcharacter [j]   [nothing] [mr] ["6A]
\definemathcharacter [k]   [nothing] [mr] ["6B]
\definemathcharacter [l]   [nothing] [mr] ["6C]
\definemathcharacter [m]   [nothing] [mr] ["6D]
\definemathcharacter [n]   [nothing] [mr] ["6E]
\definemathcharacter [o]   [nothing] [mr] ["6F]
\definemathcharacter [p]   [nothing] [mr] ["70]
\definemathcharacter [q]   [nothing] [mr] ["71]
\definemathcharacter [r]   [nothing] [mr] ["72]
\definemathcharacter [s]   [nothing] [mr] ["73]
\definemathcharacter [t]   [nothing] [mr] ["74]
\definemathcharacter [u]   [nothing] [mr] ["75]
\definemathcharacter [v]   [nothing] [mr] ["76]
\definemathcharacter [w]   [nothing] [mr] ["77]
\definemathcharacter [x]   [nothing] [mr] ["78]
\definemathcharacter [y]   [nothing] [mr] ["79]
\definemathcharacter [z]   [nothing] [mr] ["7A]

\definemathcharacter [A]   [nothing] [mr] ["41]
\definemathcharacter [B]   [nothing] [mr] ["42]
\definemathcharacter [C]   [nothing] [mr] ["43]
\definemathcharacter [D]   [nothing] [mr] ["45]
\definemathcharacter [E]   [nothing] [mr] ["45]
\definemathcharacter [F]   [nothing] [mr] ["46]
\definemathcharacter [G]   [nothing] [mr] ["47]
\definemathcharacter [H]   [nothing] [mr] ["48]
\definemathcharacter [I]   [nothing] [mr] ["49]
\definemathcharacter [J]   [nothing] [mr] ["4A]
\definemathcharacter [K]   [nothing] [mr] ["4B]
\definemathcharacter [L]   [nothing] [mr] ["4C]
\definemathcharacter [M]   [nothing] [mr] ["4D]
\definemathcharacter [N]   [nothing] [mr] ["4E]
\definemathcharacter [O]   [nothing] [mr] ["4F]
\definemathcharacter [P]   [nothing] [mr] ["50]
\definemathcharacter [Q]   [nothing] [mr] ["51]
\definemathcharacter [R]   [nothing] [mr] ["52]
\definemathcharacter [S]   [nothing] [mr] ["53]
\definemathcharacter [T]   [nothing] [mr] ["54]
\definemathcharacter [U]   [nothing] [mr] ["55]
\definemathcharacter [V]   [nothing] [mr] ["56]
\definemathcharacter [W]   [nothing] [mr] ["57]
\definemathcharacter [X]   [nothing] [mr] ["58]
\definemathcharacter [Y]   [nothing] [mr] ["59]
\definemathcharacter [Z]   [nothing] [mr] ["5A]

\stopmathcollection

\startmathcollection [eul]

\definemathcharacter [!]   [close] [sy] ["A1]
\definemathcharacter [(]   [open]  [sy] ["A8]
\definemathcharacter [)]   [close] [sy] ["A9]
\definemathcharacter [+]   [bin]   [sy] ["AB]
\definemathcharacter [:]   [rel]   [sy] ["BA]
\definemathcharacter [;]   [punct] [sy] ["BB]
\definemathcharacter [=]   [rel]   [sy] ["BD]
\definemathcharacter [?]   [close] [sy] ["BF]
\definemathcharacter [91]  [open]  [sy] ["DB] % [
\definemathcharacter [93]  [close] [sy] ["DD] % ]

\definemathcharacter [,]   [punct] [mr] ["3B]
\definemathcharacter [.]   [ord]   [mr] ["3A]
\definemathcharacter [/]   [ord]   [mr] ["3D]
\definemathcharacter [<]   [rel]   [mr] ["3C]
\definemathcharacter [>]   [rel]   [mr] ["3E]

\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] [mr] ["3D] [ex] ["0E]

\stopmathcollection

\startmathcollection [eul]

\definemathsymbol [hbar]   [nothing] [mr] ["80]

\stopmathcollection

\startmathcollection [eul]

\definemathsymbol [ddagger] [bin] [sy] ["7A]
\definemathsymbol [dagger]  [bin] [sy] ["79]

\stopmathcollection

\startmathcollection [eul]

\definemathsymbol [colon] [punct] [sy] ["BA]

\stopmathcollection

%D This used to be very hackish; it brought in text 
%D accents from the well-matched Bitstream Charter.

%D But now, these characters don't exist. I would prefer to pull
%D them from the text font, but  I don't know how.
%D Instead, I'm just pointing to null characters!

\startmathcollection [eul]

\definemathsymbol [acute] [accent] [mr] ["90]
\definemathsymbol [grave] [accent] [mr] ["91]
\definemathsymbol [ddot]  [accent] [mr] ["92]
\definemathsymbol [tilde] [accent] [mr] ["93]
\definemathsymbol [bar]   [accent] [mr] ["94]
\definemathsymbol [breve] [accent] [mr] ["95]
\definemathsymbol [check] [accent] [mr] ["96]
\definemathsymbol [hat]   [accent] [mr] ["97]
\definemathsymbol [dot]   [accent] [mr] ["98]
%\definemathsymbol [acute] [accent] [accents] ["B4]
%\definemathsymbol [grave] [accent] [accents] ["1E]
%\definemathsymbol [ddot]  [accent] [accents] ["A8]
%\definemathsymbol [tilde] [accent] [accents] ["98]
%\definemathsymbol [bar]   [accent] [accents] ["AF]
%\definemathsymbol [breve] [accent] [accents] ["0B]
%\definemathsymbol [check] [accent] [accents] ["10]
%\definemathsymbol [hat]   [accent] [accents] ["5E]
%\definemathsymbol [dot]   [accent] [accents] ["01]

\definemathsymbol [vec]   [accent] [mr] ["7E] % [ord]
\definemathsymbol [hat]   [accent] [sy] ["DE]

\stopmathcollection

\startmathcollection [eul]

\definemathsymbol [lgroup] [open]  [sy] ["A8] [ex] ["3A] % ?
\definemathsymbol [rgroup] [close] [sy] ["A9] [ex] ["3B] % ?

\stopmathcollection

\startmathcollection [eul]

\definemathsymbol [dag]  [box] [sy] ["79]
\definemathsymbol [ddag] [box] [sy] ["7A]
\definemathsymbol [S]    [box] [sy] ["78]
\definemathsymbol [P]    [box] [sy] ["7B]

\stopmathcollection

\protect \endinput
