\def\fileversion{v1.1}
\def\filedate{94/09/16}
\def\docdate {94/09/16}

\expandafter\ifx\csname dategreek\endcsname\else\endinput\fi
\expandafter\ifx\csname selectfont\endcsname
        \typeout{The `rgreek' style option can only be used
                 ^^Jwith the new font selection scheme.}\endinput\fi
        \openin1 rgreekmac \ifeof1
        \typeout{! I can't find file `rgreekmac.tex'.}
        \else\closein1 \relax\input{rgreekmac}\fi
\typeout{Style Option: `rgreek'
  \fileversion\space <\filedate>}
\typeout{English Documentation:
  \@spaces\space <\docdate>}

\new@fontshape{greek}{m}{n}{%
   <5>grreg8 at5pt%
   <6>grreg8 at5.6pt%
   <7>grreg8 at7pt%
   <8>grreg8%
   <9>grreg9%
   <10>rgrrg10%
   <11>rgrrg10 at10.95pt%
   <12>rgrrg10 at12pt%
   <14>rgrrg10 at14.4pt%
   <17>rgrrg10 at17.28pt%
   <20>rgrrg10 at20.74pt
   <25>rgrrg10 at24.88pt}{}%
\new@fontshape{greek}{m}{tt}{%
   <5>grtt8 at5pt%
   <6>grtt8 at5.6pt%
   <7>grtt8 at7pt%
   <8>grtt8%
   <9>grtt9%
   <10>grtt10%
   <11>grtt10 at10.95pt%
   <12>grtt10 at12pt%
   <14>grtt10 at14.4pt%
   <17>grtt10 at17.28pt%
   <20>grtt10 at20.74pt%
   <25>grtt10 at24.88pt}{}%
\new@fontshape{greek}{m}{sl}{%
   <5>rgrsl10 at5pt%
   <6>rgrsl10 at5.6pt%
   <7>rgrsl10 at7pt%
   <8>rgrsl10 at8pt%
   <9>rgrsl10 at9pt%
   <10>rgrsl10%
   <11>rgrsl10 at10.95pt%
   <12>rgrsl10 at12pt%
   <14>rgrsl10 at14.4pt%
   <17>rgrsl10 at17.28pt%
   <20>rgrsl10 at20.74pt%
   <25>rgrsl10 at24.88pt}{}%
\new@fontshape{greek}{m}{it}{%
   <5>rgrti10 at5pt%
   <6>rgrti10 at5.6pt%
   <7>rgrti10 at7pt%
   <8>rgrti10 at8pt%
   <9>rgrti10 at9pt%
   <10>rgrti10%
   <11>rgrti10 at10.95pt%
   <12>rgrti10 at12pt%
   <14>rgrti10 at14.4pt%
   <17>rgrti10 at17.28pt%
   <20>rgrti10 at20.74pt%
   <25>rgrti10 at24.88pt}{}%
\new@fontshape{greek}{m}{sc}{%
   <5>rgrsc10 at5pt%
   <6>rgrsc10 at5.6pt%
   <7>rgrsc10 at7pt%
   <8>rgrsc10 at8pt%
   <9>rgrsc10 at9pt%
   <10>rgrsc10%
   <11>rgrsc10 at10.95pt%
   <12>rgrsc10 at12pt%
   <14>rgrsc10 at14.4pt%
   <17>rgrsc10 at17.28pt%
   <20>rgrsc10 at20.74pt%
   <25>rgrsc10 at24.88pt}{}%
\new@fontshape{greek}{bf}{n}{%
   <5>grbld8 at5pt%
   <6>grbld8 at5.6pt%
   <7>grbld8 at7pt%
   <8>grbld8%
   <9>grbld9%
   <10>rgrbf10%
   <11>rgrbf10 at10.95pt%
   <12>rgrbf10 at12pt%
   <14>rgrbf10 at14.4pt%
   <17>rgrbf10 at17.28pt%
   <20>rgrbf10 at20.74pt%
   <25>rgrbf10 at24.88pt}{}%
\extra@def{greek}{}{}

\def\graffiti{\protect\pgraffiti}
\def\pgraffiti{\family{greek}\series{c}\shape{sl}\size{9}{10pt}\selectfont}
\def\@makefnmark{\raise 1ex\hbox{\scriptsize\@thefnmark}}
\gdef\pel{\raisebox{.6ex}{.}\ } % punctus elevatus

\newif\ifgreek\greekfalse
\def\greekmode{%
\catcode`\<=13%
\catcode`\>=13%
\catcode`\'=13%11
\catcode`\`=13%11
\catcode`\~=11%
\catcode`\"=11%
\catcode`\|=11%
\lccode`\<=`\<%
\lccode`\>=`\>%
\lccode`\'=`\'%
\lccode`\`=`\`%
\lccode`\~=`\~%
\lccode`\"=`\"%
\lccode`\|=`\|%
\family{greek}\selectfont%
\ifx\keybgreek\undefined\relax\else\keybgreek\fi\greektrue}
\def\begingreek{\bgroup\greekmode}
\def\endgreek{\egroup}

\let\math=$
{\catcode`\$=13
\gdef\greekdelims{\catcode`\$=13
\def${\ifgreek\endgreek\else\begingreek\fi}
\def\display{\math\math}\def\enddisplay{\math\math}}}

\endinput
