blob: d008ba611974231f1df6b1661d43feb36fc7179b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
%% 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 }
|
