%% Dies ist "palateuler.sty" eine Abwandlung und Mischung der beiden Stile
%% palatino.sty und euler.sty mit Anregungen aus dem pslatex.sty zur
%% Verringerung der Höhe von Helvetica und der Breite von Courier
%% Erstellt von Peter Breitfeld 1999/06/21
%% Neue Version durch Verwendung des vorhandenen Pakets mathpple, so dass die
%% eigenen Definitionen für Math-fonts nicht erfolgen müssen.
%%
%% März 2001: Neue mathematische Fonts mathpazo werden nun statt mathpple
%% verwendet. Sie sind eine Verbesserung von mathpple.
%% Hat man keine mathpazo-Fonts installiert % (schade), dann kann 
%% man mathpazo im RequirePackage-Aufruf durch mathpple
%% ersetzen, muss dann allerdings auch den AtBeginDocument-Aufruf am Ende
%% dieser Datei kommentieren, da mathpple kein Euro-Zeichen kennt.
%% Es gibt die Optionen ppl und pplj. Mit ersterer Version wird einfach 
%% normales ppl+mathpazo verwendet, mit letzterer auch noch SC+OSF

\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{palateuler}[1999/06/21 Palatino + mathpazo math fonts]

\newif\ifVerwendeOSF
\newif\ifsfHelvetica
\newif\ifsfAvantGarde
\DeclareOption{pplj}{\VerwendeOSFtrue}
\DeclareOption{ppl}{\VerwendeOSFfalse}
\DeclareOption{helv}{\sfHelveticatrue}
\DeclareOption{Avant}{\sfAvantGardetrue}
\DeclareOption{noBBpl}{\PassOptionsToPackage{mathpazo}{noBBpl}}
\ExecuteOptions{ppl}
\ProcessOptions

\ifVerwendeOSF
  \RequirePackage[slantedGreek,osf,osfeqnnum]{mathpazo}
\else
  \RequirePackage[slantedGreek]{mathpazo}
\fi  

\ifsfHelvetica
  \renewcommand{\sfdefault}{phv}
\else
  \ifsfAvantGarde
     \renewcommand{\sfdefault}{pag}
  \else
     \renewcommand{\sfdefault}{pmy}  % default ist Myriad 
  \fi   
\fi

%% Fonts für Sans-Serif und Typewriter müssen in der Größe angepasst werden:
%% Myriad hat die richtige Größe

