summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/ibygrk/pssetiby.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/ibygrk/pssetiby.tex')
-rw-r--r--Master/texmf-dist/tex/generic/ibygrk/pssetiby.tex47
1 files changed, 47 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/ibygrk/pssetiby.tex b/Master/texmf-dist/tex/generic/ibygrk/pssetiby.tex
new file mode 100644
index 00000000000..d008ba61197
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibygrk/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 }