From e5de56e3d616c3077ee1e10243691d579b576d2f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 11 Jan 2006 23:52:59 +0000 Subject: trunk/Master/texmf-dist/source/latex/eulervm git-svn-id: svn://tug.org/texlive/trunk@263 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/source/latex/eulervm/eulervm.dtx | 890 +++++++++++++++++++++ Master/texmf-dist/source/latex/eulervm/eulervm.ins | 11 + 2 files changed, 901 insertions(+) create mode 100644 Master/texmf-dist/source/latex/eulervm/eulervm.dtx create mode 100644 Master/texmf-dist/source/latex/eulervm/eulervm.ins (limited to 'Master/texmf-dist/source/latex/eulervm') diff --git a/Master/texmf-dist/source/latex/eulervm/eulervm.dtx b/Master/texmf-dist/source/latex/eulervm/eulervm.dtx new file mode 100644 index 00000000000..b08b733f612 --- /dev/null +++ b/Master/texmf-dist/source/latex/eulervm/eulervm.dtx @@ -0,0 +1,890 @@ +% \CheckSum{635} +% \iffalse +% +% File `eulervm.dtx'. +% Copyright (c) 1999--2003 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.dtx} +% +% +%\ProvidesPackage{eulervm} +%\ProvidesFile{uzeur.fd}% +%\ProvidesFile{uzeus.fd}% +%\ProvidesFile{uzeuex.fd}% + [2004/01/17 v3.0a (WaS)] +% +%<*driver> +\documentclass[11pt]{ltxdoc} +\OnlyDescription +\usepackage{url,mflogo} +\begin{document} + \DocInput{eulervm.dtx} +\end{document} +% +% \fi +% +% \GetFileInfo{eulervm.dtx} +% \renewcommand{\labelitemi}{$\triangleright$} +% \newcommand\Lopt[1]{\textsf{#1}} +% \let\Lpack\Lopt +% \title{The Euler Virtual Math Fonts for use with \LaTeX} +% \author{Walter Schmidt\thanks{\texttt{w.a.schmidt@gmx.net}}} +% \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 +% +% \sloppy +% +% \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 +% by means of 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. +% The missing symbols are taken from Computer Modern, and the encoding +% follows CM-Math as closely as possible. +% 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 made 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} +% using 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} +% 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 other typefaces such as Sabon or Minion, that differ not +% too much from Euler as far as the weight (stroke width) and x-height +% are concerned. +% +% 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 AMS symbols and Euler Fraktur fonts, +% which can be used by means of the \Lpack{amssymb} and \Lpack{eufrak} packages; +% any further math fonts used in your document are, however, +% unaffected. +% +% +% \subsubsection{Slashed \textit{h}} +% In contrast to `normal' \LaTeX, a \cmd{\hslash} symbol ($h$ with diagonal slash) +% is provided, but there is no \cmd{\hbar}. +% +% +% \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 behavior 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} +% The 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. +% +% +% \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 are accessible via \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 dot-generating macros such as \cmd{\dots}, \cmd{vdots} etc.\ take +% their dots from different fonts. This results partially from a design flaw +% in \LaTeX, which can be fixed by loading of the package \Lpack{mathdots}; +% yet, the macros \cmd{\cdot} and \cmd{\cdots} will always produce dots from the +% Computer Modern Symbols font, which may not perfectly match the other dot +% symbols used. +% \end{itemize} +% +% +% \section{Credits} +% Frank 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 and +% Frank Mittelbach for \TeX{}nical 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.} +% (Part of the \LaTeX{} online documentation.) +% \bibitem{euler} +% Frank Jensen: +% \textit{The \Lpack{euler} package, v2.5}. +% Mar.\ 1995. +% (CTAN: \path{macros/latex/contrib/euler/}) +% \bibitem{lucidabr} +% Frank Mittelbach: +% \textit{The \Lpack{lucidabr} package, v4.10}. +% Jan.\ 1998. +% (CTAN: \path{macros/latex/contrib/psnfssx/lucidabr/}) +% \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}} +% \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} +% We redefine the `letters', `symbols' and `largesymbols' +% alphabets. +% The `operators' font will be redefined only after processing +% of the options. +% \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} +% +% +% \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 Greek 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} +% +% {\sloppy +% When the upper-case Greek letters are of type |\mathalpha| +% and do \emph{not} come from the operators font, |\mathrm{\Omega}| +% yields garbage. +% This is likely to happen in conjunction with the packages +% \Lpack{gensymb} and \Lpack{units}. As a countermeasure, we provide +% a macro |\upOmega| with type |\mathord|. The \Lpack{gensymb} package will +% automatically use this macro, rather than |\Omega|. This is the only way +% to make |\unit{\ohm}| work as expected. +% For the sake of full compatibility with other packages, a corresponding +% |\upDelta| is made available, too. +% } +% \begin{macrocode} +\DeclareMathSymbol\upOmega {\mathord}{letters}{"0A} +\DeclareMathSymbol\upDelta {\mathord}{letters}{"01} +% \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|, but there is no |\hbar|: +% \begin{macrocode} +\DeclareMathSymbol{\evm@hslash}{\mathord}{letters}{128} +\def\evm@hbar{\evm@hslash% + \PackageWarning{eulervm}{% + Symbol \protect\hbar\space not available;\MessageBreak + \protect\hslash\space will be used instead}} +% \end{macrocode} +% The actual macros \cmd{\hbar} and \cmd{\hslash} will be defined +% after the preamble. +% +% 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': +% \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} +% +% +% \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 particular math alphabets and in 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 required for compatibility with older versions of 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{Using extra AMS fonts} +% Euler Fraktur and the AMS symbol fonts should be used with the same design sizes +% as the Euler-VM fonts, and should honor the \Lopt{small} option. +% We defer the font definitions until |\AtBeginDocument|, to ensure +% against loading of \Lpack{eufrak} or \Lpack{ammssymb} with the \Lopt{psamsfonts} option. +% \begin{macrocode} +\AtBeginDocument{% + \begingroup + \nfss@catcodes + \expandafter\ifx\csname zeu@Scale\endcsname\relax + \let\zeu@@Scale\@empty + \else + \edef\zeu@@Scale{s*[\csname zeu@Scale\endcsname]}% + \fi + \DeclareFontFamily{U}{euf}{} + \DeclareFontShape{U}{euf}{m}{n}{% + <-6>\zeu@@Scale eufm5% + <6-9>\zeu@@Scale eufm7% + <9->\zeu@@Scale eufm10% + }{} + \DeclareFontShape{U}{euf}{b}{n}{% + <-6>\zeu@@Scale eufb5% + <6-9>\zeu@@Scale eufb7% + <9->\zeu@@Scale eufb10% + }{} + \DeclareFontFamily{U}{msa}{}% + \DeclareFontShape{U}{msa}{m}{n}{% + <-6>\zeu@@Scale msam5% + <6-9>\zeu@@Scale msam7% + <9->\zeu@@Scale msam10% + }{}% + \DeclareFontFamily{U}{msb}{}% + \DeclareFontShape{U}{msb}{m}{n}{% + <-6>\zeu@@Scale msbm5% + <6-9>\zeu@@Scale msbm7% + <9->\zeu@@Scale msbm10% + }{}% + \endgroup +} + +% \end{macrocode} +% \subsection{Peaceful coexistence with the AMS packages} +% +% We define \cmd{\hslash} and \cmd{\hbar} after the premable only, +% in order to protect them from being overwritten by \Lpack{amsfonts}: +% \begin{macrocode} +\AtBeginDocument{ + \let\hslash\evm@hslash\let\hbar\evm@hbar +% \end{macrocode} +% When the \texttt{amsmath} package is loaded, the +% multiple integral signs must be fixed wrt.\ the Euler extension font, +% and we have to take care 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 +% +% \end{macrocode} +% +% \section{The font definition files} +% +% \subsection{Common code for scaling} +% \begin{macrocode} +% \expandafter\ifx\csname zeu@Scale\endcsname\relax +% \let\zeu@@Scale\@empty +% \else +% \edef\zeu@@Scale{s*[\csname zeu@Scale\endcsname]}% +% \fi +% \end{macrocode} +% +% \subsection{Euler Roman} +% \begin{macrocode} +%<*uzeur> +\DeclareFontFamily{U}{zeur}{\skewchar \font =127} +\DeclareFontShape{U}{zeur}{m}{n}{ + <9-> \zeu@@Scale zeurm10 + <6-9> \zeu@@Scale zeurm7 + <-6> \zeu@@Scale zeurm5 +}{} +\DeclareFontShape{U}{zeur}{b}{n}{ + <9-> \zeu@@Scale zeurb10 + <6-9> \zeu@@Scale zeurb7 + <-6> \zeu@@Scale zeurb5 +}{} +\DeclareFontShape{U}{zeur}{bx}{n}{<->ssub * zeur/b/n}{} +% +% \end{macrocode} +% +% \subsection{Euler Script} +% \begin{macrocode} +%<*uzeus> +\DeclareFontFamily{U}{zeus}{\skewchar \font =176} +\DeclareFontShape{U}{zeus}{m}{n}{ + <9-> \zeu@@Scale zeusm10 + <6-9> \zeu@@Scale zeusm7 + <-6> \zeu@@Scale zeusm5 +}{} +\DeclareFontShape{U}{zeus}{b}{n}{ + <9-> \zeu@@Scale zeusb10 + <6-9> \zeu@@Scale zeusb7 + <-6> \zeu@@Scale zeusb5 +}{} +\DeclareFontShape{U}{zeus}{bx}{n}{<->ssub * zeus/b/n}{} +% +% \end{macrocode} +% +% \subsection{Euler Extension} +% \begin{macrocode} +%<*uzeuex> +\DeclareFontFamily{U}{zeuex}{} +\DeclareFontShape{U}{zeuex}{m}{n}{ + <-> \zeu@@Scale zeuex10 +}{} +% +% \end{macrocode} +% +% } +% +% \Finale +% +% \iffalse +% The next line of code prevents DocStrip from adding the +% character table to all modules: +\endinput +% \fi +% +%% \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 \~} +%% diff --git a/Master/texmf-dist/source/latex/eulervm/eulervm.ins b/Master/texmf-dist/source/latex/eulervm/eulervm.ins new file mode 100644 index 00000000000..eb0c92ef6fb --- /dev/null +++ b/Master/texmf-dist/source/latex/eulervm/eulervm.ins @@ -0,0 +1,11 @@ +% file eulervm.ins +\input docstrip +\usedir{tex/latex/eulervm} + +\generate{\file{eulervm.sty}{\from{eulervm.dtx}{package}} + \file{uzeur.fd}{\from{eulervm.dtx}{uzeur}} + \file{uzeus.fd}{\from{eulervm.dtx}{uzeus}} + \file{uzeuex.fd}{\from{eulervm.dtx}{uzeuex}}} + +\endbatchfile + -- cgit v1.2.3