% \CheckSum{625}
% \iffalse
%
% File `eulervm.dtx'.
% Copyright (c) 1999--2002 Walter Schmidt
%
% This file is part of the `Euler-VM Bundle'.
% -------------------------------------------
%
% It may be distributed and/or modified under the conditions
% of the LaTeX Project Public License, either version 1.1
% of this license or (at your option) any later version.
% The latest version of this license is in
%   http://www.latex-project.org/lppl.txt
% and version 1.1 or later is part of all distributions of LaTeX
% version 1999/06/01 or later.
%
% The list of all files belonging to the `Euler-VM Bundle' is
% given in the file `manifest.txt'.
%
% \fi
%
% \iffalse
%<*driver>
\ProvidesFile{eulervm.drv}
%</driver>
%
%<package>\ProvidesPackage{eulervm}
%<uzeur>\ProvidesFile{uzeur.fd}
%<uzeus>\ProvidesFile{uzeus.fd}
%<uzeuex>\ProvidesFile{uzeuex.fd}
           [2002/11/13 v2.9a (WaS)]
%
%<*driver>
%
\documentclass[11pt]{ltxdoc}    
\usepackage{url,mflogo}
\renewcommand{\labelitemi}{$\triangleright$}
\begin{document}
   \DocInput{eulervm.dtx}
