From 6e31f432876146d354c50ca38d787fe9700d723e Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Jan 2006 23:56:32 +0000 Subject: greektex git-svn-id: svn://tug.org/texlive/trunk@961 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/greektex/greektex.sty | 1074 +++++++++++++++++++++ 1 file changed, 1074 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/greektex/greektex.sty (limited to 'Master/texmf-dist/tex/latex/greektex') diff --git a/Master/texmf-dist/tex/latex/greektex/greektex.sty b/Master/texmf-dist/tex/latex/greektex/greektex.sty new file mode 100644 index 00000000000..116d3ba3883 --- /dev/null +++ b/Master/texmf-dist/tex/latex/greektex/greektex.sty @@ -0,0 +1,1074 @@ +% This is file `greektex.sty', October 2004 +% adapted and updated from the stylefile greek2e.sty +% by Yiannis Moschovakis and Chrisovalantis Sfirakis +% +% A compilation and adaptation to LaTeX2e +% of the greektex files, by Yiannis Moschovakis and George Spiliotis +% using the ywcl series of Levy fonts, which is exactly +% the same as the cl series, recoded in the Windows encoding +% rather than the old IBM 437 +% +% This file contains all of greektex except for hyphenation, +% so that if the .tfm and .pk files for the ywcl fonts are available, +% then \usepackage{greektex} makes possible the typesetting of +% greeklish text by any LaTeX2e system, without hyphenation. +% +% Hyphenation is fully contained in the accompanying file +% gehyphw.gr. For LaTeX to use it, initex must be run in +% an environment which looks for it and can find it. +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{greektex} + [2004/10/24 v1.0 greektex standard setup file] + +%%%%%%%%%%%%%%%%%%%%%%%%% % lccodes and uccodes reassigned +% Originally assigned in gehyphw.gr, because the lccodes are +% needed for the hyphenation tables. + +% lc vowels have lccode 1 + +\lccode`á=1 +\lccode`Ü=1 +\lccode`^^a1=1 % .á +\lccode`^^a5=1 % á` +\lccode`^^a6=1 % á= +\lccode`^^a7=1 % >á +\lccode`^^a8=1 % <á +\lccode`^^a9=1 % >á' +\lccode`^^aa=1 % <á' +\lccode`å=1 +\lccode`Ý=1 +\lccode`^^ab=1 % å` +\lccode`^^80=1 % >å +\lccode`^^81=1 % <å +\lccode`^^82=1 % >å' +\lccode`^^83=1 % <å' +\lccode`ç=1 +\lccode`Þ=1 +\lccode`^^bb=1 % .ç +\lccode`^^84=1 % ç` +\lccode`^^85=1 % ç= +\lccode`^^86=1 % >ç +\lccode`^^87=1 % <ç +\lccode`^^88=1 % >ç' +\lccode`^^a0=1 % <ç' +\lccode`é=1 +\lccode`ß=1 +\lccode`ú=1 +\lccode`^^c0=1 % é with diairesis and oxeia +\lccode`^^89=1 % é` +\lccode`^^8a=1 % é= +\lccode`^^8b=1 % >é +\lccode`^^8c=1 % <é +\lccode`^^8d=1 % >é' +\lccode`^^8e=1 % <é' +\lccode`^^b6=1 % >=é +\lccode`^^bd=1 % <=é +\lccode`ï=1 +\lccode`ü=1 +\lccode`^^8f=1 % ï` +\lccode`^^90=1 % >ï +\lccode`^^91=1 % <ï +\lccode`^^92=1 % >ï' +\lccode`^^93=1 % <ï' +\lccode`õ=1 +\lccode`û=1 +\lccode`ý=1 +\lccode`^^e0=1 % õ with diaer and oxeia +\lccode`^^94=1 % õ` +\lccode`^^95=1 % õ= +\lccode`^^96=1 % >õ +\lccode`^^97=1 % <õ +\lccode`^^98=1 % >õ' +\lccode`^^99=1 % <õ' +\lccode`ù=1 +\lccode`þ=1 +\lccode`^^ff=1 % .ù +\lccode`^^9a=1 % ù` +\lccode`^^9b=1 % ù= +\lccode`^^9c=1 % >ù +\lccode`^^9d=1 % <ù +\lccode`^^9e=1 % >ù' +\lccode`^^9f=1 % <ù' + +% Consonants and capitals +% Capital vowels get 1 to ensure hyphenation of all-capital text + +\lccode`â=`â +\lccode`ã=`ã +\lccode`ä=`ä +\lccode`æ=`æ +\lccode`è=`è +\lccode`ê=`ê +\lccode`ë=`ë +\lccode`ì=`ì +\lccode`í=`í +\lccode`î=`î +\lccode`ð=`ð +\lccode`ñ=`ñ +\lccode`ó=`ó +\lccode`ò=`ò +\lccode`ô=`ô +\lccode`ö=`ö +\lccode`÷=`÷ +\lccode`ø=`ø +\lccode`Á=1 +\lccode`^^a2=1 % 'Á +\lccode`Â=`â +\lccode`Ã=`ã +\lccode`Ä=`ä +\lccode`Å=1 +\lccode`^^b8=1 % 'E +\lccode`Æ=`æ +\lccode`Ç=1 +\lccode`^^b9=1 % 'Ç +\lccode`È=`è +\lccode`É=1 +\lccode`^^ba=1 % 'É +\lccode`^^da=1 % "É +\lccode`Ê=`ê +\lccode`Ë=`ë +\lccode`Ì=`ì +\lccode`Í=`í +\lccode`Î=`î +\lccode`Ï=1 +\lccode`^^bc=1 % 'Ï +\lccode`Ð=`ð +\lccode`Ñ=`ñ +\lccode`Ó=`ó +\lccode`Ô=`ô +\lccode`Õ=`õ +\lccode`^^be=1 % 'Õ +\lccode`^^db=1 % "Õ +\lccode`Ö=`ö +\lccode`×=`÷ +\lccode`Ø=`ø +\lccode`Ù=1 +\lccode`^^bf=1 % 'Ù +%%=================================================== + +% uccodes forget the accents and iota subscripts +% they preserve the diaeresis +% this cannot handle ligatures +% including the initial, accented cap ligatures +% but it makes \uppercase work when accented, initial capitals +% are entered in hexagesimal notation +% 'Á=^^a2, 'Å=^^b8, 'Ç=^^b9, 'É=^^ba, 'Ï=^^bc, 'Õ=^^be, 'Ù=^^bf +% or using the appropriate extended keyboard program + +\uccode`á=`Á +\uccode`Ü=`Á +\uccode`^^a1=`Á % á| +\uccode`^^a5=`Á % á` +\uccode`^^a6=`Á % á= +\uccode`^^a7=`Á % >á +\uccode`^^a8=`Á % <á +\uccode`^^a9=`Á % >á' +\uccode`^^aa=`Á % <á' +\uccode`â=` +\uccode`ã=`à +\uccode`ä=`Ä +\uccode`å=`Å +\uccode`Ý=`Å +\uccode`^^ab=`Å % å` +\uccode`^^80=`Å % >å +\uccode`^^81=`Å % <å +\uccode`^^82=`Å % >å' +\uccode`^^83=`Å % <å' +\uccode`æ=`Æ +\uccode`ç=`Ç +\uccode`Þ=`Ç +\uccode`^^bb=`Ç % ± +\uccode`^^84=`Ç % ç` +\uccode`^^85=`Ç % ç= +\uccode`^^86=`Ç % >ç +\uccode`^^87=`Ç % <ç +\uccode`^^88=`Ç % >ç' +\uccode`^^a0=`Ç % <ç' +\uccode`è=`È +\uccode`é=`É +\uccode`ß=`É +\uccode`ú=`^^da +\uccode`^^c0=`^^da % "'é +\uccode`^^89=`É % é` +\uccode`^^8a=`É % é= +\uccode`^^8b=`É % >é +\uccode`^^8c=`É % <é +\uccode`^^8d=`É % >é' +\uccode`^^8e=`É % <é' +\uccode`ê=`Ê +\uccode`ë=`Ë +\uccode`ì=`Ì +\uccode`í=`Í +\uccode`î=`Î +\uccode`ï=`Ï +\uccode`ü=`Ï +\uccode`^^8f=`Ï % ï` +\uccode`^^90=`Ï % >ï +\uccode`^^91=`Ï % <ï +\uccode`^^92=`Ï % >ï' +\uccode`^^93=`Ï % <ï' +\uccode`ð=`Ð +\uccode`ñ=`Ñ +\uccode`ó=`Ó +\uccode`ò=`Ó +\uccode`ô=`Ô +\uccode`õ=`Õ +\uccode`ý=`Õ +\uccode`û=`^^db +\uccode`^^e0=`^^db % "'õ +\uccode`^^94=`Õ % õ` +\uccode`^^95=`Õ % õ= +\uccode`^^96=`Õ % >õ +\uccode`^^97=`Õ % <õ +\uccode`^^98=`Õ % >õ' +\uccode`^^99=`Õ % <õ' +\uccode`ö=`Ö +\uccode`÷=`× +\uccode`ø=`Ø +\uccode`ù=`Ù +\uccode`þ=`Ù +\uccode`^^ff=`Ù % .ù +\uccode`^^9a=`Ù % ù` +\uccode`^^9b=`Ù % ù= +\uccode`^^9c=`Ù % >ù +\uccode`^^9d=`Ù % <ù +\uccode`^^9e=`Ù % >ù' +\uccode`Á=`Á +\uccode`^^a2=`^^a2 % 'A +\uccode`Â=` +\uccode`Ã=`à +\uccode`Ä=`Ä +\uccode`Å=`Å +\uccode`^^b8=`^^b8 % 'E +\uccode`Æ=`Æ +\uccode`Ç=`Ç +\uccode`^^b9=`^^b9 % 'H +\uccode`È=`È +\uccode`É=`É +\uccode`^^ba=`^^ba % 'I +\uccode`^^da=`^^da % "I +\uccode`Ê=`Ê +\uccode`Ë=`Ë +\uccode`Ì=`Ì +\uccode`Í=`Í +\uccode`Î=`Î +\uccode`Ï=`Ï +\uccode`^^bc=`^^bc % 'O +\uccode`Ð=`Ð +\uccode`Ñ=`Ñ +\uccode`Ó=`Ó +\uccode`Ô=`Ô +\uccode`Õ=`Õ +\uccode`^^be=`^^be % 'Y +\uccode`^^db=`^^db % "Y +\uccode`Ö=`Ö +\uccode`×=`× +\uccode`Ø=`Ø +\uccode`Ù=`Ù +\uccode `^^bf=`^^bf % 'Ù +% ============================================================= + +% From geletcatw.gr % make Greek letters letters + +% catcodes ========================================= + +% The vowels + +\catcode`á=11 +\catcode`Ü=11 +\catcode`^^a1=11 % .á +\catcode`^^a5=11 % á` +\catcode`^^a6=11 % á= +\catcode`^^a7=11 % >á +\catcode`^^a8=11 % <á +\catcode`^^a9=11 % >á' +\catcode`^^aa=11 % <á' +\catcode`å=11 +\catcode`Ý=11 +\catcode`^^ab=11 % å` +\catcode`^^80=11 % >å +\catcode`^^81=11 % <å +\catcode`^^82=11 % >å' +\catcode`^^83=11 % <å' +\catcode`ç=11 +\catcode`Þ=11 +\catcode`^^bb=11 % .ç +\catcode`^^84=11 % ç` +\catcode`^^85=11 % ç= +\catcode`^^86=11 % >ç +\catcode`^^87=11 % <ç +\catcode`^^88=11 % >ç' +\catcode`^^a0=11 % <ç' +\catcode`é=11 +\catcode`ß=11 +\catcode`ú=11 +\catcode`^^c0=11 % é with diairesis and oxeia +\catcode`^^89=11 % é` +\catcode`^^8a=11 % é= +\catcode`^^8b=11 % >é +\catcode`^^8c=11 % <é +\catcode`^^8d=11 % >é' +\catcode`^^8e=11 % <é' +\catcode`^^b6=11 % >=é +\catcode`^^bd=11 % <=é +\catcode`ï=11 +\catcode`ü=11 +\catcode`^^8f=11 % ï` +\catcode`^^90=11 % >ï +\catcode`^^91=11 % <ï +\catcode`^^92=11 % >ï' +\catcode`^^93=11 % <ï' +\catcode`õ=11 +\catcode`û=11 +\catcode`ý=11 +\catcode`^^e0=11 % õ with diaer and oxeia +\catcode`^^94=11 % õ` +\catcode`^^95=11 % õ= +\catcode`^^96=11 % >õ +\catcode`^^97=11 % <õ +\catcode`^^98=11 % >õ' +\catcode`^^99=11 % <õ' +\catcode`ù=11 +\catcode`þ=11 +\catcode`^^ff=11 % .ù +\catcode`^^9a=11 % ù` +\catcode`^^9b=11 % ù= +\catcode`^^9c=11 % >ù +\catcode`^^9d=11 % <ù +\catcode`^^9e=11 % >ù' +\catcode`^^9f=11 % <ù' +\catcode`^^b7=12 % anw telia + +% Consonants and capitals + +\catcode`â=11 +\catcode`ã=11 +\catcode`ä=11 +\catcode`æ=11 +\catcode`è=11 +\catcode`ê=11 +\catcode`ë=11 +\catcode`ì=11 +\catcode`í=11 +\catcode`î=11 +\catcode`ð=11 +\catcode`ñ=11 +\catcode`ó=11 +\catcode`ò=11 +\catcode`ô=11 +\catcode`ö=11 +\catcode`÷=11 +\catcode`ø=11 +\catcode`Á=11 +\catcode`^^a2=11 % 'Á +\catcode`Â=11 +\catcode`Ã=11 +\catcode`Ä=11 +\catcode`Å=11 +\catcode`^^b8=11 +\catcode`Æ=11 +\catcode`Ç=11 +\catcode`^^b9=11 % 'Ç +\catcode`È=11 +\catcode`É=11 +\catcode`^^ba=11 % 'É +\catcode`^^da=11 % "É +\catcode`Ê=11 +\catcode`Ë=11 +\catcode`Ì=11 +\catcode`Í=11 +\catcode`Î=11 +\catcode`Ï=11 +\catcode`^^bc=11 % 'Ï +\catcode`Ð=11 +\catcode`Ñ=11 +\catcode`Ó=11 +\catcode`Ô=11 +\catcode`Õ=11 +\catcode`^^be=11 % 'Õ +\catcode`^^db=11 % "Õ +\catcode`Ö=11 +\catcode`×=11 +\catcode`Ø=11 +\catcode`Ù=11 +\catcode`^^bf=11 % 'Ù + +% this leaves the accents of category "other" + +% only the unaccented letters get mathcodes +% ynm and the anv teleia, added + +%\mathcode`^^b7="71F5 % anv teleia, +\mathcode`^^b7="71B7 % anv teleia, +\mathcode`á="7198 +\mathcode`â="7199 +\mathcode`ã="719A +\mathcode`ä="719B +\mathcode`å="719C +\mathcode`æ="719D +\mathcode`ç="719E +\mathcode`è="719F +\mathcode`é="71A0 +\mathcode`ê="71A1 +\mathcode`ë="71A2 +\mathcode`ì="71A3 +\mathcode`í="71A4 +\mathcode`î="71A5 +\mathcode`ï="71A6 +\mathcode`ð="71A7 +\mathcode`ñ="71A8 +\mathcode`ó="71A9 +\mathcode`ò="71AA +\mathcode`ô="71AB +\mathcode`õ="71AC +\mathcode`ö="71AD +\mathcode`÷="71AE +\mathcode`ø="71AF +\mathcode`ù="71E0 +\mathcode`Á="7180 +\mathcode`Â="7181 +\mathcode`Ã="7182 +\mathcode`Ä="7183 +\mathcode`Å="7184 +\mathcode`Æ="7185 +\mathcode`Ç="7186 +\mathcode`È="7187 +\mathcode`É="7188 +\mathcode`Ê="7189 +\mathcode`Ë="718A +\mathcode`Ì="718B +\mathcode`Í="718C +\mathcode`Î="718D +\mathcode`Ï="718E +\mathcode`Ð="718F +\mathcode`Ñ="7190 +\mathcode`Ó="7191 +\mathcode`Ô="7192 +\mathcode`Õ="7193 +\mathcode`Ö="7194 +\mathcode`×="7195 +\mathcode`Ø="7196 +\mathcode`Ù="7197 + +% sfcodes ======================================================== + +\sfcode`á=1000 +\sfcode`Ü=1000 +\sfcode`^^a1=1000 % .á +\sfcode`^^a5=1000 % á` +\sfcode`^^a6=1000 % á= +\sfcode`^^a7=1000 % >á +\sfcode`^^a8=1000 % <á +\sfcode`^^a9=1000 % >á' +\sfcode`^^aa=1000 % <á' +\sfcode`å=1000 +\sfcode`Ý=1000 +\sfcode`^^ab=1000 % å` +\sfcode`^^80=1000 % >å +\sfcode`^^81=1000 % <å +\sfcode`^^82=1000 % >å' +\sfcode`^^83=1000 % <å' +\sfcode`ç=1000 +\sfcode`Þ=1000 +\sfcode`^^bb=1000 % .ç +\sfcode`^^84=1000 % ç` +\sfcode`^^85=1000 % ç= +\sfcode`^^86=1000 % >ç +\sfcode`^^87=1000 % <ç +\sfcode`^^88=1000 % >ç' +\sfcode`^^a0=1000 % <ç' +\sfcode`é=1000 +\sfcode`ß=1000 +\sfcode`ú=1000 +\sfcode`^^c0=1000 % é with diairesis and oxeia +\sfcode`^^89=1000 % é` +\sfcode`^^8a=1000 % é= +\sfcode`^^8b=1000 % >é +\sfcode`^^8c=1000 % <é +\sfcode`^^8d=1000 % >é' +\sfcode`^^8e=1000 % <é' +\sfcode`^^b6=1000 % >=é +\sfcode`^^bd=1000 % <=é +\sfcode`ï=1000 +\sfcode`ü=1000 +\sfcode`^^8f=1000 % ï` +\sfcode`^^90=1000 % >ï +\sfcode`^^91=1000 % <ï +\sfcode`^^92=1000 % >ï' +\sfcode`^^93=1000 % <ï' +\sfcode`õ=1000 +\sfcode`û=1000 +\sfcode`ý=1000 +\sfcode`^^e0=1000 % õ with diaer and oxeia +\sfcode`^^94=1000 % õ` +\sfcode`^^95=1000 % õ= +\sfcode`^^96=1000 % >õ +\sfcode`^^97=1000 % <õ +\sfcode`^^98=1000 % >õ' +\sfcode`^^99=1000 % <õ' +\sfcode`ù=1000 +\sfcode`þ=1000 +\sfcode`^^ff=1000 % .ù +\sfcode`^^9a=1000 % ù` +\sfcode`^^9b=1000 % ù= +\sfcode`^^9c=1000 % >ù +\sfcode`^^9d=1000 % <ù +\sfcode`^^9e=1000 % >ù' +\sfcode`^^9f=1000 % <ù' + +\sfcode`^^b7=1500 % ano teleia + +\sfcode`Á=999 +\sfcode`^^a2=999 % 'Á +\sfcode`Â=999 +\sfcode`Ã=999 +\sfcode`Ä=999 +\sfcode`Å=999 +\sfcode`^^b8=999 % 'E +\sfcode`Æ=999 +\sfcode`Ç=999 +\sfcode`^^b9=999 % 'Ç +\sfcode`È=999 +\sfcode`É=999 +\sfcode`^^ba=999 % 'É +\sfcode`^^da=999 % "É +\sfcode`Ê=999 +\sfcode`Ë=999 +\sfcode`Ì=999 +\sfcode`Í=999 +\sfcode`Î=999 +\sfcode`Ï=999 +\sfcode`^^bc=999 % 'Ï +\sfcode`Ð=999 +\sfcode`Ñ=999 +\sfcode`Ó=999 +\sfcode`Ô=999 +\sfcode`Õ=999 +\sfcode`^^be=999 % 'Õ +\sfcode`^^db=999 % "Õ +\sfcode`Ö=999 +\sfcode`×=999 +\sfcode`Ø=999 +\sfcode`Ù=999 + +% =========================================================== + +\def\áô{^^b7 } % anw teleia +\def\óçìåñá{\number\day~\ifcase\month\or% +Éáíïõáñßïõ\or Öåâñïõáñßïõ\or Ìáñôßïõ\or Áðñéëßïõ\or Ìáßïõ\or Éïõíßïõ\or% +Éïõëßïõ\or Áõãïýóôïõ\or Óåðôåìâñßïõ\or Ïêôùâñßïõ\or Íïåìâñßïõ\or% +Äåêåìâñßïõ\fi,~\number\year} + +% ywclabbr.gr +% the windows-fonts version of the 1994 geabbr +% September 2001, Yiannis N. Moschovakis +% +% macros for classical Greek under ygreektex + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + +%%%%%%%%%%%%%%%%%%% Constants + +% Code the accent constants with category 11 + +\def\@êâ{\char18} % we use the Knuth grave for the âáñåßá +\def\@êð{^^ad} % ðåñéóðùìÝíç +\def\@êø{^^ae} % øéëÞ +\def\@êä{^^af} % äáóåßá +\def\@êøï{^^b0} % øéëÞ-ïîåßá +\def\@êäï{^^b1} % äáóåßá-ïîåßá +\def\@êøâ{^^b2} % øéëÞ-âáñåßá +\def\@êäâ{^^b3} % äáóåßá-âáñåßá +\def\@êøð{^^b4} % øéëÞ-ðåñéóðùìÝíç +\def\@êäð{^^b5} % äáóåßá-ðåñéóðùìÝíç +\def\@êõð{^^d2} % õðïôåßíïõóá + +\def\áé{^^a1} % the three vowels with the iota subscript +\def\çé{^^bb} +\def\ùé{^^ff} +\def\õðïôåéíïõóá{^^d2} + +% Accents, aspiration marks and the greek parens get category other. +\catcode`^^ac=12% +\catcode`^^ad=12% +\catcode`^^ae=12% +\catcode`^^af=12% +\catcode`^^b0=12% +\catcode`^^b1=12% +\catcode`^^b2=12% +\catcode`^^b3=12% +\catcode`^^b4=12% +\catcode`^^b5=12% +\catcode`^^b7=12% % anv teleia +\catcode`^^a3=12% % << +\catcode`^^a4=12 % >> + + +%%%%%%%%%%%%%%%%%% The accenting tables + +\def\ø#1{% +\if#1á^^a7% +\else\if#1Ü^^a9% +\else\if#1^^a1\accent174 ^^a1% % |á +\else\if#1^^b6\accent176 ^^a1% % |'á +\else\if#1å^^80% +\else\if#1Ý^^82% +\else\if#1ç^^86% +\else\if#1Þ^^88% +\else\if#1^^a1\accent174 ^^bb% % |ç +\else\if#1^^aa\accent176 ^^bb% % |'ç +\else\if#1é^^8b% +\else\if#1ß^^8d% +\else\if#1ï^^90% +\else\if#1ü^^92% +\else\if#1õ^^96% +\else\if#1ý^^98% +\else\if#1ù^^9c% +\else\if#1þ^^9e% +\else\if#1^^ff\accent174 ^^ff% % |ù +\else\if#1^^fe\accent176 ^^f3% % |'ù +\else\@êø#1% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\øï#1{% +\if#1á^^a9% +\else\if#1^^a1\accent176 ^^a1% % |á +\else\if#1å^^82% +\else\if#1ç^^88% +\else\if#1^^bb\accent176 ^^bb% % |ç +\else\if#1é^^8d% +\else\if#1ï^^92% +\else\if#1õ^^98% +\else\if#1ù^^9e% +\else\if#1^^ff\accent176 ^^ff% % |ù +\else\@êøï#1% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + + +\def\øâ#1{% +\if#1á\accent178 á% +\else\if#1^^a1\accent178 ^^a1% % |á +\else\if#1å\accent178 å% +\else\if#1ç\accent178 ç% +\else\if#1^^bb\accent178 ^^bb% % |ç +\else\if#1é\accent178 é% +\else\if#1ï\accent178 ï% +\else\if#1õ\accent178 õ% +\else\if#1ù\accent178 ù% +\else\if#1^^ff\accent178 ^^ff% % |ù +\else\@êøâ#1% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\øð#1{% +\if#1á\accent180 á% +\else\if#1^^a1\accent180 ^^a1% % |á +\else\if#1ç\accent180 ç% +\else\if#1^^b1\accent180 ^^b1% % |ç +\else\if#1é\accent180 é% +\else\if#1õ\accent180 õ% +\else\if#1ù\accent180 ù% +\else\if#1^^ff\accent180 ^^ff% % |ù +\else\@êøð#1% +\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\ä#1{% +\if#1á^^a8% +\else\if#1Ü^^aa% +\else\if#1^^a1\accent175 ^^a1% % |á +\else\if#1^^a5\accent177 ^^a5% % |'á +\else\if#1å^^81% +\else\if#1Ý^^83% +\else\if#1ç^^87% +\else\if#1Þ^^a0% +\else\if#1^^bb\accent175 ^^bb% % |ç +\else\if#1^^ce\accent177 ^^e7% % |'ç +\else\if#1é^^8c% +\else\if#1ß^^8e% +\else\if#1ï^^91% +\else\if#1ü^^93% +\else\if#1õ^^97% +\else\if#1ý^^99% +\else\if#1ù^^9d% +\else\if#1þ^^9f% +\else\if#1^^ff\accent175 ^^ff% % |ù +\else\if#1^^da\accent177 ^^ff% % |'ù +\else\if#1ñ\accent175 ñ% +\else\@êä#1% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\äï#1{% +\if#1á^^aa% +\else\if#1^^a1\accent177 ^^a1% % |á +\else\if#1å^^83% +\else\if#1ç^^a0% +\else\if#1^^bb\accent177 ^^bb% % |ç +\else\if#1é^^8e% +\else\if#1ï^^93% +\else\if#1õ^^99% +\else\if#1ù^^9f% +\else\if#1^^ff\accent177 ^^ff% % |ù +\else\@êäï#1% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\äâ#1{% +\if#1á\accent179 á% +\else\if#1^^a1\accent179 ^^a1% % |á +\else\if#1å\accent179 å% +\else\if#1ç\accent179 ç% +\else\if#1^^bb\accent179 ^^bb% % |ç +\else\if#1é\accent179 é% +\else\if#1ï\accent179 ï% +\else\if#1õ\accent179 õ% +\else\if#1ù\accent179 ù% +\else\if#1^^ff\accent179 ^^ff% % |ù +\else\@êäâ#1% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\äð#1{% +\if#1á\accent181 á% +\else\if#1^^a1\accent181 ^^a1% % |á +\else\if#1ç\accent181 ç% +\else\if#1^^bb\accent181 ^^bb% % |ç +\else\if#1é\char180% +\else\if#1õ\accent181 õ% +\else\if#1ù\accent181 ù% +\else\if#1^^b2\accent181 ^^b2% % |ù +\else\@êäð#1% +\fi\fi\fi\fi\fi\fi\fi\fi} + +\def\â#1{% +\if#1á^^a5% +\else\if#1^^a1\accent18 ^^a1% % |á +\else\if#1å^^ab% +\else\if#1ç^^84% +\else\if#1^^bb\accent18 ^^bb% % |ç +\else\if#1é^^89% +\else\if#1^^fa\accent172 é% % "é +\else\if#1ï^^8f% +\else\if#1õ^^94% +\else\if#1^^fb\accent172 õ% % "õ +\else\if#1ù^^9a% +\else\if#1^^ff\accent18 ^^ff% % |ù +\else\@êâ#1% +\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi% +\fi\fi} + +\def\ð#1{% +\if#1á^^a6% +\else\if#1^^a1\accent173 ^^a1% % |á +\else\if#1ç^^85% +\else\if#1^^bb\accent173 ^^bb% % |ç +\else\if#1é^^8a% +\else\if#1õ^^95% +\else\if#1ù^^9b% +\else\if#1^^ff\accent173 ^^ff% % |ù +\else\@êð#1% +\fi\fi\fi\fi\fi\fi\fi\fi} + +%%%%%%%%%%%%%%%%%% End Greek commands + +%%%%%%%%%%%%%%%%%%%%%%%%%% Basic Greek encoding (OT1 extension) +%% This is by Spiliotis, with very few adjustments +%% and translated to the windows coding + +% \input LG1enc.def +\DeclareFontEncoding{LG1}{}{} +\DeclareTextAccent{\"}{LG1}{127} +\DeclareTextAccent{\'}{LG1}{19} +\DeclareTextAccent{\.}{LG1}{95} +\DeclareTextAccent{\=}{LG1}{22} +\DeclareTextAccent{\^}{LG1}{94} +\DeclareTextAccent{\`}{LG1}{18} +\DeclareTextAccent{\~}{LG1}{126} +\DeclareTextAccent{\H}{LG1}{125} +\DeclareTextAccent{\u}{LG1}{21} +\DeclareTextAccent{\v}{LG1}{20} +\DeclareTextAccent{\r}{LG1}{23} +\DeclareTextCommand{\b}{LG1}[1] + {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{29}% + \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}} +\DeclareTextCommand{\c}{LG1}[1] + {\leavevmode\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent24 #1% + \else{\ooalign{\unhbox\z@\crcr\hidewidth\char24\hidewidth}}\fi} +\DeclareTextCommand{\d}{LG1}[1] + {{\o@lign{\relax#1\crcr\hidewidth\sh@ft{10}.\hidewidth}}} +\DeclareTextSymbol{\AE}{LG1}{29} +\DeclareTextSymbol{\OE}{LG1}{30} +\DeclareTextSymbol{\O}{LG1}{31} +\DeclareTextSymbol{\ae}{LG1}{26} +\DeclareTextSymbol{\i}{LG1}{16} +\DeclareTextSymbol{\j}{LG1}{17} +\DeclareTextSymbol{\oe}{LG1}{27} +\DeclareTextSymbol{\o}{LG1}{28} +\DeclareTextSymbol{\ss}{LG1}{25} +\DeclareTextSymbol{\textemdash}{LG1}{124} +\DeclareTextSymbol{\textendash}{LG1}{123} +\DeclareTextSymbol{\textexclamdown}{LG1}{60} +\DeclareTextSymbol{\textquestiondown}{LG1}{62} +\DeclareTextSymbol{\textquotedblleft}{LG1}{92} +\DeclareTextSymbol{\textquotedblright}{LG1}{`\"} +\DeclareTextSymbol{\textquoteleft}{LG1}{`\`} +\DeclareTextSymbol{\textquoteright}{LG1}{`\'} +\DeclareTextCommand{\aa}{LG1} + {{\accent23a}} +\DeclareTextCommand{\L}{LG1} + {\leavevmode\setbox\z@\hbox{L}\hb@xt@\wd\z@{\hss\@xxxii L}} +\DeclareTextCommand{\l}{LG1} + {{\@xxxii l}} +\DeclareTextCommand{\AA}{LG1} + {\leavevmode\setbox\z@\hbox{h}\dimen@\ht\z@\advance\dimen@-1ex% + \rlap{\raise.67\dimen@\hbox{\char23}}A} +\DeclareTextCommand{\textdollar}{LG1}{{% + \ifdim \fontdimen\@ne\font >\z@ + \slshape + \else + \upshape + \fi + \char`\$}} +\DeclareTextCommand{\textsterling}{LG1}{{% + \ifdim \fontdimen\@ne\font >\z@ + \itshape + \else + \fontencoding{OT1}\fontfamily{cmr}\fontshape{ui}\selectfont + \fi + \char`\$}} + +\DeclareFontSubstitution{LG1}{ywclr}{m}{n} +\DeclareSymbolFont{letters}{OML}{ywclm}{m}{it} +\SetSymbolFont{letters}{bold}{OML}{ywclm}{b}{it} +\let\oldencdef=\encodingdefault +\let\oldrmdef=\rmdefault +\let\oldttdef=\ttdefault +\let\oldsfdef=\sfdefault +\def\setupgreek{% + \renewcommand{\encodingdefault}{LG1}% + \renewcommand{\rmdefault}{ywclr}% + \renewcommand{\ttdefault}{ywcltt}% + \renewcommand{\sfdefault}{ywclss}% +}\setupgreek +\newcommand{\nogreek}[1]{{% + \renewcommand{\encodingdefault}{\oldencdef}% + \renewcommand{\rmdefault}{\oldrmdef}% + \renewcommand{\ttdefault}{\oldttdef}% + \renewcommand{\sfdefault}{\oldsfdef}\fontencoding\oldencdef + \fontfamily\oldrmdef\selectfont#1\setupgreek}} + +% Make unaccented lc and uc Greek letters available in math +% lc +%%%%%%%%%%%%%%%%%%%% try mathfont assignments (these were missing in hammer +%\DeclareSymbolFont{operators} {LG1}{ywclr} {m}{n} +%\DeclareSymbolFont{letters} {OML}{ywclm} {m}{it} +%\DeclareSymbolFont{symbols} {OMS}{cmsy}{m}{n} +%\DeclareSymbolFont{largesymbols}{OMX}{cmex}{m}{n} +%\SetSymbolFont{operators}{bold}{LG1}{ywclr} {bx}{n} +%\SetSymbolFont{letters} {bold}{LG1}{ywclm} {b}{it} +%\SetSymbolFont{symbols} {bold}{OMS}{cmsy}{b}{n} +%\DeclareSymbolFontAlphabet{\mathrm} {operators} +%\DeclareSymbolFontAlphabet{\mathnormal}{letters} +%\DeclareSymbolFontAlphabet{\mathcal} {symbols} +\DeclareMathAlphabet {\mathrm}{LG1}{ywclr}{m}{n} +\DeclareMathAlphabet {\mathbf}{LG1}{ywclr}{bx}{n} +\DeclareMathAlphabet {\mathsf}{LG1}{ywclss}{m}{n} +\DeclareMathAlphabet {\mathit}{LG1}{ywclr}{m}{it} +\DeclareMathAlphabet {\mathtt}{LG1}{ywcltt}{m}{n} +\SetMathAlphabet\mathsf{bold}{OT1}{cmss}{bx}{n} +\SetMathAlphabet\mathit{bold}{OT1}{cmr}{bx}{it} +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\DeclareMathSymbol{^^e1}{\mathalpha}{letters}{`^^e1} +\DeclareMathSymbol{^^e2}{\mathalpha}{letters}{`^^e2} +\DeclareMathSymbol{^^e3}{\mathalpha}{letters}{`^^e3} +\DeclareMathSymbol{^^e4}{\mathalpha}{letters}{`^^e4} +\DeclareMathSymbol{^^e5}{\mathalpha}{letters}{`^^e5} +\DeclareMathSymbol{^^e6}{\mathalpha}{letters}{`^^e6} +\DeclareMathSymbol{^^e7}{\mathalpha}{letters}{`^^e7} +\DeclareMathSymbol{^^e8}{\mathalpha}{letters}{`^^e8} +\DeclareMathSymbol{^^e9}{\mathalpha}{letters}{`^^e9} +\DeclareMathSymbol{^^ea}{\mathalpha}{letters}{`^^ea} +\DeclareMathSymbol{^^eb}{\mathalpha}{letters}{`^^eb} +\DeclareMathSymbol{^^ec}{\mathalpha}{letters}{`^^ec} +\DeclareMathSymbol{^^ed}{\mathalpha}{letters}{`^^ed} +\DeclareMathSymbol{^^ee}{\mathalpha}{letters}{`^^ee} +\DeclareMathSymbol{^^ef}{\mathalpha}{letters}{`^^ef} +\DeclareMathSymbol{^^f0}{\mathalpha}{letters}{`^^f0} +\DeclareMathSymbol{^^f1}{\mathalpha}{letters}{`^^f1} +\DeclareMathSymbol{^^f2}{\mathalpha}{letters}{`^^f2} +\DeclareMathSymbol{^^f3}{\mathalpha}{letters}{`^^f3} +\DeclareMathSymbol{^^f4}{\mathalpha}{letters}{`^^f4} +\DeclareMathSymbol{^^f5}{\mathalpha}{letters}{`^^f5} +\DeclareMathSymbol{^^f6}{\mathalpha}{letters}{`^^f6} +\DeclareMathSymbol{^^f7}{\mathalpha}{letters}{`^^f7} +\DeclareMathSymbol{^^f8}{\mathalpha}{letters}{`^^f8} +\DeclareMathSymbol{^^f9}{\mathalpha}{letters}{`^^f9} +% uc +\DeclareMathSymbol{^^c1}{\mathalpha}{letters}{`^^c1} +\DeclareMathSymbol{^^c2}{\mathalpha}{letters}{`^^c2} +\DeclareMathSymbol{^^c3}{\mathalpha}{letters}{`^^c3} +\DeclareMathSymbol{^^c4}{\mathalpha}{letters}{`^^c4} +\DeclareMathSymbol{^^c5}{\mathalpha}{letters}{`^^c5} +\DeclareMathSymbol{^^c6}{\mathalpha}{letters}{`^^c6} +\DeclareMathSymbol{^^c7}{\mathalpha}{letters}{`^^c7} +\DeclareMathSymbol{^^c8}{\mathalpha}{letters}{`^^c8} +\DeclareMathSymbol{^^c9}{\mathalpha}{letters}{`^^c9} +\DeclareMathSymbol{^^ca}{\mathalpha}{letters}{`^^ca} +\DeclareMathSymbol{^^cb}{\mathalpha}{letters}{`^^cb} +\DeclareMathSymbol{^^cc}{\mathalpha}{letters}{`^^cc} +\DeclareMathSymbol{^^cd}{\mathalpha}{letters}{`^^cd} +\DeclareMathSymbol{^^ce}{\mathalpha}{letters}{`^^ce} +\DeclareMathSymbol{^^cf}{\mathalpha}{letters}{`^^cf} +\DeclareMathSymbol{^^d0}{\mathalpha}{letters}{`^^d0} +\DeclareMathSymbol{^^d1}{\mathalpha}{letters}{`^^d1} +\DeclareMathSymbol{^^d3}{\mathalpha}{letters}{`^^d3} +\DeclareMathSymbol{^^d4}{\mathalpha}{letters}{`^^d4} +\DeclareMathSymbol{^^d5}{\mathalpha}{letters}{`^^d5} +\DeclareMathSymbol{^^d6}{\mathalpha}{letters}{`^^d6} +\DeclareMathSymbol{^^d7}{\mathalpha}{letters}{`^^d7} +\DeclareMathSymbol{^^d8}{\mathalpha}{letters}{`^^d8} +\DeclareMathSymbol{^^d9}{\mathalpha}{letters}{`^^d9} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Preload the .fd files + +% lg1ywclr.fd +\DeclareFontFamily{LG1}{ywclr}{} +\DeclareFontShape{LG1}{ywclr}{m}{n} + { <5> <6> <7> <8> <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclr + }{} +\DeclareFontShape{LG1}{ywclr}{m}{sl} + { <5> <6> <7> <8> ywclsl8 + <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclsl + }{} +\DeclareFontShape{LG1}{ywclr}{m}{it} + { <5> <6> <7> ywclti7 + <8> <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclti + }{} +\DeclareFontShape{LG1}{ywclr}{m}{sc} + { <5> <6> ywclcsc6 + <7> <8> ywclcsc8 + <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclcsc + }{} +%%%%%% bold series +\DeclareFontShape{LG1}{ywclr}{b}{n} + {<->sub * ywclr/bx/n}{} + +%%%%%%% bold extended series +\DeclareFontShape{LG1}{ywclr}{bx}{n} + { <5> <6> <7> <8> <9> <10> <11> <12> <14> <17> <20> <25> <32> +<40> gen * ywclbx + }{} +\DeclareFontShape{LG1}{ywclr}{bx}{sl} + { <5> <6> <7> <8> <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclbxsl + }{} +\DeclareFontShape{LG1}{ywclr}{bx}{it} + {<->sub * ywclr/bx/n}{} + +% lg1clss.fd +\DeclareFontFamily{LG1}{ywclss}{} +\DeclareFontShape{LG1}{ywclss}{m}{n} + { <5> <6> <7> <8> ywclss8 + <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclss + }{} + +\DeclareFontShape{LG1}{ywclss}{bx}{n} + { <5> <6> <7> <8> ywclssbx8 + <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclssbx + }{} + +\DeclareFontShape{LG1}{ywclss}{m}{it} + {<->sub*ywclr/m/it}{} +\DeclareFontShape{LG1}{ywclss}{m}{sl} + {<->sub*ywclr/m/sl}{} +%%%%%% Font/shape undefined, therefore substituted +\DeclareFontShape{LG1}{ywclss}{m}{sc} + {<->sub*ywclr/m/sc}{} +%%%%%% Font/shape undefined, therefore substituted +\DeclareFontShape{LG1}{ywclss}{m}{ui} + {<->sub*ywclr/m/n}{} +%%%%%%% semibold condensed series +\DeclareFontShape{LG1}{ywclss}{sbc}{n} + {<->sub*ywclr/bx/n}{} +%%%%%%%% bold extended series +%\DeclareFontShape{LG1}{ywclss}{bx}{n} +% {<->sub*ywclss/m/n}{} +%%%%%% Font/shape undefined, therefore substituted +\DeclareFontShape{LG1}{ywclss}{bx}{ui} + {<->sub*ywclss/m/n}{} + +% lg1cltt.fd, corrected cmtt to cltt in first line, ynm +\DeclareFontFamily{LG1}{ywcltt}{\hyphenchar \font\m@ne} +\DeclareFontShape{LG1}{ywcltt}{m}{n} + { <5> <6> <7> <8> ywcltt8 + <9> <10> <11> <12> <14> <17> <20> <25> gen * ywcltt + }{} +%%%%% make sure subst shapes are available +\DeclareFontShape{LG1}{ywcltt}{m}{it} + {<->sub * ywcltt/m/n}{} +\DeclareFontShape{LG1}{ywcltt}{m}{sl} + {<->sub * ywcltt/m/n}{} +\DeclareFontShape{LG1}{ywcltt}{m}{sc} + {<->sub * ywcltt/m/n}{} +\DeclareFontShape{LG1}{ywcltt}{m}{ui} + {<->sub * ywcltt/m/n}{} +\DeclareFontShape{LG1}{ywcltt}{bx}{n} + {<->sub * ywcltt/m/n}{} +\DeclareFontShape{LG1}{ywcltt}{bx}{it} + {<->sub * ywcltt/m/n}{} +\DeclareFontShape{LG1}{ywcltt}{bx}{ui} + {<->sub * ywcltt/m/n}{} + +% omlclm.fd, changed cmm to clm, ynm +\DeclareFontFamily{OML}{ywclm}{\skewchar\font127 } +\DeclareFontShape{OML}{ywclm}{m}{it}% + { <5> <6> <7> <8> <9> <10> <11> <12> <14> <17> <20> <25> gen * ywclmi% + }{} +\DeclareFontShape{OML}{ywclm}{b}{it}{% + <5> <6> <7> <8> <9> gen * cmmib + <10> <11> <12> <14> <17> <20> <25> cmmib10 + }{} +\DeclareFontShape{OML}{ywclm}{bx}{it} + {<-> ssub * ywclm/b/it}{} + +% omsclr.fd +\DeclareFontFamily{OMS}{ywclr}{\skewchar\font48 } +\DeclareFontShape{OMS}{ywclr}{m}{n} + {<-> ssub * cmsy/m/n}{} +\DeclareFontShape{OMS}{ywclr}{m}{it} + {<-> ssub * cmsy/m/n}{} +\DeclareFontShape{OMS}{ywclr}{m}{sl} + {<-> ssub * cmsy/m/n}{} +\DeclareFontShape{OMS}{ywclr}{m}{sc} + {<-> ssub * cmsy/m/n}{} +\DeclareFontShape{OMS}{ywclr}{bx}{n} + {<-> ssub * cmsy/b/n}{} +\DeclareFontShape{OMS}{ywclr}{bx}{it} + {<-> ssub * cmsy/b/n}{} +\DeclareFontShape{OMS}{ywclr}{bx}{sl} + {<-> ssub * cmsy/b/n}{} +\DeclareFontShape{OMS}{ywclr}{bx}{sc} + {<-> ssub * cmsy/b/n}{} + +% omsclsy.fd +\DeclareFontFamily{OMS}{ywclsy}{\skewchar\font48 } +\DeclareFontShape{OMS}{ywclsy}{m}{n}{% + <5> <6> <7> <8> <9> <10> gen * cmsy + <11> <12> <14> <17> <20> <25> cmsy10 + }{} +\DeclareFontShape{OMS}{ywclsy}{b}{n}{% + <5> <6> <7> <8> <9> gen * cmbsy + <10> <11> <12> <14> <17> <20> <25>cmbsy10 + }{} + +% omxclex.fd +\DeclareFontFamily{OMX}{ywclex}{}{} +\DeclareFontShape{OMX}{ywclex}{m}{n}{ + <-> sfixed * cmex10 + }{} + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\ProcessOptions \relax % ynm +%% +%% End of file `greektex.sty'. -- cgit v1.2.3