<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%%
\def\fileversion{1.0}
\def\filedate{93/01/18}
%%
%% COPYRIGHT 1993 Martin Ward, Martin.Ward@durham.ac.uk
%%
%% DESCRIPTION:
%%   Set text in pandora and maths in euler fonts where possible.
%%   Uses the new font selection scheme.
%%
%% INSTALLATION:
%%   Put this file where your TeX looks for inputs, under the name
%%   pandora.sty.
%%
%% DOCUMENTATION:
%%   Include pandora as a LaTeX style option. Most text will be set in
%%   the pandora fonts (apart from caps/small caps, bold extended
%%   slanted/italic and semibold condensed, which will appear in Computer
%%   Modern).
%%   Requires the new font selection scheme.
%%
%% COPYING:
%%   This program is free software; you can redistribute it and/or modify
%%   it under the terms of the GNU General Public License as published by
%%   the Free Software Foundation; either version 2 of the License, or
%%   (at your option) any later version.
%%  
%%   This program is distributed in the hope that it will be useful,
%%   but WITHOUT ANY WARRANTY; without even the implied warranty of
%%   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%%   GNU General Public License for more details.
%%  
%%   You should have received a copy of the GNU General Public License
%%   along with this program; if not, write to the Free Software
%%   Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
%%
%% CODE:
\@ifundefined{selectfont}
     {\@latexerr{`pandora' style option could only be used
		  with the new font selection scheme}\@eha
      \endinput}{}

\input{amsfonts.sty}

%% Please don't change the next lines unless you know exactly what you
%% are doing.
%%
%\def\default@shape{n}
%\def\default@series{m}
%\def\default@family{cmr}
\def\default@family{pnr}
%\def\default@errfont{cmsy10}
%%
%% Again, this is doubly dangerous bent.
%%
\fontfamily\default@family
\fontseries\default@series
\fontshape\default@shape



\new@fontshape{pnr}{m}{n}{%
      &lt;5&gt;pnr10 at4.82pt%
      &lt;6&gt;pnr10 at5.79pt%
      &lt;7&gt;pnr10 at6.94pt%
      &lt;8&gt;pnr10 at8.33pt%
      &lt;9&gt;pnr10 at9.13pt%
      &lt;10&gt;pnr10%
      &lt;11&gt;pnr10 at10.95pt%
      &lt;12&gt;pnr10 at12pt%
      &lt;14&gt;pnr10 at14.4pt%
      &lt;17&gt;pnr10 at17.28pt%
      &lt;20&gt;pnr10 at20.74pt%
      &lt;25&gt;pnr10 at24.88pt}{}
\extra@def{pnr}{}{}
\new@fontshape{pnr}{m}{sl}{%
      &lt;5&gt;pnsl10 at4.82pt%
      &lt;6&gt;pnsl10 at5.79pt%
      &lt;7&gt;pnsl10 at6.94pt%
      &lt;8&gt;pnsl10 at8.33pt%
      &lt;9&gt;pnsl10 at9.13pt%
      &lt;10&gt;pnsl10%
      &lt;11&gt;pnsl10 at10.95pt%
      &lt;12&gt;pnsl10 at12pt%
      &lt;14&gt;pnsl10 at14.4pt%
      &lt;17&gt;pnsl10 at17.28pt%
      &lt;20&gt;pnsl10 at20.74pt%
      &lt;25&gt;pnsl10 at24.88pt}{}

\subst@fontshape{pnr}{m}{it}{pnr}{m}{sl}

% \new@fontshape{pnr}{m}{it}{%
%       &lt;5&gt;pnsl10 at4.82pt%
%       &lt;6&gt;pnsl10 at5.79pt%
%       &lt;7&gt;pnsl10 at6.94pt%
%       &lt;8&gt;pnsl10 at8.33pt%
%       &lt;9&gt;pnsl10 at9.13pt%
%       &lt;10&gt;pnsl10%
%       &lt;11&gt;pnsl10 at10.95pt%
%       &lt;12&gt;pnsl10 at12pt%
%       &lt;14&gt;pnsl10 at14.4pt%
%       &lt;17&gt;pnsl10 at17.28pt%
%       &lt;20&gt;pnsl10 at20.74pt%
%       &lt;25&gt;pnsl10 at24.88pt}{}

% Hmmm... can't find a Pandora small caps, use cmsc for now:
\subst@fontshape{pnr}{m}{sc}{cmr}{m}{sc}

% \new@fontshape{pnr}{m}{sc}{%
%       &lt;5&gt;cmsl10 at4.82pt%
%       &lt;6&gt;cmsl10 at5.79pt%
%       &lt;7&gt;cmsl10 at6.94pt%
%       &lt;8&gt;cmsl10 at8.33pt%
%       &lt;9&gt;cmsl10 at9.13pt%
%       &lt;10&gt;cmsl10%
%       &lt;11&gt;cmsl10 at10.95pt%
%       &lt;12&gt;cmsl10 at12pt%
%       &lt;14&gt;cmsl10 at14.4pt%
%       &lt;17&gt;cmsl10 at17.28pt%
%       &lt;20&gt;cmsl10 at20.74pt%
%       &lt;25&gt;cmsl10 at24.88pt}{}

\new@fontshape{pnr}{b}{n}{%
      &lt;5&gt;pnb10 at4.82pt%
      &lt;6&gt;pnb10 at5.79pt%
      &lt;7&gt;pnb10 at6.94pt%
      &lt;8&gt;pnb10 at8.33pt%
      &lt;9&gt;pnb10 at9.13pt%
      &lt;10&gt;pnb10%
      &lt;11&gt;pnb10 at10.95pt%
      &lt;12&gt;pnb10 at12pt%
      &lt;14&gt;pnb10 at14.4pt%
      &lt;17&gt;pnb10 at17.28pt%
      &lt;20&gt;pnb10 at20.74pt%
      &lt;25&gt;pnb10 at24.88pt}{}

%%%%%%%%% bold extended series
\subst@fontshape{pnr}{bx}{n}{pnr}{b}{n}
\subst@fontshape{pnr}{bx}{sl}{cmr}{bx}{sl}
\subst@fontshape{pnr}{bx}{it}{cmr}{bx}{sl}


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%%  Sans serif font shapes
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\new@fontshape{pnss}{m}{n}{%
      &lt;5&gt;pnss10 at4.82pt%
      &lt;6&gt;pnss10 at5.79pt%
      &lt;7&gt;pnss10 at6.94pt%
      &lt;8&gt;pnss10 at8.33pt%
      &lt;9&gt;pnss10 at9.13pt%
      &lt;10&gt;pnss10%
      &lt;11&gt;pnss10 at10.95pt%
      &lt;12&gt;pnss10 at12pt%
      &lt;14&gt;pnss10 at14.4pt%
      &lt;17&gt;pnss10 at17.28pt%
      &lt;20&gt;pnss10 at20.74pt%
      &lt;25&gt;pnss10 at24.88pt}{}

\subst@fontshape{pnss}{m}{it}{pnss}{m}{sl}

\new@fontshape{pnss}{m}{sl}{%
      &lt;5&gt;pnssi10 at4.82pt%
      &lt;6&gt;pnssi10 at5.79pt%
      &lt;7&gt;pnssi10 at6.94pt%
      &lt;8&gt;pnssi10 at8.33pt%
      &lt;9&gt;pnssi10 at9.13pt%
      &lt;10&gt;pnssi10%
      &lt;11&gt;pnssi10 at10.95pt%
      &lt;12&gt;pnssi10 at12pt%
      &lt;14&gt;pnssi10 at14.4pt%
      &lt;17&gt;pnssi10 at17.28pt%
      &lt;20&gt;pnssi10 at20.74pt%
      &lt;25&gt;pnssi10 at24.88pt}{}


%%%%%%% Font/shape undefined, therefore substituted

\subst@fontshape{pnss}{m}{sc}{cmr}{m}{sc}

%%%%%%%% semibold condensed series
\subst@fontshape{pnss}{sbc}{n}{cmr}{sbc}{n}

%%%%%%%%% bold extended series

\new@fontshape{pnss}{bx}{n}{%
      &lt;5&gt;pnssb10 at4.82pt%
      &lt;6&gt;pnssb10 at5.79pt%
      &lt;7&gt;pnssb10 at6.94pt%
      &lt;8&gt;pnssb10 at8.33pt%
      &lt;9&gt;pnssb10 at9.13pt%
      &lt;10&gt;pnssb10%
      &lt;11&gt;pnssb10 at10.95pt%
      &lt;12&gt;pnssb10 at12pt%
      &lt;14&gt;pnssb10 at14.4pt%
      &lt;17&gt;pnssb10 at17.28pt%
      &lt;20&gt;pnssb10 at20.74pt%
      &lt;25&gt;pnssb10 at24.88pt}{}


\extra@def{pnss}{}{}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%%  Typewriter font shapes
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\new@fontshape{pntt}{m}{n}{%
      &lt;5&gt;pntt9 at4.82pt%
      &lt;6&gt;pntt9 at5.79pt%
      &lt;7&gt;pntt9 at6.94pt%
      &lt;8&gt;pntt9 at8.33pt%
      &lt;9&gt;pntt9%
      &lt;10&gt;pntt9 at 10pt%
      &lt;11&gt;pntt9 at10.95pt%
      &lt;12&gt;pntt9 at12pt%
      &lt;14&gt;pntt9 at14.4pt%
      &lt;17&gt;pntt9 at17.28pt%
      &lt;20&gt;pntt9 at20.74pt%
      &lt;25&gt;pntt9 at24.88pt}{}


\subst@fontshape{pntt}{m}{it}{cmtt}{m}{it}

\subst@fontshape{pntt}{m}{sl}{cmtt}{m}{sl}

\subst@fontshape{pntt}{m}{sc}{cmtt}{m}{sc}


% From the Euler fonts designed by Hermann Zapf we need the families
% `euler cursive'. (Others will follow in the finial version of this
% option.) 
\new@fontshape{eur}{m}{n}{%
   &lt;5&gt;eurm5%
   &lt;6&gt;eurm6%
   &lt;7&gt;eurm7%
   &lt;8&gt;eurm8%
   &lt;9&gt;eurm9%
   &lt;10&gt;eurm10%
   &lt;11&gt;eurm10 at10.95pt%
   &lt;12&gt;eurm10 at12pt%
   &lt;14&gt;eurm10 at14.4pt%
   &lt;17&gt;eurm10 at17.28pt%
   &lt;20&gt;eurm10 at20.74pt%
   &lt;25&gt;eurm10 at24.88pt}{}
% We will have to set a \verb+\skewchar+ but I don't know the right
% value. 
\extra@def{eur}{\skewchar#1'177}{}
%
% Don Knuth re-designed some of the math extension symbols to blend
% better with the euler fonts. So we have a font called `Euler
% compatible extension font'  available in 7 to 10pt. 
\new@fontshape{euex}{m}{n}{%
   &lt;5&gt;1euex7%
   &lt;6&gt;1euex7%
   &lt;7&gt;euex7%
   &lt;8&gt;euex8%
   &lt;9&gt;euex9%
   &lt;10&gt;euex10%
   &lt;11&gt;1euex10%
   &lt;12&gt;1euex10%
   &lt;14&gt;1euex10%
   &lt;17&gt;1euex10%
   &lt;20&gt;1euex10%
   &lt;25&gt;1euex10}{}
%
\extra@def{euex}{}{}

\new@mathversion\mv@euler
%    Now we define the basic {\em math groups\/} for the new version,
%    i.e.\ the groups 0 to 3.
\define@mathgroup\mv@euler{0}
		 {pnr}{m}{n}
\define@mathgroup\mv@euler{1}
		 {eur}{m}{n}
\define@mathgroup\mv@euler{2}
		 {cmsy}{m}{n}

%    We also add a special math group to the euler version which
%    contains the redesigned math symbols. Since we don't assume that
%    this version has to live in coexistance with the `normal' or `bold'
%    version we don't add this group to the other versions.
\new@mathgroup\euex@group
\define@mathgroup\mv@euler\euex@group
		 {euex}{m}{n}
%
% To set up the math version properly we have to reset some
% \verb+\mathcode+s. We have to take, for example, digits in math
% from the math group number one, i.e.\ from the euler cursive font.
% If we do this globally switching back to, let's say, \LaTeX{}s
% normal version will produces an undesired effect: we will then get
% oldstyle numerals in math.  
%
% We will leave this problem open at the moment until there is more
% experience with this new font selection scheme.  After all, it does
% not seem a very good idea to use such incompatible math versions
% together in one document.
%
% So here we are, re-arranging some of the internal tables:
\mathcode`\0="7130
\mathcode`\1="7131
\mathcode`\2="7132
\mathcode`\3="7133
\mathcode`\4="7134
\mathcode`\5="7135
\mathcode`\6="7136
\mathcode`\7="7137
\mathcode`\8="7138
\mathcode`\9="7139
%
% And here are some example for using the symbols from the special
% extension font. We use \verb+\hexnumber@+ to get the unknown assignment to
% \verb+\euex@group+ as a hexadecimal number into  the macro \verb+\@tempa+.
\edef\@tempa{\hexnumber@\euex@group}
\mathchardef\intop="1\@tempa 52
\mathchardef\ointop="1\@tempa 48
\mathchardef\sum="1\@tempa 50
\mathchardef\prod="1\@tempa 51
%
%    Since numbers for footnotes are text numbers and not math
%    formulas we prefere shapes comming from Concrete roman (like
%    12345) instead of $12345$. So we have to change the footnote mark
%    generation to avoid using math mode.
\def\@makefnmark{\raise 1ex\hbox{\scriptsize\@thefnmark}}
%
%
\mathversion{euler}


%% switch to Pandora Roman family:
\family{pnr}\selectfont%
\renewcommand{\rmdefault}{pnr}%

%% Make the msam and msbm fonts available to the "euler" math version:
\define@mathgroup\mv@euler\msa@group{msa}{m}{n}%
\define@mathgroup\mv@euler\msb@group{msb}{m}{n}%



</pre></body></html>