%% patched for use with VTeX 2003-05-28 WaS %% start VTeX modification \expandafter\ifx\csname aliasfont\endcsname\relax \else \begingroup \catcode32=10 % \aliasfont fibo84 = fibr84 slant 167 % \endgroup \fi %% end VTeX modification \newfam\gkf@m \newskip\gr@@kbaselineskip \font\twelvegrk=fibr84 at 12pt \font\twelvegrksl=fibo84 scaled \magstep1 \font\elevengrk=fibr84 at 10.95pt \font\elevengrksl=fibo84 scaled \magstephalf \font\tengrk=fibr84 at 10pt \font\tengrksl=fibo84 %% start VTeX modification \font\ninegrk=fibr84 at 9pt % \font\ninegrk=fibr849 \font\ninegrksl=fibo84 at 9pt % \font\ninegrksl=fibo9 \font\eightgrk=fibr84 at 8pt % \font\eightgrk=fibr848 \font\eightgrksl=fibo84 at 8pt % \font\eightgrksl=fibo8 %% end VTeX modification \gdef\setgreek#1/#2 {% \def\f@ntp@int##1{\ifcase##1\toks0={zero}% \or\toks0={zero}\or\toks0={zero}\or\toks0={zero}% 1,2,3 \or\toks0={zero}\or\toks0={zero}\or\toks0={zero}% 4,5,6 \or\toks0={zero}% 7 \or\toks0={eight}\or\toks0={nine}\or\toks0={ten} \or\toks0={eleven}\or\toks0={twelve}\fi }% \def\gksizep@int##1{\expandafter\gdef\csname ##1point\endcsname{%% \textfont\gkf@m=\csname ##1grk\endcsname \gdef\gk{\fam\gkf@m\csname ##1grk\endcsname}% \edef\gksl{\csname ##1grksl\endcsname}% }}% \global\gr@@kbaselineskip=#2pt \f@ntp@int{#1}% % Get the English for the fontsize into \toks0 \expandafter\expandafter\expandafter\gksizep@int{\the\toks0}% \edef\gr@@kpoint{% \expandafter\noexpand\csname\the\toks0point\endcsname}% \csname\the\toks0point\endcsname } \message{Type \noexpand\setgreek10/12 to set 10pt greek on 12pt leading} \message{ \noexpand\GK to start, \noexpand\RM to end greek }