% mathpple.sty
% Copyright 1998--1999 Walter Schmidt

% This program can redistributed and/or modified under the terms
% of the LaTeX Project Public License Distributed from CTAN
% archives in directory macros/latex/base/lppl.txt; either
% version 1 of the License, or (at your option) any later version.

\ProvidesPackage{mathpple}
  [1999/04/19 v1.1 Palatino + math package (WaS)]
  
% Suppress info about math fonts being redefined:
%
\let\mpe@info\@font@info
\let\@font@info\@gobble

% Make Palatino the default roman font:
%
\renewcommand{\rmdefault}{ppl}

% Typeset mathematics using the mathpple fonts:
%
\DeclareSymbolFont{operators}   {OT1}{zpple}{m}{n}
\DeclareSymbolFont{letters}     {OML}{zpple}{m}{it}
\DeclareSymbolFont{symbols}     {OMS}{zpple}{m}{n}
\DeclareSymbolFont{largesymbols}{OMX}{zpple}{m}{n}
\DeclareMathAlphabet{\mathbf}   {OT1}{zpple}{b}{n}
\DeclareMathAlphabet{\mathit}   {OT1}{ppl}{m}{it}

% partial support for bold mathversion:
%
\SetSymbolFont{operators}{bold}{OT1}{zpple}{b}{n}
\SetSymbolFont{letters}{bold}{OML}{zpple}{b}{it}
\SetSymbolFont{symbols}{bold}{OMS}{zpple}{b}{n}
\SetSymbolFont{largesymbols}{bold}{OMX}{zpple}{m}{n}
\SetMathAlphabet\mathit{bold}{OT1}{ppl}{b}{it}

% Reduce the space around math operators
%
%\thinmuskip=2.5mu
\medmuskip=3.5mu plus 1mu minus 1mu
%\thickmuskip=4.5mu plus 1.5mu minus 1mu

% Compensate for increased letter spacing
%
\def\joinrel{\mathrel{\mkern-3.45mu}}

% Make \hbar work with Palatino:
%
\renewcommand{\hbar}{{\mathchar'26\mkern-7muh}}

% Define a new math alphabet for bold italic variables:
%
\DeclareMathAlphabet{\mathbold}{OML}{zpple}{b}{it}

% Make \mathbold act on lowercase greek, too:
%
\DeclareMathSymbol{\alpha}{\mathalpha}{letters}{11}
\DeclareMathSymbol{\beta}{\mathalpha}{letters}{12}
\DeclareMathSymbol{\gamma}{\mathalpha}{letters}{13}
\DeclareMathSymbol{\delta}{\mathalpha}{letters}{14}
\DeclareMathSymbol{\epsilon}{\mathalpha}{letters}{15}
\DeclareMathSymbol{\zeta}{\mathalpha}{letters}{16}
\DeclareMathSymbol{\eta}{\mathalpha}{letters}{17}
\DeclareMathSymbol{\theta}{\mathalpha}{letters}{18}
\DeclareMathSymbol{\iota}{\mathalpha}{letters}{19}
\DeclareMathSymbol{\kappa}{\mathalpha}{letters}{20}
\DeclareMathSymbol{\lambda}{\mathalpha}{letters}{21}
\DeclareMathSymbol{\mu}{\mathalpha}{letters}{22}
\DeclareMathSymbol{\nu}{\mathalpha}{letters}{23}
\DeclareMathSymbol{\xi}{\mathalpha}{letters}{24}
\DeclareMathSymbol{\pi}{\mathalpha}{letters}{25}
\DeclareMathSymbol{\rho}{\mathalpha}{letters}{26}
\DeclareMathSymbol{\sigma}{\mathalpha}{letters}{27}
\DeclareMathSymbol{\tau}{\mathalpha}{letters}{28}
\DeclareMathSymbol{\upsilon}{\mathalpha}{letters}{29}
\DeclareMathSymbol{\phi}{\mathalpha}{letters}{30}
\DeclareMathSymbol{\chi}{\mathalpha}{letters}{31}
\DeclareMathSymbol{\psi}{\mathalpha}{letters}{32}
\DeclareMathSymbol{\omega}{\mathalpha}{letters}{33}
\DeclareMathSymbol{\varepsilon}{\mathalpha}{letters}{34}
\DeclareMathSymbol{\vartheta}{\mathalpha}{letters}{35}
\DeclareMathSymbol{\varpi}{\mathalpha}{letters}{36}
\DeclareMathSymbol{\varphi}{\mathalpha}{letters}{39}
\let\varrho\rho
\let\varsigma\sigma

% Make \big & friends work with scaled math extension font:
%
\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}}

% Option: Use slanted greek capitals:
%
\DeclareOption{slantedGreek}{%
  \DeclareMathSymbol{\Gamma}{\mathalpha}{letters}{0}
  \DeclareMathSymbol{\Delta}{\mathalpha}{letters}{1}
  \DeclareMathSymbol{\Theta}{\mathalpha}{letters}{2}
  \DeclareMathSymbol{\Lambda}{\mathalpha}{letters}{3}
  \DeclareMathSymbol{\Xi}{\mathalpha}{letters}{4}
  \DeclareMathSymbol{\Pi}{\mathalpha}{letters}{5}
  \DeclareMathSymbol{\Sigma}{\mathalpha}{letters}{6}
  \DeclareMathSymbol{\Upsilon}{\mathalpha}{letters}{7}
  \DeclareMathSymbol{\Phi}{\mathalpha}{letters}{8}
  \DeclareMathSymbol{\Psi}{\mathalpha}{letters}{9}
  \DeclareMathSymbol{\Omega}{\mathalpha}{letters}{10}
}
\let\upOmega\Omega
\let\upDelta\Delta
\ProcessOptions\relax

% Prepare for AMS fonts:
%
\DeclareFontFamily{U}{msa}{}%
\DeclareFontShape{U}{msa}{m}{n}{<-> s * [1.042] msam10}{}%
\DeclareFontFamily{U}{msb}{}%
\DeclareFontShape{U}{msb}{m}{n}{<-> s * [1.042] msbm10}{}%
\DeclareFontFamily{U}{euf}{}%
\DeclareFontShape{U}{euf}{m}{n}{<-6>eufm5<6-8>eufm7<8->eufm10}{}%
\DeclareFontShape{U}{euf}{b}{n}{<-6>eufb5<6-8>eufb7<8->eufb10}{}%

% Don't let amsfonts.sty redefine \hbar
%
\let\mpe@hbar\hbar
\AtBeginDocument{\@ifpackageloaded{amsfonts}{\let\hbar\mpe@hbar}{}}

% Restore font info:
%
\let\@font@info\mpe@info

\endinput

% end of file `mathpple.sty'

