From 873660d1a83ece926fe7206288dda9c36b349c1b Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Thu, 12 Jan 2006 23:46:03 +0000
Subject: generic 1

git-svn-id: svn://tug.org/texlive/trunk@613 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/tex/generic/ibycus/pssetiby.tex | 35 +++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 Master/texmf-dist/tex/generic/ibycus/pssetiby.tex

(limited to 'Master/texmf-dist/tex/generic/ibycus/pssetiby.tex')

diff --git a/Master/texmf-dist/tex/generic/ibycus/pssetiby.tex b/Master/texmf-dist/tex/generic/ibycus/pssetiby.tex
new file mode 100644
index 00000000000..718cbada9a8
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/ibycus/pssetiby.tex
@@ -0,0 +1,35 @@
+\newfam\gkf@m
+\newskip\gr@@kbaselineskip
+\font\twelvegrk=fibr at 12pt
+\font\twelvegrksl=fibo84 scaled \magstep1
+\font\elevengrk=fibr at 10.95pt
+\font\elevengrksl=fibo84 scaled \magstephalf
+\font\tengrk=fibr at 10pt
+\font\tengrksl=fibo84
+\font\ninegrk=fibr849
+\font\ninegrksl=fibo849
+\font\eightgrk=fibr848
+\font\eightgrksl=fibo848
+\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 }
-- 
cgit v1.2.3

