\def\fileversion{v1}
\def\filedate{91/12/04}
\immediate\write\sixt@@n{File: `pi.sty' \fileversion\space <\filedate> (SPQR)}
% Sebastian Rahtz
% 5 Granary Court
% St Andrewgate
% York Y01 2JR
%
%spqr@uk.ac.soton.ecs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% AMS symbol font families A and B
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\new@fontshape{msa}{m}{n}{%
   <5>msam5%
   <6>msam6%
   <7>msam7%
   <8>msam8%
   <9>msam9%
   <10>msam10%
   <11>msam10 at10.95pt%
   <12>msam10 at12pt%
   <14>msam10 at14.4pt%
   <17>msam10 at17.28pt%
   <20>msam10 at20.74pt%
   <25>msam10 at24.88pt}{}

\extra@def{msa}{}{}

\new@fontshape{msb}{m}{n}{%
   <5>msbm5%
   <6>msbm6%
   <7>msbm7%
   <8>msbm8%
   <9>msbm9%
   <10>msbm10%
   <11>msbm10 at10.95pt%
   <12>msbm10 at12pt%
   <14>msbm10 at14.4pt%
   <17>msbm10 at17.28pt%
   <20>msbm10 at20.74pt%
   <25>msbm10 at24.88pt}{}

\extra@def{msb}{}{}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% Euler (German) Fraktur family
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\new@fontshape{euf}{m}{n}{%
   <5>eufm5%
   <6>eufm6%
   <7>eufm7%
   <8>eufm8%
   <9>eufm9%
   <10>eufm10%
   <11>eufm10 at10.95pt%
   <12>eufm10 at12pt%
   <14>eufm14 at14.4pt%
   <17>eufm14 at17.28pt%
   <20>eufm14 at20.74pt%
   <25>eufm14 at24.88pt}{}

%%%%%% bold series

\new@fontshape{euf}{b}{n}{%
   <5>eufb5%
   <6>eufb6%
   <7>eufb7%
   <8>eufb8%
   <9>eufb9%
   <10>eufb10%
   <11>eufb10 at10.95pt%
   <12>eufb10 at12pt%
   <14>eufb14%
   <17>eufb14 at17.28pt%
   <20>eufb14 at20.74pt%
   <25>eufb14 at24.88pt}{}

\extra@def{euf}{\hyphenchar#1\m@ne
       \dimen@\fontdimen2#1%
       \fontdimen3#1.4\dimen@
       \fontdimen4#1.3\dimen@}
      {}


\new@mathgroup\msa@group
\new@mathgroup\msb@group
\define@mathgroup\mv@normal\msa@group{msa}{m}{n}
\define@mathgroup\mv@normal\msb@group{msb}{m}{n}
\edef\@tempa{\hexnumber@\msb@group}
\newmathalphabet{\BBB}
\addtoversion{normal}{\BBB}{msb}{m}{n}

%-----------------------------------------
\declare@font{mathpi1}{m}{n}{mathpi1}
\declare@font{mathpi2}{m}{n}{mathpi2}
\declare@font{mathpi3}{m}{n}{mathpi3}
\declare@font{mathpi4}{m}{n}{mathpi4}
\declare@font{mathpi5}{m}{n}{mathpi5}
\declare@font{mathpi6}{m}{n}{mathpi6}
\new@mathgroup\pione@group
\new@mathgroup\pitwo@group
\new@mathgroup\pithree@group
\new@mathgroup\pifour@group
\new@mathgroup\pifive@group
\new@mathgroup\pisix@group

\define@mathgroup\mv@normal\pione@group{mathpi1}{m}{n}
\edef\@tempa{\hexnumber@\pione@group}
\mathchardef\niceone="1\@tempa 41
\define@mathgroup\mv@normal\pitwo@group{mathpi2}{m}{n}
\edef\@tempa{\hexnumber@\pitwo@group}
\mathchardef\nicetwo="1\@tempa 41
\define@mathgroup\mv@normal\pithree@group{mathpi3}{m}{n}
\edef\@tempa{\hexnumber@\pithree@group}
\mathchardef\nicethree="1\@tempa 41
\define@mathgroup\mv@normal\pifour@group{mathpi4}{m}{n}
\edef\@tempa{\hexnumber@\pifour@group}
\mathchardef\nicefour="1\@tempa 41
\define@mathgroup\mv@normal\pifive@group{mathpi5}{m}{n}
\edef\@tempa{\hexnumber@\pifive@group}
\mathchardef\nicefive="1\@tempa 41
\define@mathgroup\mv@normal\pisix@group{mathpi6}{m}{n}
\edef\@tempa{\hexnumber@\pisix@group}
\mathchardef\nicesix="1\@tempa 41


\newmathalphabet{\CERNBB}
\addtoversion{normal}{\CERNBB}{mathpi6}{m}{n}
\newmathalphabet{\GOTHIC}
\addtoversion{normal}{\GOTHIC}{mathpi2}{m}{n}
\newmathalphabet{\UPGREEK}
\addtoversion{normal}{\UPGREEK}{mathpi1}{m}{n}
\newmathalphabet{\BGREEK}
\addtoversion{normal}{\BGREEK}{mathpi4}{m}{n}
\endinput