\end{document}
%</driver>
% \fi
%
% \newcommand\Lopt[1]{\textsf{#1}}
% \let\Lpack\Lopt
% \GetFileInfo{eulervm.drv}
% \title{The Euler Virtual Math Fonts for use with \LaTeX}
% \author{Walter Schmidt\thanks{\texttt{was@VR-Web.de}}}
% \date{\fileversion{} -- \filedate}
%
% \maketitle
%
% \begin{abstract}\noindent
% The Euler math fonts are suitable for math typesetting in conjunction with a
% variety of popular text fonts which do not provide math character sets
% of their own.
% Euler-VM is a set of virtual math fonts based on Euler and CM, accompanied
% by a macro package for easy use with \LaTeX.
% \end{abstract}
% 
% \tableofcontents
%
%
% \section{The Euler math fonts}
% `With Donald Knuth's assistance and encouragement, Hermann Zapf, one of the
% premier font designers of this century, was commissioned to create designs
% for Fraktur and script, and for a somewhat experimental, upright cursive
% alphabet that would represent a mathematician's handwriting on a blackboard
% and that could be used in place of italic.  The designs that resulted were
% named Euler, in honor of Leonhard Euler, a prominent mathematician of the
% eighteenth century.  Zapf's designs were rendered in \MF{} code by graduate
% students at Stanford, working under Knuth's direction. [\dots]
% Knuth also noticed that the
% style of some symbols in the Computer Modern extension font, in particular
% the integral sign, was too slanted to be attractive with Euler, and
% consequently he prepared a new (partial) extension font for use with Euler.'
% \cite{amsfndoc}
%
% Knuth's book \textit{Concrete Mathematics} was typeset using
% the Concrete font family for text and the Euler fonts for math. 
% With \LaTeX, the particular math font setup of this book can be mimicked 
% through the package \Lpack{euler}, see \cite{euler}.
% In the meantime it became
% obvious that the Euler fonts match other text font families equally well.
%
% Unfortunately, the Euler fonts do not comprise all symbols required for 
% mathematical typesetting with \LaTeX. As a result, the \Lpack{euler} package
% needs to redefine most of \LaTeX's math font setup, so that certain
% symbols are taken from Euler, whereas others must still come from the
% CM math fonts.  
%
%
% \section{The Euler-VM fonts}
% Euler Virtual Math (Euler-VM)
% is a set of \emph{virtual} fonts based primarily on the Euler fonts,
% with the missing symbols taken from Computer Modern.
% Thus Euler-VM can replace \LaTeX's  default CM math fonts.
% This approach has several advantages over immediately using the 
% \emph{real} Euler fonts, as practiced in the \Lpack{euler} package:
% Most noticeably, less \TeX{} resources are consumed,
% the quality of various math symbols is improved,
% and there will be far lesser compatibility problems with other packages.
% 
% Actually, the reason for creating Euler-VM was the fact that the
% \Lpack{euler} package does not provide a usable \cmd{\hbar} or 
% \cmd{\hslash}, and that one cannot use the \cmd{\hslash} from the
% \Lpack{amssymb} package, because the latter follows the CM Roman style.
% This makes the beautiful Euler fonts more or less unusable for 
% physics and related fields.
% The only way to fix this was to provide a `faked' Euler-style \cmd{\hslash} 
% through the virtual font mechanism.
% As a side effect, it was possible to make the layout of the virtual fonts 
% compatible with CM Math to a large extent, and---since the style file
% had to be rewritten anyway---further improvements were introduced.
%
%
% \section{Suitable text font families}
% The main criteria whether you can use the Euler math fonts in conjunction
% with a certain text font family, are, that the weight (stroke width)
% and the x-height should not differ too much.
% Beside the above-mentioned Concrete, the font families Palatino, Aldus 
% and Melior blend well with Euler---which is not surprising, since they were
% designed by H.~Zapf, too.
% The Euler math fonts have also proven to go sufficiently well 
% with typefaces such as Sabon or Minion.  
%
% Changing the default text font family is easy, see \cite{fntguide}.
% For instance, the simple command
% \begin{quote}
% |\renewcommand{\rmdefault}{ppl}|
% \end{quote}
% makes \LaTeX{} use Palatino in place of CM~Roman.
%
% Do \emph{not} use the Euler math fonts in conjunction
% with the default Computer Modern text fonts---this is ugly!
%
%
% \section{The \LaTeX{} package \Lpack{eulervm}}
% 
% Loading the \Lpack{eulervm} package will redefine \LaTeX's 
% math font setup, so that the Euler-VM fonts and the default body font
% are substituted for CM Math and CM Roman.  Roughly said:
% \begin{itemize}
%   \item CM Math Italic is replaced with Euler Roman.
%   \item CM Calligraphic is replaced with Euler Script.
%   \item `Large' operators and delimiters are replaced with
%         alternative variants matching the Euler style.
%   \item In numbers and operator names,
%         CM Roman is replaced with the default text font.
% \end{itemize}
% 
% \subsection{Special features}
%
% \subsubsection{The package option \Lopt{small}}
% \label{sec:small}
% Loading the package with the option \Lopt{small} causes the
% Euler fonts to be loaded at 95\% of their nominal size,
% thus blending better with certain text font families, 
% for instance Aldus or Minion.  
% The option acts also on the Euler Fraktur fonts,
% which can be used through the \Lpack{eufrak} package;
% any further math fonts used in your document are, however,  
% unaffected.
%
%
% \subsubsection{Slashed \textit{h}}
% Both \cmd{\hslash} and \cmd{\hbar} produce a slashed Euler-style h.
% (There is, however, no $\hbar$ with a \emph{horizontal} bar.)
%
%
% \subsubsection{Bold math alphabet}
% The package defines a new math alphabet \cmd{\mathbold} to typeset
% math variables, incl.\ Greek, in a bold style, e.g:
% \begin{verse}
% |\mathbold{k}|
% \end{verse}
% Do not mix this up with \cmd{\mathbf}:  The latter will produce
% characters from the bold \emph{text} font, whereas \cmd{\mathbold}
% will use the bold series of the \emph{Euler} math font.
%
%
% \subsubsection{Size of the `large' math symbols}
% The size of the `large' math symbols is automatically adjusted with respect
% to the base font size.  You need \emph{not} load the extra package
% \Lpack{exscale} for this purpose.
%
%
% \subsection{Text fonts in math}
%
% \subsubsection{Math alphabets}
% Function names as well as math accents are taken from the default text font family.
% This holds for the math alphabets \cmd{\mathrm} and \cmd{\mathbf}, too.
% The \Lpack{eulervm} package determines the default font family
% (i.e.\ the meaning of the macro \cmd{\familydefault})
% at load time and will apply it for the above purposes then.
% In the same way, the math alphabets \cmd{\mathsf} and \cmd{\mathtt}
% are mapped to \cmd{\sfdefault} and \cmd{\ttdefault}.
% Thus, you should redefine the default text fonts \emph{before}
% loading the \Lpack{eulervm} package!
%
%
% \subsubsection{Numbers and punctuation in math mode}
% The normal behaviour is to take the digits, the comma and the period
% from the default text font family.
% Popular text fonts may, however, not be suitable for typesetting math:  
% Maybe the numeral `1' cannot be distinguished 
% clearly enough from the letter `l', or the style of the numerals does
% not sufficiently suit the Euler letters.
% Furthermore, most text fonts are scaled linearly, so that the digits
% may become too thin when used in super- or subscripts.
%
% The \Lpack{eulervm} package provides the option \Lopt{euler-digits}, 
% which makes the digits, the comma and the period come from Euler Roman
% in math mode---note that the Euler fonts come with separate designs sizes
% of 10\,pt, 7\,pt and 5\,pt\,!
% The option should be used with care, because entering
% |$1.23$| will yield a different result than |1.23| then, 
% and you will in each case have to decide whether an input fragment 
% is a math or a non-math entity.
%
% \subsubsection{The `hat' accent for math}
% By default, the math accent |\hat| is taken from the text font.
% With the option \Lopt{euler-hat-accent},
% an alternative one from Euler Fraktur will be used.
% 
%
% \subsubsection{Encoding}
% The default text font encoding 
% (i.e.\ the meaning of the macro \cmd{\encodingdefault}) 
% is determined when \Lpack{eulervm} is loaded; this encoding 
% will then be applied to any text fonts used in math mode (see above.)
% The \Lpack{eulervm} package can, however, handle the encodings OT1 (\LaTeX's default),
% T1 and LY1 only.  If your preferred text font encoding is a different one,
% or if you want to override the default setting for one reason or another,
% you have to specify one of the above as a package option, e.g.:
% \begin{verse}
%  |\usepackage[OT1]{eulervm}|
% \end{verse}
% This makes the \Lpack{eulervm} package use the given encoding for the text
% fonts in math, without affecting text mode.
% Be sure that the text fonts are actually available with this encoding!
%
%
% \subsection{Using PostScript fonts}
% CM as well as the Euler fonts 
% are available in both \MF\ and Type1 (PostScript) format. 
% The collection of Type1 fonts distributed by the AMS 
% (or in conjunction with VTeX, resp.) is, however, 
% lacking a few sizes.  In contrast to the \Lpack{euler} package,
% \Lpack{eulervm} does \emph{not} make use of these missing fonts;
% thus you can create documents which do not require any bitmap fonts,
% and \Lpack{eulervm} can flawlessly be used for creating PDF output, too.
% 
%
% \subsection{Options and command summary}
% \noindent Options of the \Lpack{eulervm} package:
% \begin{itemize}
% \item \Lopt{small}\quad Load the Euler fonts at 95\% of their nominal size.
% \item \Lopt{euler-digits}\quad Take numerals, comma and period from 
%   Euler Roman in math mode.
% \item \Lopt{euler-hat-accent}\quad Use the \cmd{\hat} accent from Euler Fraktur.
% \item \Lopt{OT1}\quad Use OT1 encoding for text fonts in math, regardless
%   of the default text font encoding.
% \item \Lopt{T1}\quad ditto, T1
% \item \Lopt{LY1}\quad ditto, LY1
% \end{itemize}
% New commands:
% \begin{itemize}
% \item \cmd{\mathbold}\quad A bold Euler-style math alphabet.
% \item \cmd{\hslash}\quad A slashed Euler-style h. 
% \end{itemize}
%
%
% \subsection{Known problems and deficiencies}
% \begin{itemize}
% \item The bold math fonts, which can be used through \cmd{\boldmath},
%   are far from perfect.  E.g., the bold equals sign of the Euler fonts 
%   is actually smaller than the regular one!  
%   Thus, the use of \cmd{\boldmath} is not recommended;
%   it is only provided for compatibility with standard \LaTeX.
% \item The Euler fonts are a bit larger and have a somewhat higher 
%   vertical symmetry axis than  Computer Modern; yet the \Lpack{eulervm} 
%   package still uses the font parameters of  the CM~Symbol font in math mode.  
%   Fortunately, the differences are small and seem not to cause obvious
%   typographical deficiencies.  
% \item The \cmd{\cdots} macro produces dots from the 
%   Computer Modern Symbols font, regardless of the \Lopt{euler-digits} option.
%   \item The AMS math symbols (packages \Lpack{amsfonts or amssymb}) do not
%   blend well with the Euler fonts, and they do not honor the option \Lopt{small}.  
%   However, this does not matter much for symbols such as \cmd{\checkmark}.
% \end{itemize}
%
%
% \section{Credits}
% Fank Jensen's \Lpack{euler} package \cite{euler} served as a model
% for parts of \Lpack{eulervm}.  The implementation
% of the \Lopt{OT1}, \Lopt{T1} and \Lopt{LY1} options was adopted
% from Frank Mittelbach's \Lpack{lucidabr} package \cite{lucidabr}.
% Special thanks to Henning `Hraban' Ramm for typographical advice.
%
%
% \StopEventually{
% \begin{thebibliography}{1}
%    \bibitem{amsfndoc}
%        American Mathematical Society:
%        \textit{User's Guide to AMSFonts Version 2.2}.
%        Jan.\ 1995.
%        (CTAN: \path{fonts/amsfonts/doc/amsfndoc.ps})
%    \bibitem{concrete}
%        Ronald L.\ Graham, Donald E. Knuth, and
%        Oren Patashnik:
%        \textit{Concrete Mathematics}.
%        Addison-Wesley, 1989.
%    \bibitem{fntguide}
%        \LaTeX3 Project Team (Ed.):
%        \textit{LaTeX2e font selection.}
%        CTAN: \path{macros/latex/doc/html/fntguide/fntguide.html}
%        (Part of the \LaTeX{} online documentation.)
%    \bibitem{euler}
%        Frank Jensen:
%        \textit{The \Lpack{euler} package, v2.5}.
%        Mar.\ 1995.
%        (CTAN: \path{macros/latex/contrib/supported/euler/euler.dtx})
%    \bibitem{lucidabr}
%        Frank Mittelbach:
%        \textit{The \Lpack{lucidabr} package, v4.10}.
%        Jan.\ 1998.
%        (CTAN: \path{macros/latex/required/psnfss/psnfss.dtx})
% \end{thebibliography}
% }
%
% {\sloppy
% \section{The implementation of the \Lpack{eulervm} package}
%
% \subsection{Switching off font warnings}
% We suppress the annoying `warnings' about math fonts being redefined:
%    \begin{macrocode}
%<*package>
\let\evm@info\@font@info
\let\evm@warning\@font@warning
\let\@font@info\@gobble
\let\@font@warning\@gobble
%    \end{macrocode}
% 
% \subsection{Options}
% In addition to usual options processing we also have to memorize the 
% options via \cmd{\newif}'s in order to handle some cross-dependencies.
%
% The option \Lopt{small}.
% Note that only a fixed scaling of 0.95 is provided,
% for the time being.  This suits, for instance, the Aldus, 
% and Minion text fonts.
%    \begin{macrocode}
\DeclareOption{small}{%
  \def\zeu@Scale{.95}
  \AtBeginDocument{
    \DeclareFontFamily{U}{euf}{}
    \DeclareFontShape{U}{euf}{m}{n}{%
      <-6>s*[0.95]eufm5 <6-8>s*[0.95]eufm7 <8->s*[0.95]eufm10%
      }{}
    \DeclareFontShape{U}{euf}{b}{n}{%
      <-6>s*[0.95]eufb5 <6-8>s*[0.95]eufb7 <8->s*[0.95]eufb10%
    }{}
  }
}
%    \end{macrocode}
%
% The option \Lopt{euler-digits}:
%    \begin{macrocode}
\newif\ifevm@ed
\DeclareOption{euler-digits}{%
  \evm@edtrue
  \DeclareMathSymbol{0}\mathalpha{letters}{"30}
  \DeclareMathSymbol{1}\mathalpha{letters}{"31}
  \DeclareMathSymbol{2}\mathalpha{letters}{"32}
  \DeclareMathSymbol{3}\mathalpha{letters}{"33}
  \DeclareMathSymbol{4}\mathalpha{letters}{"34}
  \DeclareMathSymbol{5}\mathalpha{letters}{"35}
  \DeclareMathSymbol{6}\mathalpha{letters}{"36}
  \DeclareMathSymbol{7}\mathalpha{letters}{"37}
  \DeclareMathSymbol{8}\mathalpha{letters}{"38}
  \DeclareMathSymbol{9}\mathalpha{letters}{"39}
}
%    \end{macrocode}
%
% The option \Lopt{euler-hat-accent}:
%    \begin{macrocode}
\newif\ifevm@eha
\DeclareOption{euler-hat-accent}{\evm@ehatrue}
%    \end{macrocode}
%
%  The text encoding for the `operators' font:
%    \begin{macrocode}
\edef\operator@encoding{\encodingdefault}
\DeclareOption{OT1}{\def\operator@encoding{OT1}}
\DeclareOption{T1}{\def\operator@encoding{T1}}
\DeclareOption{LY1}{\def\operator@encoding{LY1}}
%    \end{macrocode}
%
% The \Lopt{icomma} option is provided only for compatibility 
% with previous versions.
%    \begin{macrocode}
\newif\ifevm@ic
\DeclareOption{icomma}{\evm@ictrue}
%    \end{macrocode}
%
%
% \subsection{Math font setup}
%
%    \begin{macrocode}
\DeclareSymbolFont{letters}       {U}{zeur}{m}{n}
\SetSymbolFont{letters}{bold}     {U}{zeur}{b}{n}
\DeclareSymbolFont{symbols}       {U}{zeus}{m}{n}
\SetSymbolFont{symbols}{bold}     {U}{zeus}{b}{n}
\DeclareSymbolFont{largesymbols}  {U}{zeuex}{m}{n}
\DeclareMathAlphabet{\mathbold}   {U}{zeur}{b}{n}
%    \end{macrocode}
% The `operators' font will be redefined after processing
% of the options.
%
%
% \subsection{The `letters' math font}
%
% The uppercase Greek letters are to be taken from Euler Roman now:
%    \begin{macrocode}
\DeclareMathSymbol\Gamma    {\mathalpha}{letters}{"00}
\DeclareMathSymbol\Delta    {\mathalpha}{letters}{"01}
\DeclareMathSymbol\Theta    {\mathalpha}{letters}{"02}
\DeclareMathSymbol\Lambda   {\mathalpha}{letters}{"03}
\DeclareMathSymbol\Xi       {\mathalpha}{letters}{"04}
\DeclareMathSymbol\Pi       {\mathalpha}{letters}{"05}
\DeclareMathSymbol\Sigma    {\mathalpha}{letters}{"06}
\DeclareMathSymbol\Upsilon  {\mathalpha}{letters}{"07}
\DeclareMathSymbol\Phi      {\mathalpha}{letters}{"08}
\DeclareMathSymbol\Psi      {\mathalpha}{letters}{"09}
\DeclareMathSymbol\Omega    {\mathalpha}{letters}{"0A}
%    \end{macrocode}
% Lowercase grek letters are made |\mathalpha|, too, because
% we want the |\mathbold| command to act on them:
%    \begin{macrocode}
\DeclareMathSymbol{\alpha}  {\mathalpha}{letters}{"0B}
\DeclareMathSymbol{\beta}   {\mathalpha}{letters}{"0C}
\DeclareMathSymbol{\gamma}  {\mathalpha}{letters}{"0D}
\DeclareMathSymbol{\delta}  {\mathalpha}{letters}{"0E}
\DeclareMathSymbol{\epsilon}{\mathalpha}{letters}{"0F}
\DeclareMathSymbol{\zeta}   {\mathalpha}{letters}{"10}
\DeclareMathSymbol{\eta}    {\mathalpha}{letters}{"11}
\DeclareMathSymbol{\theta}  {\mathalpha}{letters}{"12}
\DeclareMathSymbol{\iota}   {\mathalpha}{letters}{"13}
\DeclareMathSymbol{\kappa}  {\mathalpha}{letters}{"14}
\DeclareMathSymbol{\lambda} {\mathalpha}{letters}{"15}
\DeclareMathSymbol{\mu}     {\mathalpha}{letters}{"16}
\DeclareMathSymbol{\nu}     {\mathalpha}{letters}{"17}
\DeclareMathSymbol{\xi}     {\mathalpha}{letters}{"18}
\DeclareMathSymbol{\pi}     {\mathalpha}{letters}{"19}
\DeclareMathSymbol{\rho}    {\mathalpha}{letters}{"1A}
\DeclareMathSymbol{\sigma}  {\mathalpha}{letters}{"1B}
\DeclareMathSymbol{\tau}    {\mathalpha}{letters}{"1C}
\DeclareMathSymbol{\upsilon}{\mathalpha}{letters}{"1D}
\DeclareMathSymbol{\phi}    {\mathalpha}{letters}{"1E}
\DeclareMathSymbol{\chi}    {\mathalpha}{letters}{"1F}
\DeclareMathSymbol{\psi}    {\mathalpha}{letters}{"20}
\DeclareMathSymbol{\omega}  {\mathalpha}{letters}{"21}
\DeclareMathSymbol{\varepsilon}{\mathalpha}{letters}{"22}
\DeclareMathSymbol{\vartheta}{\mathalpha}{letters}{"23}
\DeclareMathSymbol{\varpi}  {\mathalpha}{letters}{"24}
\DeclareMathSymbol{\varphi} {\mathalpha}{letters}{"27}
%    \end{macrocode}
% Euler doesn't have the special variants of |\sigma| and |\rho|:
%    \begin{macrocode}
\let\varsigma=\sigma
\let\varrho=\rho
%    \end{macrocode}
% Euler-VM has its own |\hslash|; we use it as |\hbar|, too.
%    \begin{macrocode}
\DeclareMathSymbol{\hslash}{\mathord}{letters}{128}
\let\hbar\hslash
\let\evm@hslash\hslash
%    \end{macrocode}
% The slash used to come from `operators':
%    \begin{macrocode}
\DeclareMathDelimiter{/}{\mathord}{letters}{61}{largesymbols}{"0E}
%    \end{macrocode}
%
%
% \subsection{The `symbols' math font}
% The following characters are usually taken from the `operators'
% font; now they come from `symbols' or letters:
%    \begin{macrocode}
\DeclareMathSymbol{+}\mathbin  {symbols}{171}
\DeclareMathSymbol{:}\mathrel  {symbols}{186}
\DeclareMathSymbol{=}\mathrel  {symbols}{189}
%    \end{macrocode}
%    \begin{macrocode}
\DeclareMathDelimiter{(}{\mathopen} {symbols}{168}{largesymbols}{"00}
\DeclareMathDelimiter{)}{\mathclose}{symbols}{169}{largesymbols}{"01}
\DeclareMathDelimiter{[}{\mathopen} {symbols}{219}{largesymbols}{"02}
\DeclareMathDelimiter{]}{\mathclose}{symbols}{221}{largesymbols}{"03}
%    \end{macrocode}
%
% The font family \texttt{zeus} provides a semicolon in slot~187,
% an exclamation mark in slot~161, and a question mark in slot~191, too;
% for the time being these are unused.
%
%
% \subsection{Extensible arrows}
%
% The long arrows are made using the macros |\Relbar| (for double
% arrows) and |\relbar| (for single arrows).  The standard \LaTeX\
% definitions of these macros use the `\texttt{=}' and `\texttt{-}'
% characters to produce the extension part of the long arrows.  
% These characters come, however, from Euler Fraktur now.  Thus we
% have to redefine the |\Relbar| and |\relbar| macros so as to use
% appropriately scaled characters from CM, which are 
% provided in our virtual `letters' font. 
%    \begin{macrocode}
\DeclareMathSymbol{\cm@minus}{\mathord}{letters}{129}
\def\relbar{\mathrel{\smash\cm@minus}}
\let\Relbar\undefined          
\DeclareMathSymbol{\Relbar}{\mathrel}{letters}{130}
%    \end{macrocode}
% Unfortunately, since the definitions of the `arrow-filling' macros
% (|\leftarrowfill| and |\rightarrowfill|) in standard \LaTeX\ still
% use explicit minus signs (instead of |\relbar|), we also have to
% redefine those macros:
%    \begin{macrocode}
\def\leftarrowfill
   {$\m@th\mathord\leftarrow\mkern-6mu%
     \cleaders\hbox{$\mkern-2mu\cm@minus\mkern-2mu$}\hfill
     \mkern-6mu\cm@minus$}
\def\rightarrowfill
   {$\m@th\cm@minus\mkern-6mu%
     \cleaders\hbox{$\mkern-2mu\cm@minus\mkern-2mu$}\hfill
     \mkern-6mu\mathord\rightarrow$}
%    \end{macrocode}
%
%
% \subsection{Miscellaneous}
% Our virtual `largesymbols' font comprises \texttt{euex10}, which
% provides also the $\infty$ symbol.
%    \begin{macrocode}
\DeclareMathSymbol{\infty}{\mathord}{largesymbols}{153}
%    \end{macrocode}
%
% Knuth wanted a little extra space before the prime superscript:
%    \begin{macrocode}
\begingroup
   \catcode`\'=\active
   \gdef'{^\bgroup\mskip2mu\prim@s}
\endgroup
%    \end{macrocode}
%
% |\vdots| and |\ddots| should take their ``dots'' from the math fonts.
% In fact this is something that should be corrected in base format
% of \LaTeX{} as well.
%    \begin{macrocode}
\def\vdots{%
\setbox0=\hbox{$\m@th.$}
\vbox{\baselineskip4pt \lineskiplimit\z@
    \kern6pt\copy0\copy0\box0}}
\def\ddots{%
\setbox0=\hbox{$\m@th.$}
\mathinner{\mkern1mu\raise7pt
    \vbox{\kern7pt\copy0}\mkern2mu
    \raise4pt\copy0\mkern2mu\raise\p@\box0\mkern1mu}}
%    \end{macrocode}
%
%
% \subsection{Options procesing}
% This must be done before the `operators' font is defined.
%    \begin{macrocode}
\ProcessOptions\relax
%    \end{macrocode}
% We still have to map the comma and the period to the text font,
% in case the \Lopt{euler-digits} option has \emph{not} been selected:
%    \begin{macrocode}
\ifevm@ed\relax\else
  \DeclareMathSymbol{,}{\mathpunct}{operators}{44}
  \DeclareMathSymbol{.}{\mathord}{operators}{46}
  \DeclareMathSymbol{\ldotp}{\mathpunct}{operators}{46}
\fi  
%    \end{macrocode}
%
%
% \subsection{Text fonts in math}\label{text-fonts}
%
% The text fonts used in math through math alphabets and the
% `operators' symbol font should be the same as the fonts used for the
% main text.  (It is now easy to replace the fonts for the `operators'
% symbol font, since the uppercase Greek letters are taken from
% the Euler Roman fonts.)
%
% In order to reduce the total number of fonts needed, we shall---if
% possible---use text fonts in the same encoding for both text and
% math.  We have already determined which encoding has been selected
% as the default encoding. 
%
% We redefine the `operators' symbol font and the math alphabets
% |\mathsf|, |\mathit| and |\mathtt|.  
% Due to the current implementation of math accents 
% which take their glyphs from text fonts, 
% all text fonts must be used in a common encoding.  
%    \begin{macrocode}
\DeclareSymbolFont{operators}{\operator@encoding}{\familydefault}{m}{n}
\SetSymbolFont{operators}{bold}{\operator@encoding}{\familydefault}{b}{n}
\SetSymbolFont{operators}{normal}{\operator@encoding}{\familydefault}{m}{n}
%    \end{macrocode}
%
%    \begin{macrocode}
% \DeclareSymbolFontAlphabet{\mathrm}              {operators}
% \DeclareSymbolFontAlphabet{\mathnormal}          {letters}
\DeclareMathAlphabet{\mathsf}  {\operator@encoding}{\sfdefault}{m}{n}
\DeclareMathAlphabet{\mathit}  {\operator@encoding}{\rmdefault}{m}{it}
\DeclareMathAlphabet{\mathtt}  {\operator@encoding}{\ttdefault}{m}{n}
\SetMathAlphabet{\mathsf}{bold}{\operator@encoding}{\sfdefault}{b}{n}
\SetMathAlphabet{\mathit}{bold}{\operator@encoding}{\rmdefault}{b}{it}
\SetMathAlphabet{\mathtt}{bold}{\operator@encoding}{\ttdefault}{b}{n}
\DeclareMathAlphabet\mathbf  \operator@encoding{\rmdefault}{b}{n}
%    \end{macrocode}
% Note that |\mathrm| and |\mathnormal| will automatically follow 
% the `operators' font.
%
% Before redefining the math accents with respect to the actual 
% encoding of the `operators' symbol font, they should be `undefined'.
% This is particularly required for compatibility with the \Lpack{amsmath}
% package.
%    \begin{macrocode}
\let\acute\undefined
\let\grave\undefined
\let\ddot\undefined
\let\tilde\undefined
\let\bar\undefined
\let\breve\undefined
\let\check\undefined
\let\hat\undefined
\let\dot\undefined
%    \end{macrocode}
%
%    \begin{macrocode}
\def\@tempa{T1}
\ifx\operator@encoding\@tempa
  \DeclareMathAccent{\acute}{\mathalpha}{operators}{1}
  \DeclareMathAccent{\grave}{\mathalpha}{operators}{0}
  \DeclareMathAccent{\ddot}{\mathalpha}{operators}{4}
  \DeclareMathAccent{\tilde}{\mathalpha}{operators}{3}
  \DeclareMathAccent{\bar}{\mathalpha}{operators}{9}
  \DeclareMathAccent{\breve}{\mathalpha}{operators}{8}
  \DeclareMathAccent{\check}{\mathalpha}{operators}{7}
  \DeclareMathAccent{\hat}{\mathalpha}{operators}{2}
  \DeclareMathAccent{\dot}{\mathalpha}{operators}{10}
%    \end{macrocode}
%
%    \begin{macrocode}
\else
\def\@tempa{OT1}
\ifx\operator@encoding\@tempa
  \DeclareMathAccent{\acute}{\mathalpha}{operators}{19}
  \DeclareMathAccent{\grave}{\mathalpha}{operators}{18}
  \DeclareMathAccent{\ddot}{\mathalpha}{operators}{127}
  \DeclareMathAccent{\tilde}{\mathalpha}{operators}{126}
  \DeclareMathAccent{\bar}{\mathalpha}{operators}{22}
  \DeclareMathAccent{\breve}{\mathalpha}{operators}{21}
  \DeclareMathAccent{\check}{\mathalpha}{operators}{20}
  \DeclareMathAccent{\hat}{\mathalpha}{operators}{94}
  \DeclareMathAccent{\dot}{\mathalpha}{operators}{95}
%    \end{macrocode}
%
%    \begin{macrocode}
\else
\def\@tempa{LY1}
\ifx\operator@encoding\@tempa
  \DeclareMathAccent{\acute}{\mathalpha}{operators}{19}
  \DeclareMathAccent{\grave}{\mathalpha}{operators}{18}
  \DeclareMathAccent{\ddot}{\mathalpha}{operators}{127}
  \DeclareMathAccent{\tilde}{\mathalpha}{operators}{126}
  \DeclareMathAccent{\bar}{\mathalpha}{operators}{22}
  \DeclareMathAccent{\breve}{\mathalpha}{operators}{21}
  \DeclareMathAccent{\check}{\mathalpha}{operators}{20}
  \DeclareMathAccent{\hat}{\mathalpha}{operators}{94}
  \DeclareMathAccent{\dot}{\mathalpha}{operators}{5}
%    \end{macrocode}
%
%    \begin{macrocode}
\else
  \PackageWarningNoLine{eulervm}
    {Unknown Operator Encoding!\MessageBreak
     Math accents may be wrong: assuming OT1 positions}
\fi\fi\fi
%    \end{macrocode}
% The \cmd{\hat} accent is normally taken from the `operators' symbol font.
% With the option \Lopt{euler-hat accent}, however, we take an alternative
% one from Euler Fraktur, which is provided in the `symbols' alphabet.
% The above definition must be overwritten then:
%    \begin{macrocode}
\ifevm@eha
  \DeclareMathAccent\hat\mathalpha{symbols}{222}
\fi
%    \end{macrocode}
%
% \subsection{An intelligent comma}
% \label{sec:icomma}
% An `intelligent' comma for use within decimal numbers,
% which was once posted by Donald Arseneau on the 
% \path{comp.text.tex} news group.    
% It does not work with arbitarily long numbers, so 
% it is no longer advertised, and I recommend to use the
% newer package \path{icomma.sty} instead.
%    \begin{macrocode}
\ifevm@ic
  \mathchardef\mathcomma\mathcode`\,
  \mathcode`\,="8000
  \catcode`,=\active
  \def,{\afterassignment\domathcomma\finalhyphendemerits=1}
  \def\domathcomma{\ifnum\finalhyphendemerits>1\mathord\fi
    \mathcomma
    \expandafter\@gobble\number\finalhyphendemerits}
  \catcode`\,=12
\fi
%    \end{macrocode}
%
% \subsection{Peaceful coexistence with the AMS packages}
%
% \Lpack{amsfonts} will overwrite our \cmd{\hslash} symbol, so we are going
% to restore it, if necessary:
%    \begin{macrocode}
\AtBeginDocument{
  \@ifpackageloaded{amsfonts}{\let\hslash\evm@hslash\let\hbar\evm@hslash}{}  
%    \end{macrocode}  
%
% When the \texttt{amsmath} package is also loaded, the
% multiple integral signs must be fixed wrt.\ the Euler extension font, 
% and we have to care for the meaning of the macros \cmd{\relbar} and 
% \cmd{\Relbar}:
%    \begin{macrocode}
  \@ifpackageloaded{amsmath}{%
     \def\intkern@{\mkern -4mu }%
     \def\relbar{\mathrel{\smash\cm@minus}}
     \let\Relbar\undefined          
     \DeclareMathSymbol{\Relbar}{\mathrel}{letters}{130}
  }%        
%    \end{macrocode}
% Scaling of the math extension font requires the following patches 
% (see the description of the \Lpack{exscale} package), unless \Lpack{amsmath}
% is also loaded:
%    \begin{macrocode}
  {%
    \newdimen\big@size
    \addto@hook\every@math@size{\setbox\z@\vbox{\hbox{$($}\kern\z@}%
       \global\big@size 1.2\ht\z@}
    \def\bBigg@#1#2{%
       {\hbox{$\left#2\vcenter to#1\big@size{}\right.\n@space$}}}
    \def\big{\bBigg@\@ne}
    \def\Big{\bBigg@{1.5}}
    \def\bigg{\bBigg@\tw@}
    \def\Bigg{\bBigg@{2.5}}
  }
}  
%    \end{macrocode}
%
% \subsection{Restoring normal font warnings}
%    \begin{macrocode}
\let\@font@info\evm@info
\let\@font@warning\evm@warning
%</package>
%    \end{macrocode}
%
% \section{The font definition files}
%
% \subsection{Common code for scaling}
%    \begin{macrocode}
%<uzeur|uzeus|uzeuex> \expandafter\ifx\csname zeu@Scale\endcsname\relax
%<uzeur|uzeus|uzeuex>  \let\zeu@@Scale\@empty
%<uzeur|uzeus|uzeuex> \else
%<uzeur|uzeus|uzeuex>  \edef\zeu@@Scale{s*[\csname zeu@Scale\endcsname]}%
%<uzeur|uzeus|uzeuex> \fi
%    \end{macrocode}
%
% \subsection{Euler Roman}
%    \begin{macrocode}
%<*uzeur>
\DeclareFontFamily{U}{zeur}{\skewchar \font =127}
\DeclareFontShape{U}{zeur}{m}{n}{
   <8-> \zeu@@Scale zeurm10
   <6-8> \zeu@@Scale zeurm7
   <-6> \zeu@@Scale zeurm5
}{}
\DeclareFontShape{U}{zeur}{b}{n}{
   <8-> \zeu@@Scale zeurb10
   <6-8> \zeu@@Scale zeurb7
   <-6> \zeu@@Scale zeurb5
}{}
\DeclareFontShape{U}{zeur}{bx}{n}{<->ssub * zeur/b/n}{}
%</uzeur>
%    \end{macrocode}
%
% \subsection{Euler Script}
%    \begin{macrocode}
%<*uzeus>
\DeclareFontFamily{U}{zeus}{\skewchar \font =176}
\DeclareFontShape{U}{zeus}{m}{n}{
   <8-> \zeu@@Scale zeusm10
   <6-8> \zeu@@Scale zeusm7
   <-6> \zeu@@Scale zeusm5
}{}
\DeclareFontShape{U}{zeus}{b}{n}{
   <8-> \zeu@@Scale zeusb10
   <6-8> \zeu@@Scale zeusb7
   <-6> \zeu@@Scale zeusb5
}{}
\DeclareFontShape{U}{zeus}{bx}{n}{<->ssub * zeus/b/n}{}
%</uzeus>
%    \end{macrocode}
%
% \subsection{Euler Extension}
%    \begin{macrocode}
%<*uzeuex>
\DeclareFontFamily{U}{zeuex}{}
\DeclareFontShape{U}{zeuex}{m}{n}{
   <-> \zeu@@Scale zeuex10
}{}
%</uzeuex>
%    \end{macrocode}
% 
% } % sloppy
%
% The next line of code prevents DocStrip from adding the
% character table to all modules:
%    \begin{macrocode}
\endinput
%    \end{macrocode}
% \Finale
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%