summaryrefslogtreecommitdiff
path: root/fonts/greek/ibygrk/tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /fonts/greek/ibygrk/tex
Initial commit
Diffstat (limited to 'fonts/greek/ibygrk/tex')
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/Uibycus.fd34
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/Uibycus4.fd28
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/iby4extr.tex18
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.map222
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.sty36
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.tex26
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/ibycusps.tex26
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/psibycus.sty36
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/pssetiby.tex47
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/setiby4.tex35
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/tlgsqq.tex135
-rw-r--r--fonts/greek/ibygrk/tex/generic/ibycus4/version4.tex5
12 files changed, 648 insertions, 0 deletions
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/Uibycus.fd b/fonts/greek/ibygrk/tex/generic/ibycus4/Uibycus.fd
new file mode 100644
index 0000000000..38990c3a9b
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/Uibycus.fd
@@ -0,0 +1,34 @@
+% Uibycus.fd -- WaS 2004-10-18:
+% - bold type1 font is used, too
+% - definitions work also with VTeX/Free
+% - fonts are declared as scalable
+%
+% Uibycus.fd-- P. A. MacKay --July 7, 2000
+% A more confident version in which all sizes of
+% upright and obliqued, regular weight, are
+% taken from the type1 font. Suggested by
+% Peter.Heslin@ucd.ie.
+%
+% Uibycus.fd-- P.A. MacKay -- July 15.1999
+% Pierre A. MacKay, Dept. of Classics, University of Washington
+% mackay@cs.washington.edu
+% ------------------------
+% for use with nfss2.
+%
+\ProvidesFile{Uibycus.fd}[2004/10/18 v4.5 font definitions for Ibycus/Type1 (WaS)]
+%
+\ifx\aliasfont\@undefined\else\ifx\aliasfont\relax\else
+ \begingroup
+ \catcode32=10 %
+ \aliasfont fibo84 = fibr84 slant 167 %
+ \endgroup
+\fi\fi
+% OT1 is rather a lie...
+\DeclareFontFamily{OT1}{ibycus}{}
+\DeclareFontShape{OT1}{ibycus}{m}{n}{<-> fibr84}{}
+\DeclareFontShape{OT1}{ibycus}{m}{sl}{<-> fibo84}{}
+\DeclareFontShape{OT1}{ibycus}{m}{it}{<-> ssub * ibycus/m/sl}{}
+\DeclareFontShape{OT1}{ibycus}{b}{n}{<-> fibb84}{}
+\DeclareFontShape{OT1}{ibycus}{bx}{n}{<-> ssub * ibycus/b/n}{}
+
+\endinput
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/Uibycus4.fd b/fonts/greek/ibygrk/tex/generic/ibycus4/Uibycus4.fd
new file mode 100644
index 0000000000..b42b859e30
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/Uibycus4.fd
@@ -0,0 +1,28 @@
+% Uibycus4.fd-- P.A. MacKay -- July 12.1997
+% Pierre A. MacKay, Dept. of Classics, University of Washington
+% mackay@cs.washington.edu
+% ------------------------
+% for use with nfss2
+%
+\ProvidesFile{Uibycus4.fd}[1997/07/12 (P.A. MacKay)]
+%
+% OT1 is rather a lie, but it works for all directly addressed
+% glyphs. Apparently it is not possible to use the U designation
+% outside of math mode. I still think it unwise to call this an
+% OT1 fd. It isn't.
+%
+\DeclareFontFamily{OT1}{ibycus}{}
+\DeclareFontShape{OT1}{ibycus}{m}{n}{%
+ <5> <6> <7> <8> fibr848
+ <9> fibr849
+ <10> <10.95> <12> <14.40> <17.28> <20.74> <24.88> fibr84}{}
+\DeclareFontShape{OT1}{ibycus}{m}{sl}{%
+ <5> <6> <7> <8> fibo848
+ <9> fibo849
+ <10> <10.95> <12> <14.40> <17.28> <20.74> <24.88> fibo84}{}
+\DeclareFontShape{OT1}{ibycus}{m}{it}{<->ssub * ibycus/m/sl}{}
+\DeclareFontShape{OT1}{ibycus}{b}{n}{%
+ <5> <6> <7> <8> fibb848
+ <9> fibb849
+ <10> <10.95> <12> <14.40> <17.28> <20.74> <24.88> fibb84}{}
+\endinput
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/iby4extr.tex b/fonts/greek/ibygrk/tex/generic/ibycus4/iby4extr.tex
new file mode 100644
index 0000000000..8cfbce85b8
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/iby4extr.tex
@@ -0,0 +1,18 @@
+% iby4extr.tex-- P.A. MacKay -- July 12, 1997
+% Pierre A. MacKay, Dept. of Classics, University of Washington
+% mackay@cs.washington.edu
+% ------------------------
+% Provides traditional text-editor symbols for critical edition
+% The control sequences follow Adobe naming conventions, to keep
+% them from any likely conflict with plain.tex.
+% I use \let\!=\dagger
+% as a short and convenient way of getting at it
+%
+\def\braceleft{\char'333}
+\def\braceright{\char'337}
+\def\bracketleftbt{\char'363}
+\def\bracketrightbt{\char'367}
+\def\dagger{\char'375}
+\def\dbldagger{\char'376}
+
+\input version4
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.map b/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.map
new file mode 100644
index 0000000000..0efb0e0a2f
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.map
@@ -0,0 +1,222 @@
+%
+% These macros make it possible to read *.map files as either
+% \TeX{} or METAFONT input
+% See the $TEXMFROOT/tex/languages/greek/ibygrk directory for
+% use of this file as TeX input
+%
+% A well-known conditional test in METAFONT;
+% It creates mismatch of character tokens 'k' and 'n' in TeX
+\if known cmbase: % Interpret as a METAFONT file
+ let re_catcode=relax; let let_=gobble; let no_let=gobble;
+ else:
+ message "Must have cmbase loaded for this, or else some macros from it" ;
+%
+% END OF METAFONT INTERPRETATION---TeX INTERPRETATION FOLLOWS
+%
+ \else % Interpret as a TeX file
+ \catcode`\_11 % allow underscore in csnames as in METAFONT
+ \def\re_catcode{\catcode`\=12 \catcode`\;12 \catcode`\_8}%
+ \def\ignore_to_comment#1#2{}%
+% Now activate all the characters from ^^80 to ^^ff
+ \count255=`\^^80
+ \loop \ifnum\count255 < `\^^ff
+ \catcode\count255\active \advance\count255 by 1 \repeat
+ % \catcode`\^^ff\active % If you want it, I don't in this case.
+ \expandafter\input\the\digraphs % Filename in a \toks register
+ \catcode`\;0 % treat the first ; (required by METAFONT) as an escape
+ \catcode`\=14 % treat the = in the METAFONT part as a comment character
+ \let\let_\let \let\no_let\ignore_to_comment
+ \fi
+%
+% This is a rather specialized version of the map file,
+% developed for Greek only. There are certain restrictions
+% in this case, because we do not want to alter Silvio Levy's
+% source code---only the mappings.
+% The upper level codes (^^80---^^ff) are based on a version of
+% Greek Keys (a word-processor package for Macintosh, distributed
+% through the American Philological Association), but the mapping
+% is worked out by experience not from any documentation, and
+% local customization often alters even this mapping.
+% Consistency is provided by the ASCII digraphs
+% and trigraphs to which all word-processor codes are remapped
+% before they are used in TeX. These digraphs and trigraphs
+% (even tetragraphs in the case of iota subscript) are very close
+% to Ibycus/TLG betacode, except for the unfortunate uppercasing
+% of betacode.
+%
+% a known set of word-processor Some "hidden" characters
+% equivalents is "let_" for TeX Only METAFONT needs to know
+% \no_let is used where there what is in this column
+% seems to be no certain mapping
+%
+\let_ ^^80;quotesnglright = ASCII"'"; endash = oct"046";
+\let_ ^^81;quotesnglleft = ASCII"`"; emdash = oct"177";
+\let_ ^^82;peri_spomenon = ASCII"="; null_space = ASCII" ";
+\let_ ^^83;sp_lenis = ASCII")"; dieresis = oct"053"; % use plus sign
+\let_ ^^84;sp_asper = ASCII"("; minute = ASCII"&"; % prime for numbers
+\let_ ^^85;lenis_oxy = oct"136"; asper_glyph = oct"303";
+\let_ ^^86;lenis_bary = oct"137"; lenis_glyph = oct"307";
+\let_ ^^87;lenis_peri = oct"134"; guillemotleft = ASCII"{"; %two small
+\let_ ^^88;asper_oxy = oct"207"; guillemotright = ASCII"}"; % awks
+\let_ ^^89;asper_bary = oct"203"; iotasubscript = ASCII"|";
+\let_ ^^8a;asper_peri = oct"100"; dubious = ASCII"!";
+\no_let \dmy;bary_tone = oct"275"; quotedblleft = oct"253";
+\no_let \dmy;oxy_tone = oct"276"; quotedblright = oct"257";
+\no_let \dmy;diaeroxy = oct"043"; bracketleftbt = oct"363";
+\no_let \dmy;diaerbary = oct"044"; bracketrightbt = oct"367";
+%
+% alpha with accents
+%
+\let_ ^^8b;a_oxy = oct"210"; Digamma = ASCII"V";
+\let_ ^^8c;a_bary = oct"200"; digamma = ASCII"v";
+\let_ ^^8d;a_peri = oct"220"; boundarychar := oct"377"; % N.B. :=
+\let_ ^^8e;a_len = oct"202";
+\let_ ^^8f;a_aspr = oct"201";
+\let_ ^^90;a_lenoxy = oct"212";
+\let_ ^^91;a_asproxy = oct"211"; cigmalunate=ASCII"J";
+\let_ ^^92;a_lenbary = oct"223"; % "J" is all that's available
+\let_ ^^93;a_asprbary = oct"213"; sigmafinal=ASCII"j";
+\let_ ^^94;a_lenperi = oct"222"; r_aspr = oct"373"; % GreekKeys "="!!
+\let_ ^^95;a_asprperi = oct"221"; r_len = oct"374";
+%
+% alpha with accents and iota subscript
+%
+\let_ ^^fb;a_isub = oct"370"; % Kerned back iotasubscript only
+\let_ ^^96;a_oxyisub = oct"214"; e_peri = oct"214";
+\let_ ^^97;a_baryisub = oct"204"; e_asprperi = oct"204";
+\let_ ^^98;a_periisub = oct"224"; e_lenperi = oct"224";
+\let_ ^^99;a_lenisub = oct"206"; Koppa = oct"206";
+\let_ ^^9a;a_asprisub = oct"205"; o_asprperi = oct"205";
+\let_ ^^9b;a_lenoxyisub = oct"216"; koppa = oct"216";
+\let_ ^^9c;a_asproxyisub = oct"215"; o_peri = oct"215";
+\let_ ^^9d;a_lenbaryisub = oct"227";
+\let_ ^^9e;a_asprbaryisub = oct"217"; sampi = oct"217";
+\let_ ^^9f;a_lenperiisub = oct"226"; Cigmalunate=oct"226";
+\let_ ^^a0;a_asprperiisub = oct"225"; o_lenperi = oct"225";
+%
+% epsilon with accents
+%
+\let_ ^^a1;e_oxy = oct"350"; angleleft = ASCII"<";
+\let_ ^^a2;e_bary = oct"340"; angleright = ASCII">";
+\let_ ^^a4;e_len = oct"342"; braceleft = oct"333";
+\let_ ^^a5;e_aspr = oct"341"; braceright = oct"337";
+\let_ ^^a6;e_lenoxy = oct"352"; dagger = oct"375";
+\let_ ^^a7;e_asproxy = oct"351"; daggerdbl = oct"376";
+\let_ ^^a8;e_lenbary = oct"343"; aspirate = oct"377";
+\let_ ^^a9;e_asprbary = oct"353";
+%
+% eta with accents
+%
+\let_ ^^ae;h_oxy = oct"240";
+\let_ ^^af;h_bary = oct"230";
+\let_ ^^b0;h_peri = oct"250";
+\let_ ^^b1;h_len = oct"232";
+\let_ ^^b2;h_aspr = oct"231";
+\let_ ^^b3;h_lenoxy = oct"242";
+\let_ ^^b4;h_asproxy = oct"241";
+\let_ ^^b5;h_lenbary = oct"243";
+\let_ ^^b6;h_asprbary = oct"233";
+\let_ ^^b7;h_lenperi = oct"252";
+\let_ ^^b8;h_asprperi = oct"251";
+%
+% eta with accents and iota subscript
+%
+% In this section and in the "omega with accents and iota subscript"
+% section at the end, the octal values are assigned twice. The coding
+% originally followed the pattern of GreekKeys fonts in giving a map
+% position to every iota subscript composite. But this is wasteful, since
+% there are only three correct positions for iota subscript. Current
+% coding follows the practice seen in the Linotype Times Ten Greek of
+% kerning one of three iotasubscripts under the appropriate a, h, or w.
+% This does, unfortunately mean that the current mapping cannot be used
+% directly with GreekKeys input, but nobody seems ever to do that
+% anyway.
+%
+\let_ ^^fa;h_isub = oct"371"; % The redundancy below here is
+\let_ ^^b9;h_oxyisub = oct"244"; doti = oct"244"; % unavoidable
+\let_ ^^ba;h_baryisub = oct"234"; dotI = oct"234" % It derives in
+\let_ ^^bb;h_periisub = oct"254"; dote = oct"254"; % part from the
+\let_ ^^bc;h_lenisub = oct"236"; dotbt = oct"236"; % older coding
+\let_ ^^bd;h_asprisub = oct"235"; dotJdlmnpqu = oct"235"; % Now the
+\let_ ^^be;h_lenoxyisub = oct"246"; dotkos = oct"246"; % only
+\let_ ^^bf;h_asproxyisub = oct"245"; dotGZ = oct"245"; % isub
+\let_ ^^c0;h_lenbaryisub = oct"247"; dotCEVaw = oct"247"; % code
+\let_ ^^c1;h_asprbaryisub = oct"237"; dotchjz = oct"237"; % in MF
+\let_ ^^c2;h_lenperiisub = oct"256"; dotBFLNPRSTW = oct"256"; % is the
+\let_ ^^c3;h_asprperiisub = oct"255"; dotH = oct"255"; % first
+%
+%iota with accents
+%
+\let_ ^^db;i_oxy = oct"320";
+\let_ ^^dc;i_bary = oct"310";
+\let_ ^^dd;i_peri = oct"330";
+\let_ ^^de;i_len = oct"312";
+\let_ ^^df;i_aspr = oct"311";
+\let_ ^^e0;i_lenoxy = oct"322";
+\let_ ^^e1;i_asproxy = oct"321";
+\let_ ^^e2;i_lenbary = oct"323";
+\let_ ^^e3;i_asprbary = oct"313";
+\let_ ^^e4;i_lenperi = oct"332";
+\let_ ^^e5;i_asprperi = oct"331";
+\let_ ^^f3;i_diaer = oct"360";
+\let_ ^^fd;i_diaeroxy = oct"362";
+\let_ ^^fe;i_diaerbary = oct"361";
+%
+% omicron with accents
+%
+\let_ ^^f1;o_oxy = oct"354";
+\let_ ^^f2;o_bary = oct"344";
+\let_ ^^f4;o_len = oct"346";
+\let_ ^^f5;o_aspr = oct"345";
+\let_ ^^f6;o_lenoxy = oct"356";
+\let_ ^^f7;o_asproxy = oct"355";
+\let_ ^^f8;o_lenbary = oct"357";
+\let_ ^^f9;o_asprbary = oct"347";
+%
+% upsilon with accents
+%
+\let_ ^^e6;u_oxy = oct"324";
+\let_ ^^e7;u_bary = oct"314";
+\let_ ^^e8;u_peri = oct"334";
+\let_ ^^e9;u_len = oct"316";
+\let_ ^^ea;u_aspr = oct"315";
+\let_ ^^eb;u_lenoxy = oct"326";
+\let_ ^^ec;u_asproxy = oct"325";
+\let_ ^^ed;u_lenbary = oct"327";
+\let_ ^^ee;u_asprbary = oct"317";
+\let_ ^^ef;u_lenperi = oct"336";
+\let_ ^^f0;u_asprperi = oct"335";
+\no_let \dmy;u_diaer = oct"364"; % ^^23, but it's not worth the effort
+\no_let \dmy;u_diaeroxy = oct"366"; % ^^40, ditto
+\let_ ^^a3;u_diaerbary = oct"365";
+%
+% omega with accents
+%
+\let_ ^^c5;w_oxy = oct"270";
+\let_ ^^c6;w_bary = oct"260";
+\let_ ^^c7;w_peri = oct"300";
+\let_ ^^c8;w_len = oct"262";
+\let_ ^^c9;w_aspr = oct"261";
+\let_ ^^ca;w_lenoxy = oct"272";
+\let_ ^^cb;w_asproxy = oct"271";
+\let_ ^^cc;w_lenbary = oct"273";
+\let_ ^^cd;w_asprbary = oct"263";
+\let_ ^^ce;w_lenperi = oct"302";
+\let_ ^^cf;w_asprperi = oct"301";
+%
+% omega with accents and iota subscript
+%
+\let_ ^^c4;w_isub = oct"372"; % Kerned back iotasubscript only
+\let_ ^^d0;w_oxyisub = oct"274"; dotAOQUXY = oct"274";
+\let_ ^^d1;w_baryisub = oct"264"; dotDK = oct"264";
+\let_ ^^d2;w_periisub = oct"304"; dotM = oct"304";
+\let_ ^^d3;w_lenisub = oct"266"; dotgx = oct"266";
+\let_ ^^d4;w_asprisub = oct"265"; dotfy = oct"265";
+\let_ ^^d5;w_lenoxyisub = oct"276"; % oxy_tone
+\let_ ^^d6;w_asproxyisub = oct"275"; % bary_tone
+\let_ ^^d7;w_lenbaryisub = oct"277"; dotr = oct"277"
+\let_ ^^d8;w_asprbaryisub = oct"267"; dotkoppa = oct"267";
+\let_ ^^d9;w_lenperiisub = oct"306"; longum = oct"306";
+\let_ ^^da;w_asprperiisub = oct"305"; breve = oct"305";
+
+\re_catcode
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.sty b/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.sty
new file mode 100644
index 0000000000..ec072fbec7
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.sty
@@ -0,0 +1,36 @@
+% Pierre A. MacKay, Dept. of Classics, University of Washington
+% mackay@cs.washington.edu
+% Walter Schmidt
+% w.a.schmidt@gmx.net
+% ------------------------
+% 2004-10-18 added proper identification (\ProvidesPackage)
+% 2003-05-28 patched wrt/ T1 encoding, added \textgreek
+% 12/7/97 Convert to ibycus4
+% 4/12/95 Test for isolatin package and suppress ibycus3.map if it's there
+% 31/10/95 Added \input{iby3extr} for editor symbols
+% 25/1/95 Created.
+%
+% For use with LaTeX2e
+% Replaces iby4text.tex; does not call setiby4.tex
+% Use "\fontsize{14}{17pt}\selectfont" instead of "\setgreek14/17"
+% and "{\greek{}...}" instead of "\GK{}...\RM{}"
+% The fd file is named as it should be, for ``Unknown'' encoding
+% even though I have to use OT1 in the actual file
+
+\ProvidesPackage{ibycus4}[2004/10/18 v4.5 Ibycus4 (P.A.MacKay/WaS)]
+\newtoks\digraphs
+\digraphs={tlgsqq}
+\chardef \atcode = \the \catcode `\@
+\def\unletterat{\catcode`\@ = \the \atcode}
+\catcode`\@ = 11
+\ifx\@grave@A@grave@\undefined\input{ibycus4.map}
+\else\@latex@warning@no@line{%
+No GreekKeys upper ASCII. Post-positive ASCII sequences only}\fi
+% Don't use the GreekKeys equivalents if isolatin is in use.
+\unletterat
+\input{Uibycus4.fd}
+\def\greek{\fontencoding{OT1}\fontfamily{ibycus}\selectfont}
+\input{iby4extr}
+\DeclareTextFontCommand{\textgreek}{\greek}
+
+\endinput
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.tex b/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.tex
new file mode 100644
index 0000000000..464c4b4882
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/ibycus4.tex
@@ -0,0 +1,26 @@
+\newtoks\digraphs
+\digraphs={tlgsqq}%
+%
+\newif\ifrestoreat
+\expandafter\ifnum\the\catcode`\@=11
+ \restoreatfalse
+ \else\global\count9=\the\catcode`\@
+ \catcode`\@=11
+ \restoreattrue
+ \fi
+%
+\input ibycus4.map
+%
+\ifx\newneploaded\undefined\input setiby4 \fi
+\gdef\GK{\ifx\gr@@kbaselineskip\undefined
+ \expandafter\csname\the\gr@@kpoint\endcsname\else\gr@@kpoint\fi
+ \begingroup
+ \def\GK{\relax}
+ \def\RM{\rm\endgroup}%
+ \ifx\gr@@kbaselineskip\undefined % newnep takes care of this
+ \else\normalbaselineskip\gr@@kbaselineskip\normalbaselines\fi
+ \expandafter\let\noexpand\it\gksl\gk}%
+\gdef\RM{\relax}%
+\ifrestoreat\catcode`\@=\the\count9 \fi % back to normal
+\global\count9=0
+\input iby4extr
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/ibycusps.tex b/fonts/greek/ibygrk/tex/generic/ibycus4/ibycusps.tex
new file mode 100644
index 0000000000..0a45161af7
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/ibycusps.tex
@@ -0,0 +1,26 @@
+\newtoks\digraphs
+\digraphs={tlgsqq}%
+%
+\newif\ifrestoreat
+\expandafter\ifnum\the\catcode`\@=11
+ \restoreatfalse
+ \else\global\count9=\the\catcode`\@
+ \catcode`\@=11
+ \restoreattrue
+ \fi
+%
+\input ibycus4.map
+%
+\ifx\newneploaded\undefined\input pssetiby \fi
+\gdef\GK{\ifx\gr@@kbaselineskip\undefined
+ \expandafter\csname\the\gr@@kpoint\endcsname\else\gr@@kpoint\fi
+ \begingroup
+ \def\GK{\relax}%
+ \def\RM{\rm\endgroup}%
+ \ifx\gr@@kbaselineskip\undefined % newnep takes care of this
+ \else\normalbaselineskip\gr@@kbaselineskip\normalbaselines\fi
+ \expandafter\let\noexpand\it\gksl\gk}%
+\gdef\RM{\relax}%
+\ifrestoreat\catcode`\@=\the\count9 \fi % back to normal
+\global\count9=0
+\input iby4extr \ No newline at end of file
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/psibycus.sty b/fonts/greek/ibygrk/tex/generic/ibycus4/psibycus.sty
new file mode 100644
index 0000000000..31374ec84b
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/psibycus.sty
@@ -0,0 +1,36 @@
+% Pierre A. MacKay, Dept. of Classics, University of Washington
+% mackay@cs.washington.edu
+% Walter Schmidt
+% w.a.schmidt@gmx.net
+% ------------------------
+% 2004-10-18 Version 4.5: font definitions moved to separate fd file, again
+% 2003-05-28 Version 4.2: virtual fonts are no longer used
+% 2003-04-29 Version 4.1 for VTeX
+% 15/7/99 Version for type1 font IbycusHTG-Regular
+% 12/7/97 Convert to ibycus4
+% 4/12/95 Test for isolatin package and suppress ibycus3.map if it's there
+% 31/10/95 Added \input{iby3extr} for editor symbols
+% 25/1/95 Created.
+%
+% For use with LaTeX2e
+% Replaces iby4text.tex; does not call setiby4.tex
+% Use "\fontsize{14}{17pt}\selectfont" instead of "\setgreek14/17"
+% and "{\greek{}...}" instead of "\GK{}...\RM{}"
+
+\ProvidesPackage{psibycus}[2004/10/18 v4.5 Ibycus4 using Type1 fonts (P.A.MacKay/WaS)]
+\newtoks\digraphs
+\digraphs={tlgsqq}
+\chardef \atcode = \the \catcode `\@
+\def\unletterat{\catcode`\@ = \the \atcode}
+\catcode`\@ = 11
+\ifx\@grave@A@grave@\undefined\input{ibycus4.map}
+\else\@latex@warning@no@line{%
+No GreekKeys upper ASCII. Post-positive ASCII sequences only}\fi
+% Don't use the GreekKeys equivalents if isolatin is in use.
+\unletterat
+\input{Uibycus.fd}
+\def\greek{\fontencoding{OT1}\fontfamily{ibycus}\selectfont}
+\input{iby4extr}
+\DeclareTextFontCommand{\textgreek}{\greek}
+
+\endinput
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 }
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/setiby4.tex b/fonts/greek/ibygrk/tex/generic/ibycus4/setiby4.tex
new file mode 100644
index 0000000000..586f1efabf
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/setiby4.tex
@@ -0,0 +1,35 @@
+\newfam\gkf@m
+\newskip\gr@@kbaselineskip
+\font\twelvegrk=fibr84 scaled \magstep1
+\font\twelvegrksl=fibo84 scaled \magstep1
+\font\elevengrk=fibr84 scaled \magstephalf
+\font\elevengrksl=fibo84 scaled \magstephalf
+\font\tengrk=fibr84
+\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 }
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/tlgsqq.tex b/fonts/greek/ibygrk/tex/generic/ibycus4/tlgsqq.tex
new file mode 100644
index 0000000000..7e4314dcf2
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/tlgsqq.tex
@@ -0,0 +1,135 @@
+\def\sp_lenis{\char'076}%
+\def\sp_asper{\char'074}%
+\def\lenis_oxy{)'}%
+\def\lenis_bary{)`}%
+\def\lenis_peri{)=}%
+\def\asper_oxy{('}%
+\def\asper_bary{(`}%
+\def\asper_peri{(=}%
+\def\a_{a}%
+\def\a_bary{a`}%
+\def\a_aspr{a(}%
+\def\a_len{a)}%
+\def\a_isub{a|}%
+\def\a_baryisub{a`|}%
+\def\a_asprisub{a(|}%
+\def\a_lenisub{a)|}%
+\def\a_isub{a|}%
+\def\a_oxy{a'}%
+\def\a_asproxy{a('}%
+\def\a_asprbary{a(`}%
+\def\a_lenoxy{a)'}%
+\def\a_lenbary{a)`}%
+\def\a_oxyisub{a'|}%
+\def\a_asproxyisub{a('|}%
+\def\a_asprbaryisub{a(`|}%
+\def\a_lenoxyisub{a)'|}%
+\def\a_lenbaryisub{a)`|}%
+\def\a_peri{a=}%
+\def\a_asprperi{a(=}%
+\def\a_lenperi{a)=}%
+\def\a_periisub{a=|}%
+\def\a_asprperiisub{a(=|}%
+\def\a_lenperiisub{a)=|}%
+\def\a_isub{a|}%
+\def\e_{e}%
+\def\e_bary{e`}%
+\def\e_aspr{e(}%
+\def\e_len{e)}%
+\def\e_oxy{e'}%
+\def\e_asproxy{e('}%
+\def\e_asprbary{e(`}%
+\def\e_lenoxy{e)'}%
+\def\e_lenbary{e)`}%
+\def\h_{h}%
+\def\h_bary{h`}%
+\def\h_aspr{h(}%
+\def\h_isub{h|}%
+\def\h_len{h)}%
+\def\h_baryisub{h`|}%
+\def\h_asprisub{h(|}%
+\def\h_lenisub{h)|}%
+\def\h_oxy{h'}%
+\def\h_asproxy{h('}%
+\def\h_asprbary{h(`}%
+\def\h_lenoxy{h)'}%
+\def\h_lenbary{h)`}%
+\def\h_oxyisub{h'|}%
+\def\h_asproxyisub{h('|}%
+\def\h_asprbaryisub{h(`|}%
+\def\h_lenoxyisub{h)'|}%
+\def\h_lenbaryisub{h)`|}%
+\def\h_peri{h=}%
+\def\h_asprperi{h(=}%
+\def\h_lenperi{h)=}%
+\def\h_periisub{h=|}%
+\def\h_asprperiisub{h(=|}%
+\def\h_lenperiisub{h)=|}%
+\def\h_isub{h|}%
+\def\i_{i}%
+\def\i_bary{i`}%
+\def\i_aspr{i(}%
+\def\i_len{i)}%
+\def\i_oxy{i'}%
+\def\i_asproxy{i('}%
+\def\i_asprbary{i(`}%
+\def\i_lenoxy{i)'}%
+\def\i_lenbary{i)`}%
+\def\i_peri{i=}%
+\def\i_asprperi{i(=}%
+\def\i_lenperi{i)=}%
+\def\i_diaer{i+}%
+\def\i_barydiaer{i+`}%
+\def\i_oxydiaer{i+'}%
+\def\i_peridiaer{i+=}%
+\def\o_{o}%
+\def\o_bary{o`}%
+\def\o_aspr{o(}%
+\def\o_len{o)}%
+\def\o_oxy{o'}%
+\def\o_asproxy{o('}%
+\def\o_asprbary{o(`}%
+\def\o_lenoxy{o)'}%
+\def\o_lenbary{o)`}%
+\def\u_{u}%
+\def\u_bary{u`}%
+\def\u_aspr{u(}%
+\def\u_len{u)}%
+\def\u_oxy{u'}%
+\def\u_asproxy{u('}%
+\def\u_asprbary{u(`}%
+\def\u_lenoxy{u)'}%
+\def\u_lenbary{u)`}%
+\def\u_peri{u=}%
+\def\u_asprperi{u(=}%
+\def\u_lenperi{u)=}%
+\def\u_diaer{u+}%
+\def\u_barydiaer{u+`}%
+\def\u_oxydiaer{u+'}%
+\def\u_peridiaer{u+=}%
+\def\w_{w}%
+\def\w_bary{w`}%
+\def\w_aspr{w(}%
+\def\w_len{w)}%
+\def\w_isub{w|}%
+\def\w_baryisub{w`|}%
+\def\w_asprisub{w(|}%
+\def\w_lenisub{w)|}%
+\def\w_oxy{w'}%
+\def\w_asproxy{w('}%
+\def\w_asprbary{w(`}%
+\def\w_lenoxy{w)'}%
+\def\w_lenbary{w)`}%
+\def\w_oxyisub{w'|}%
+\def\w_lenoxyisub{w)'|}%
+\def\w_lenbaryisub{w)`|}%
+\def\w_asproxyisub{w('|}%
+\def\w_asprbaryisub{w(`|}%
+\def\w_peri{w=}%
+\def\w_asprperi{w(=}%
+\def\w_lenperi{w)=}%
+\def\w_periisub{w=|}%
+\def\w_asprperiisub{w(=|}%
+\def\w_lenperiisub{w)=|}%
+\def\w_isub{w|}%
+
diff --git a/fonts/greek/ibygrk/tex/generic/ibycus4/version4.tex b/fonts/greek/ibygrk/tex/generic/ibycus4/version4.tex
new file mode 100644
index 0000000000..4e3499ad4f
--- /dev/null
+++ b/fonts/greek/ibygrk/tex/generic/ibycus4/version4.tex
@@ -0,0 +1,5 @@
+% version4.tex-- P.A. MacKay -- July 15, 1997
+% Pierre A. MacKay, Dept. of Classics, University of Washington
+% mackay@cs.washington.edu
+% ------------------------
+\message{Ibycus Greek. Version 4. 15 July 1997}