% File:       MF Inputs setgreek.tex
% Author:     Pierre A. MacKay
% Internet:   mackay@cs.washington.edu
% Date:       Friday, 06 May 1994
% Copyright 1994 by Pierre A. MacKay
% The contents of this file are licensed free for
% use and redistribution under the terms of the  
% GNU General Public License.  For the terms of  
% this license see any publication of the Free   
% Software Foundation or any software packages   
% distributed by the Free Software Foundation.   
% 
\newfam\gkf@m
\newskip\gr@@kbaselineskip
\font\twelvegrk=gribyr10 scaled \magstep1
\font\twelvegrksl=gribsl10 scaled \magstep1
\font\elevengrk=gribyr10 scaled \magstephalf
\font\elevengrksl=gribsl10 scaled \magstephalf
\font\tengrk=gribyr10
\font\tengrksl=gribsl10
\font\ninegrk=gribyr9
\font\ninegrksl=gribysl9
\font\eightgrk=gribyr8
\font\eightgrksl=gribysl8
\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 }
