2 % GREEK.STY - 14-SEP-1988
5 % Allow LaTeX to use BHK's Greek fonts
8 % \grbf - greek bold-face
10 % \grtt - greek typewriter
13 % AUTHORS: Brian Hamilton Kelly & Niel Kempson,
14 % School of Electrical Engineering and Science,
15 % Royal Military College of Science,
21 % Telephone: (+793) 785687 / 785252
22 % JANET: rm001a@uk.ac.cranfield.cdvc
26 % The fonts are loaded on demand, but don't demand too many or LaTeX
27 % will exhaust its font memory.
30 % Need special definition of \@getfont that includes call of \gracc
31 % after invocation of the font
33 \def\gr@getfont#1#2#3#4{\@ifundefined{\string #1\string #3}{\global\expandafter
34 \font \csname \string #1\string #3\endcsname #4\relax
35 \@addfontinfo#3{\textfont #2\csname \string #1\string #3\endcsname
36 \scriptfont #2\csname \string #1\string #3\endcsname
37 \scriptscriptfont #2\csname \string #1\string #3\endcsname
38 \def#1{\fam #2\csname\string #1\string #3\endcsname\@prtct\gracc}}}{}#3#1}
40 % Following section is beginnings of attempt to make this style option
41 % work with SliTeX too. Further work is awaiting the rewriting of SFONTS.TEX
42 % to use similar naming scheme, load-on-demand, etc as LFONTS.TEX --- I expect
43 % to get around to that someday!!
45 \@ifundefined{@xivpt}{% This must be running under SliTeX
48 \def\@addfontinfo#1#2{{\def\@prtct{\noexpand\@prtct\noexpand}\def\def{\noexpand
49 \def\noexpand}\xdef#1{#1#2}}}
51 \def\@nohyphens#1#2{\global\expandafter \hyphenchar\csname
52 \string #1\string #2\endcsname \m@ne}
54 \def\@subfont#1#2{\@warning{No \string#1\space typeface in
55 this size, using \string#2}#2}
65 \let\@xivpt=\fourteenpt
66 \let\@xviipt=\seventeenpt
68 \let\@xxvpt=\twentyfourpt
69 \let\@xxixpt=\twentyninept
70 \let\@xxxivpt=\thirtyfourpt
71 \let\@xlipt=\fourtyonept}{%
75 % These are the font changing commands used by the ``public''
78 \def\grbf{\protect\pgrbf}
79 \def\grit{\protect\pgrit}
80 \def\grtt{\protect\pgrtt}
82 % These macros just save a little space for the repeated font names
89 % This macro has to be invoked every time we switch to a Greek font; it
90 % defines \s to be the variant of \sigma used at the ends of words
92 \def\gracc{\chardef\s="D } % NB Space after <hexnumber> is essential
94 % Define families of Greek fonts
101 % Now add commands to each LaTeX size changing command which defines
102 % the Greek font selections to invoke macros which load the font ``on
105 \@addfontinfo\@vpt{\def\pgr{\@prtct\gr@vpt}%
106 \def\pgrbf{\@prtct\grb@vpt}%
107 \def\pgrit{\@prtct\gri@vpt}%
108 \def\pgrtt{\@prtct\grt@vpt}}
109 \@addfontinfo\@vipt{\def\pgr{\@prtct\gr@vipt}%
110 \def\pgrbf{\@prtct\grb@vipt}%
111 \def\pgrit{\@prtct\gri@vipt}%
112 \def\pgrtt{\@prtct\grt@vipt}}
113 \@addfontinfo\@viipt{\def\pgr{\@prtct\gr@viipt}%
114 \def\pgrbf{\@prtct\grb@viipt}%
115 \def\pgrit{\@prtct\gri@viipt}%
116 \def\pgrtt{\@prtct\grt@viipt}}
117 \@addfontinfo\@viiipt{\def\pgr{\@prtct\gr@viiipt}%
118 \def\pgrbf{\@prtct\grb@viiipt}%
119 \def\pgrit{\@prtct\gri@viiipt}%
120 \def\pgrtt{\@prtct\grt@viiipt}}
121 \@addfontinfo\@ixpt{\def\pgr{\@prtct\gr@ixpt}%
122 \def\pgrbf{\@prtct\grb@ixpt}%
123 \def\pgrit{\@prtct\gri@ixpt}%
124 \def\pgrtt{\@prtct\grt@ixpt}}
125 \@addfontinfo\@xpt{\def\pgr{\@prtct\gr@xpt}%
126 \def\pgrbf{\@prtct\grb@xpt}%
127 \def\pgrit{\@prtct\gri@xpt}%
128 \def\pgrtt{\@prtct\grt@xpt}}
129 \@addfontinfo\@xipt{\def\pgr{\@prtct\gr@xipt}%
130 \def\pgrbf{\@prtct\grb@xipt}%
131 \def\pgrit{\@prtct\gri@xipt}%
132 \def\pgrtt{\@prtct\grt@xipt}}
133 \@addfontinfo\@xiipt{\def\pgr{\@prtct\gr@xiipt}%
134 \def\pgrbf{\@prtct\grb@xiipt}%
135 \def\pgrit{\@prtct\gri@xiipt}%
136 \def\pgrtt{\@prtct\grt@xiipt}}
137 \@addfontinfo\@xivpt{\def\pgr{\@prtct\gr@xivpt}%
138 \def\pgrbf{\@prtct\grb@xivpt}%
139 \def\pgrit{\@prtct\gri@xivpt}%
140 \def\pgrtt{\@prtct\grt@xivpt}}
141 \@addfontinfo\@xviipt{\def\pgr{\@prtct\gr@xviipt}%
142 \def\pgrbf{\@prtct\grb@xviipt}%
143 \def\pgrit{\@prtct\gri@xviipt}%
144 \def\pgrtt{\@prtct\grt@xviipt}}
145 \@addfontinfo\@xxpt{\def\pgr{\@prtct\gr@xxpt}%
146 \def\pgrbf{\@prtct\grb@xxpt}%
147 \def\pgrit{\@prtct\gri@xxpt}%
148 \def\pgrtt{\@prtct\grt@xxpt}}
149 \@addfontinfo\@xxvpt{\def\pgr{\@prtct\gr@xxvpt}%
150 \def\pgrbf{\@prtct\grb@xxvpt}%
151 \def\pgrit{\@prtct\gri@xxvpt}%
152 \def\pgrtt{\@prtct\grt@xxvpt}}
154 % Finally, we can define WHICH fonts are to be loaded on demand.
156 \def\gr@vpt{\@subfont\gr\rm}
157 \def\gr@vipt{\gr@getfont\pgr\grfam\@vipt{\gr@@k\@ptscale6}}
158 \def\gr@viipt{\gr@getfont\pgr\grfam\@viipt{\gr@@k\@ptscale7}}
159 \def\gr@viiipt{\gr@getfont\pgr\grfam\@viiipt{\gr@@k\@ptscale8}}
160 \def\gr@ixpt{\gr@getfont\pgr\grfam\@ixpt{\gr@@k\@ptscale9}}
161 \def\gr@xpt{\gr@getfont\pgr\grfam\@xpt{\gr@@k}}
162 \def\gr@xipt{\gr@getfont\pgr\grfam\@xipt{\gr@@k\@halfmag}}
163 \def\gr@xiipt{\gr@getfont\pgr\grfam\@xiipt{\gr@@k\@magscale1}}
164 \def\gr@xivpt{\gr@getfont\pgr\grfam\@xivpt{\gr@@k\@magscale2}}
165 \def\gr@xviipt{\gr@getfont\pgr\grfam\@xviipt{\gr@@k\@magscale3}}
166 \def\gr@xxpt{\gr@getfont\pgr\grfam\@xxpt{\gr@@k\@magscale4}}
167 \def\gr@xxvpt{\gr@getfont\pgr\grfam\@xxvpt{\gr@@k\@magscale5}}
169 \def\grb@vpt{\@subfont\grbf\bf}
170 \def\grb@vipt{\gr@getfont\pgrbf\grbfam\@vipt{\@gr@@kb\@ptscale6}}
171 \def\grb@viipt{\gr@getfont\pgrbf\grbfam\@viipt{\gr@@kb\@ptscale7}}
172 \def\grb@viiipt{\gr@getfont\pgrbf\grbfam\@viiipt{\gr@@kb\@ptscale8}}
173 \def\grb@ixpt{\gr@getfont\pgrbf\grbfam\@ixpt{\gr@@kb\@ptscale9}}
174 \def\grb@xpt{\gr@getfont\pgrbf\grbfam\@xpt{\gr@@kb}}
175 \def\grb@xipt{\gr@getfont\pgrbf\grbfam\@xipt{\gr@@kb\@halfmag}}
176 \def\grb@xiipt{\gr@getfont\pgrbf\grbfam\@xiipt{\gr@@kb\@magscale1}}
177 \def\grb@xivpt{\gr@getfont\pgrbf\grbfam\@xivpt{\gr@@kb\@magscale2}}
178 \def\grb@xviipt{\gr@getfont\pgrbf\grbfam\@xviipt{\gr@@kb\@magscale3}}
179 \def\grb@xxpt{\gr@getfont\pgrbf\grbfam\@xxpt{\gr@@kb\@magscale4}}
180 \def\grb@xxvpt{\gr@getfont\pgrbf\grbfam\@xxvpt{\gr@@kb\@magscale5}}
182 \def\gri@vpt{\@subfont\grit\it}
183 \def\gri@vipt{\gr@getfont\pgrit\grifam\@vipt{\gr@@ki\@ptscale6}}
184 \def\gri@viipt{\gr@getfont\pgrit\grifam\@viipt{\gr@@ki\@ptscale7}}
185 \def\gri@viiipt{\gr@getfont\pgrit\grifam\@viiipt{\gr@@ki\@ptscale8}}
186 \def\gri@ixpt{\gr@getfont\pgrit\grifam\@ixpt{\gr@@ki\@ptscale9}}
187 \def\gri@xpt{\gr@getfont\pgrit\grifam\@xpt{\gr@@ki}}
188 \def\gri@xipt{\gr@getfont\pgrit\grifam\@xipt{\gr@@ki\@halfmag}}
189 \def\gri@xiipt{\gr@getfont\pgrit\grifam\@xiipt{\gr@@ki\@magscale1}}
190 \def\gri@xivpt{\gr@getfont\pgrit\grifam\@xivpt{\gr@@ki\@magscale2}}
191 \def\gri@xviipt{\gr@getfont\pgrit\grifam\@xviipt{\gr@@ki\@magscale3}}
192 \def\gri@xxpt{\gr@getfont\pgrit\grifam\@xxpt{\gr@@ki\@magscale4}}
193 \def\gri@xxvpt{\gr@getfont\pgrit\grifam\@xxvpt{\gr@@ki\@magscale5}}
195 \def\grt@vpt{\@subfont\grtt\tt}
196 \def\grt@vipt{\gr@getfont\pgrtt\grtfam\@vipt{\gr@@kt\@ptscale6}%
197 \@nohyphens\pgrtt\@vipt}
198 \def\grt@viipt{\gr@getfont\pgrtt\grtfam\@viipt{\gr@@kt\@ptscale7}%
199 \@nohyphens\pgrtt\@viipt}
200 \def\grt@viiipt{\gr@getfont\pgrtt\grtfam\@viiipt{\gr@@kt\@ptscale8}%
201 \@nohyphens\pgrtt\@viiipt}
202 \def\grt@ixpt{\gr@getfont\pgrtt\grtfam\@ixpt{\gr@@kt\@ptscale9}%
203 \@nohyphens\pgrtt\@ixpt}
204 \def\grt@xpt{\gr@getfont\pgrtt\grtfam\@xpt{\gr@@kt}%
205 \@nohyphens\pgrtt\@xpt}
206 \def\grt@xipt{\gr@getfont\pgrtt\grtfam\@xipt{\gr@@kt\@halfmag}%
207 \@nohyphens\pgrtt\@xipt}
208 \def\grt@xiipt{\gr@getfont\pgrtt\grtfam\@xiipt{\gr@@kt\@magscale1}%
209 \@nohyphens\pgrtt\@xiipt}
210 \def\grt@xivpt{\gr@getfont\pgrtt\grtfam\@xivpt{\gr@@kt\@magscale2}%
211 \@nohyphens\pgrtt\@xivpt}
212 \def\grt@xviipt{\gr@getfont\pgrtt\grtfam\@xviipt{\gr@@kt\@magscale3}%
213 \@nohyphens\pgrtt\@xviipt}
214 \def\grt@xxpt{\gr@getfont\pgrtt\grtfam\@xxpt{\gr@@kt\@magscale4}%
215 \@nohyphens\pgrtt\@xxpt}
216 \def\grt@xxvpt{\gr@getfont\pgrtt\grtfam\@xxvpt{\gr@@kt\@magscale5}%
217 \@nohyphens\pgrtt\@xxvpt}