<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">\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 &lt;\filedate&gt;}
\typeout{English Documentation:
  \@spaces\space &lt;\docdate&gt;}

\new@fontshape{greek}{m}{n}{%
   &lt;5&gt;grreg8 at5pt%
   &lt;6&gt;grreg8 at5.6pt%
   &lt;7&gt;grreg8 at7pt%
   &lt;8&gt;grreg8%
   &lt;9&gt;grreg9%
   &lt;10&gt;rgrrg10%
   &lt;11&gt;rgrrg10 at10.95pt%
   &lt;12&gt;rgrrg10 at12pt%
   &lt;14&gt;rgrrg10 at14.4pt%
   &lt;17&gt;rgrrg10 at17.28pt%
   &lt;20&gt;rgrrg10 at20.74pt
   &lt;25&gt;rgrrg10 at24.88pt}{}%
\new@fontshape{greek}{m}{tt}{%
   &lt;5&gt;grtt8 at5pt%
   &lt;6&gt;grtt8 at5.6pt%
   &lt;7&gt;grtt8 at7pt%
   &lt;8&gt;grtt8%
   &lt;9&gt;grtt9%
   &lt;10&gt;grtt10%
   &lt;11&gt;grtt10 at10.95pt%
   &lt;12&gt;grtt10 at12pt%
   &lt;14&gt;grtt10 at14.4pt%
   &lt;17&gt;grtt10 at17.28pt%
   &lt;20&gt;grtt10 at20.74pt%
   &lt;25&gt;grtt10 at24.88pt}{}%
\new@fontshape{greek}{m}{sl}{%
   &lt;5&gt;rgrsl10 at5pt%
   &lt;6&gt;rgrsl10 at5.6pt%
   &lt;7&gt;rgrsl10 at7pt%
   &lt;8&gt;rgrsl10 at8pt%
   &lt;9&gt;rgrsl10 at9pt%
   &lt;10&gt;rgrsl10%
   &lt;11&gt;rgrsl10 at10.95pt%
   &lt;12&gt;rgrsl10 at12pt%
   &lt;14&gt;rgrsl10 at14.4pt%
   &lt;17&gt;rgrsl10 at17.28pt%
   &lt;20&gt;rgrsl10 at20.74pt%
   &lt;25&gt;rgrsl10 at24.88pt}{}%
\new@fontshape{greek}{m}{it}{%
   &lt;5&gt;rgrti10 at5pt%
   &lt;6&gt;rgrti10 at5.6pt%
   &lt;7&gt;rgrti10 at7pt%
   &lt;8&gt;rgrti10 at8pt%
   &lt;9&gt;rgrti10 at9pt%
   &lt;10&gt;rgrti10%
   &lt;11&gt;rgrti10 at10.95pt%
   &lt;12&gt;rgrti10 at12pt%
   &lt;14&gt;rgrti10 at14.4pt%
   &lt;17&gt;rgrti10 at17.28pt%
   &lt;20&gt;rgrti10 at20.74pt%
   &lt;25&gt;rgrti10 at24.88pt}{}%
\new@fontshape{greek}{m}{sc}{%
   &lt;5&gt;rgrsc10 at5pt%
   &lt;6&gt;rgrsc10 at5.6pt%
   &lt;7&gt;rgrsc10 at7pt%
   &lt;8&gt;rgrsc10 at8pt%
   &lt;9&gt;rgrsc10 at9pt%
   &lt;10&gt;rgrsc10%
   &lt;11&gt;rgrsc10 at10.95pt%
   &lt;12&gt;rgrsc10 at12pt%
   &lt;14&gt;rgrsc10 at14.4pt%
   &lt;17&gt;rgrsc10 at17.28pt%
   &lt;20&gt;rgrsc10 at20.74pt%
   &lt;25&gt;rgrsc10 at24.88pt}{}%
\new@fontshape{greek}{bf}{n}{%
   &lt;5&gt;grbld8 at5pt%
   &lt;6&gt;grbld8 at5.6pt%
   &lt;7&gt;grbld8 at7pt%
   &lt;8&gt;grbld8%
   &lt;9&gt;grbld9%
   &lt;10&gt;rgrbf10%
   &lt;11&gt;rgrbf10 at10.95pt%
   &lt;12&gt;rgrbf10 at12pt%
   &lt;14&gt;rgrbf10 at14.4pt%
   &lt;17&gt;rgrbf10 at17.28pt%
   &lt;20&gt;rgrbf10 at20.74pt%
   &lt;25&gt;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`\&lt;=13%
\catcode`\&gt;=13%
\catcode`\'=13%11
\catcode`\`=13%11
\catcode`\~=11%
\catcode`\"=11%
\catcode`\|=11%
\lccode`\&lt;=`\&lt;%
\lccode`\&gt;=`\&gt;%
\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
</pre></body></html>