% 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'.