diff options
Diffstat (limited to 'fonts/greek/ibygrk/tex/generic/ibycus4/pssetiby.tex')
-rw-r--r-- | fonts/greek/ibygrk/tex/generic/ibycus4/pssetiby.tex | 47 |
1 files changed, 47 insertions, 0 deletions
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/pssetiby.tex b/fonts/greek/ibygrk/tex/generic/ibycus4/pssetiby.tex new file mode 100644 index 0000000000..d008ba6119 --- /dev/null +++ b/fonts/greek/ibygrk/tex/generic/ibycus4/pssetiby.tex @@ -0,0 +1,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 } |