%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  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 