\renewcommand{\ttdefault}{cmtt}
%% T1cmtt leicht vergrößern (angepasst von t1cmtt.fd)
\providecommand{\EC@ttfamily}[5]{%
  \DeclareFontShape{#1}{#2}{#3}{#4}%
  {<5><6><7><8>#50800%
    <9><10><10.95><12><14.4><17.28><20.74><24.88>%
    <29.86><35.83>genb* [1.05] #5}{}}
\DeclareFontFamily{T1}{cmtt}{\hyphenchar \font\m@ne}
\EC@ttfamily{T1}{cmtt}{m}{n}{ectt}
\EC@ttfamily{T1}{cmtt}{m}{sl}{ecst}
\EC@ttfamily{T1}{cmtt}{m}{it}{ecit}
\EC@ttfamily{T1}{cmtt}{m}{sc}{ectc}
\DeclareFontShape{T1}{cmtt}{bx}{n}{<->ssub*cmtt/m/n}{}
\DeclareFontShape{T1}{cmtt}{bx}{it}{<->ssub*cmtt/m/it}{}

\ifsfHelvetica
  %%%% T1phv.fd (Helvetica verkleinern)
  \DeclareFontFamily{T1}{phv}{}
  \DeclareFontShape{T1}{phv}{b}{n}{  <-> s * [.9] phvb8t}{}
  \DeclareFontShape{T1}{phv}{b}{sc}{ <-> s * [.9] phvbc8t}{}
  \DeclareFontShape{T1}{phv}{b}{sl}{ <-> s * [.9] phvbo8t}{}
  \DeclareFontShape{T1}{phv}{bc}{n}{ <-> s * [.9] phvbrn8t}{}
  \DeclareFontShape{T1}{phv}{bc}{sc}{<-> s * [.9] phvbcn8t}{}
  \DeclareFontShape{T1}{phv}{bc}{sl}{<-> s * [.9] phvbon8t}{}
  \DeclareFontShape{T1}{phv}{m}{n}{  <-> s * [.9] phvr8t}{}
  \DeclareFontShape{T1}{phv}{m}{sc}{ <-> s * [.9] phvrc8t}{}
  \DeclareFontShape{T1}{phv}{m}{sl}{ <-> s * [.9] phvro8t}{}
  \DeclareFontShape{T1}{phv}{mc}{n}{ <-> s * [.9] phvrrn8t}{}
  \DeclareFontShape{T1}{phv}{mc}{sc}{<-> s * [.9] phvrcn8t}{}
  \DeclareFontShape{T1}{phv}{mc}{sl}{<-> s * [.9] phvron8t}{}
  \DeclareFontShape{T1}{phv}{bx}{n}{ <->ssub * phv/b/n}{}
  \DeclareFontShape{T1}{phv}{bx}{sc}{<->ssub * phv/b/sc}{}
  \DeclareFontShape{T1}{phv}{bx}{sl}{<->ssub * phv/b/sl}{}
  \DeclareFontShape{T1}{phv}{b}{it}{ <->ssub * phv/b/sl}{}
  \DeclareFontShape{T1}{phv}{bx}{it}{<->ssub * phv/b/it}{}
  \DeclareFontShape{T1}{phv}{bc}{it}{<->ssub * phv/bc/sl}{}
  \DeclareFontShape{T1}{phv}{m}{it}{ <->ssub * phv/m/sl}{}
  \DeclareFontShape{T1}{phv}{mc}{it}{<->ssub * phv/mc/sl}{}
\fi
\ifsfAvantGarde
  %%%%% T1pag (AvantGarde verkleinern)
  \DeclareFontFamily{T1}{pag}{}
  \DeclareFontShape{T1}{pag}{m}{n}{  <-> s * [.88] pagk8t}{}
  \DeclareFontShape{T1}{pag}{m}{sc}{ <-> s * [.88] pagkc8t}{}
  \DeclareFontShape{T1}{pag}{m}{sl}{ <-> s * [.88] pagko8t}{}
  \DeclareFontShape{T1}{pag}{db}{n}{ <-> s * [.88] pagd8t}{}
  \DeclareFontShape{T1}{pag}{db}{sc}{<-> s * [.98] pagdc8t}{}
  \DeclareFontShape{T1}{pag}{db}{sl}{<-> s * [.88] pagdo8t}{}
  \DeclareFontShape{T1}{pag}{m}{it}{<->ssub * pag/m/sl}{}
  \DeclareFontShape{T1}{pag}{b}{n}{<->ssub * pag/db/n}{}
  \DeclareFontShape{T1}{pag}{bx}{n}{<->ssub * pag/b/n}{}
  \DeclareFontShape{T1}{pag}{b}{sc}{<->ssub * pag/db/sc}{}
  \DeclareFontShape{T1}{pag}{bx}{sc}{<->ssub * pag/b/sc}{}
  \DeclareFontShape{T1}{pag}{b}{sl}{<->ssub * pag/db/sl}{}
  \DeclareFontShape{T1}{pag}{bx}{sl}{<->ssub * pag/b/sl}{}
  \DeclareFontShape{T1}{pag}{db}{it}{<->ssub * pag/db/sl}{}
  \DeclareFontShape{T1}{pag}{b}{it}{<->ssub * pag/db/it}{}
  \DeclareFontShape{T1}{pag}{bx}{it}{<->ssub * pag/b/it}{}
\fi
\endinput % Rest nur noch zur Zierde

\normalfont
% Euro-Symbol marvosym, nicht aus mathpazo, dann kommentieren:
%\AtBeginDocument{\@ifpackageloaded{marvosym}{\renewcommand{\EUR}{\ppleuro}}{}}
\endinput