% File: GREEK.TEX  (c) Peter J. Olivier. Letzte Aenderung: 8.8.88
% Erlaubt Eingabe von akzentuiertem Griechisch
% (bisher noch ohne Spiritus)
%
\def\aaa{$\alpha$} %\aaa
\def\bbb{$\beta$} %\bbb
\def\ggg{$\gamma$} %\ggg
\def\ddd{$\delta$} %\ddd
\def\eee{$\varepsilon$}% \eee
\def\zzz{$\zeta$}% \zzz
\def\hhh{$\eta$}% \hhh
\def\thh{$\vartheta$}% \thh
\def\iii{$\iota$}% \iii
\def\kkk{$\kappa$}% \kkk
\def\lll{$\lambda$}% \lll
\def\mmm{$\mu$} %\mmm
\def\nnn{$\nu$}% \nnn
\def\kss{$\xi$}% \kss
\def\ooo{$o$}% \ooo
\def\ppp{$\pi$}% \ppp
\def\rrr{$\varrho$}% \rrr
\def\sss{$\sigma$}% \sss
\def\ccc{$\varsigma$}% \ccc
\def\ttt{$\tau$} %\ttt
\def\uuu{$\upsilon$}% \uuu
\def\fff{$\varphi$}% \fff
\def\xxx{$\chi$} %\xxx
\def\pss{$\psi$}% \pss
\def\ome{$\omega$}% \ome
\font\sfi=cmssi10
\def\dig{{\sfi F}} %\dig  % <-- Digamma
%
\def\jos#1{\oalign{#1\crcr\hidewidth%    <-- iota subscriptum
  \vbox to.2ex{\ifnum\fam=\itfam%
\hbox{\kern-1.8pt{\mitfiv \char'023}}\else\hbox{{\mitfiv \char'023}}\fi%
\vss}\hidewidth}}
%
\newdimen\hjsub   \hjsub=4.5pt
\newbox\jotasub  \setbox\jotasub=\hbox{{\mitfiv \char'023}}
\advance\hjsub by -\ht\jotasub
\def\johs{$\eta$\llap\lower4.5pt\hbox{\jotasub}}%  <-- iota subscriptum 
                                                 %   f. Eta
%
\font\mitegt=cmmi8   
\font\rmten=cmr10  
\newbox\splen          \newbox\spasp
\newbox\akut           \newbox\gravis
\newbox\lenak          \newbox\lengr  
\newbox\aspak          \newbox\aspgr
\setbox\splen=\hbox{{\mitegt \char'055}}
\setbox\spasp=\hbox{{\mitegt \char'054}}
\setbox\akut=\hbox{{\rmten \char'023}}
\setbox\gravis=\hbox{{\rmten \char'022}}
\setbox\lenak=\hbox{{\splen}\kern-.1em\copy\akut} 
\setbox\lengr=\hbox{{\splen}\kern-.1em\copy\gravis}
\setbox\aspak=\hbox{{\spasp}\kern-.1em\copy\akut}
\setbox\aspgr=\hbox{{\spasp}\kern-.1em\copy\gravis}
\def\spl#1{\leavevmode\hbox{#1}\llap\raise.02ex\copy{\splen}}
\def\spa#1{\leavevmode\hbox{#1}\llap\raise.02ex\copy{\spasp}}
\def\splak#1{\leavevmode\hbox{#1}\llap\raise.02ex\copy{\lenak}}
\def\splgr#1{\leavevmode\hbox{#1}\llap\raise.02ex\copy{\lengr}}
\def\spaak#1{\leavevmode\hbox{#1}\llap\raise.02ex\copy{\aspak}}
\def\spagr#1{\leavevmode\hbox{#1}\llap\raise.02ex\copy{\aspgr}}
\def\aak{$\acute{\alpha}$} % \aak
%\def\asl{\leavevmode\raise.02ex\hbox{\spl}\llap{\kern.1em\aaa}}
\def\asl{\spl{\aaa}}
%\def\asa{\leavevmode\kern-.6em\raise.02ex\hbox{\spa}\llap{\aaa}}
\def\asa{\spa{\aaa}}
%\def\asl{{\hbox{\aaa}\llap{\hbox{\spl}}}}
%\def\asa{{\hbox{\aaa}\llap{\hbox{\spa}}}}
%\def\aslak{{\hbox{\aaa}\llap{\hbox{\splak}}}}
\def\aslak{\splak{\aaa}}
%\def\asaak{{\hbox{\aaa}\llap{\hbox{\spaak}}}}
\def\asaak{\spaak{\aaa}}
\def\agr{$\grave{\alpha}$} % \agr
\def\aslgr{\splgr{\aaa}}
\def\asagr{\spagr{\aaa}}
\def\azf{$\tilde{\alpha}$} %  \azf
%\def\aslzf{}
%\def\asazf{}
\def\ajo{\jos{$\alpha$}} %   \ajo  %     <-- umdefinieren! OK
\def\ajoak{\jos{\aak}}
\def\ajogr{\jos{\agr}}
\def\ajozf{\jos{\azf}}   %  \ajozf  %   <-- umdefinieren!  OK
\def\eak{$\acute{\varepsilon}$}%  \eak
%\def\esl{\leavevmode\raise.02ex\hbox{\)}\llap{\eee}}
%\def\esa{\leavevmode\raise.02ex\hbox{\(}\llap{\eee}}
%\def\eslak{}
%\def\esaak{}              
\def\egr{$\grave{\varepsilon}$}%  \egr
%\def\eslgr{}
%\def\esagr{}
\def\ezf{$\tilde{\varepsilon}$}
\def\hak{$\acute{\eta}$} % \hak
%\def\hsl{\leavevmode\raise.5ex\hbox{\)}\llap{\hhh}}
%\def\hsa{\leavevmode\raise.5ex\hbox{\(}\llap{\hhh}}                
%\def\hslak{}
%\def\hsaak{}              
\def\hgr{$\grave{\eta}$} %  \hgr
%\def\hslgr{}
%\def\hsagr{}              
\def\hzf{$\tilde{\eta}$} %  \hzf
%\def\hslzf{}
%\def\hsazf{}              
%\def\hjo{\johs{$\eta$}} %   \hjo  % <-- Eta + iota subscriptum              
%\def\hjoak{\johs{\hak}}           % <-- dto. mit Akut
%\def\hjogr{\johs{\hgr}}           % <-- dto. mit Gravis
%\def\hjozf{\johs{\hzf}} %   \hjozf % <-- dto. mit Zirkumflex
\def\iak{$\acute{\iota}$}   %    \iak         
%\def\isl{\leavevmode\raise.5ex\hbox{\)}\llap{\iii}}
%\def\isa{\leavevmode\raise.5ex\hbox{\(}\llap{\iii}}
%\def\islak{}
%\def\isaak{}               
\def\igr{$\grave{\iota}$} %  \igr
%\def\islgr{}
%\def\isagr{}
\def\izf{$\tilde{\iota}$} %  \izf
%\def\islzf{}
%\def\isazf{}
\def\itr{$\ddot{\iota}$} % \itr
\def\itrak{\lak{\itr}}  % \itrak
\def\itrgr{\lgr{\itr}}   % \itrgr
\def\itrzf{\til{\itr}}   % \itrzf
\def\uak{$\acute{\upsilon}$}  %  \uak
\def\usl{\leavevmode\raise.5ex\hbox{\)}\llap{\uuu}}
%\def\usa{\leavevmode\raise.5ex\hbox{\(}\llap{\uuu}}
%\def\uslak{}
%\def\usaak{}
\def\ugr{$\grave{\upsilon}$}  %  \ugr
%\def\uslgr{}
%\def\usagr{}
\def\uzf{$\tilde{\upsilon}$} %  \uzf
%\def\uslzf{}
%\def\usazf{}
\def\utr{$\ddot{\upsilon}$} %  \utr
\def\utrak{\lak{\utr}}   % \utrak
\def\utrgr{\lgr{\utr}}    % \utrgr
\def\utrzf{\til{\utr}}   % \utrzf
\def\oak{$\acute{o}$}  %  \oak
%\def\osl{\leavevmode\raise.5ex\hbox{\)}\llap{\ooo}}
%\def\osa{\leavevmode\raise.5ex\hbox{\(}\llap{\ooo}}
%\def\oslak{}
%\def\osaak{}
\def\ogr{$\grave{o}$}  %   \ogr
\def\ozf{$\tilde{o}$}
%\def\oslgr{}
%\def\osagr{}
\def\omak{$\acute{\omega}$}  % \omak
%\def\omsl{\leavevmode\raise.5ex\hbox{\)}\llap{\ome}}
%\def\omsa{\leavevmode\raise.5ex\hbox{\(}\llap{\ome}}
%\def\omslak{}
%\def\omsaak{}
\def\omgr{$\grave{\omega}$}   % \omgr
%\def\omslgr{}
%\def\omsagr{}
\def\omzf{$\tilde{\omega}$}  % \omzf
%\def\omslzf{}
%\def\omsazf{}
\def\omjo{\jos{$\omega$}}
\def\omjoak{\jos{\omak}}
\def\omjogr{\jos{\omgr}}
\def\omjozf{\jos{\omzf}}
%
%
\def\AAA{$A$}% \AAA
\def\BBB{$B$}% \BBB
\def\GGG{$\it \Gamma$}% \GGG
\def\DDD{$\it \Delta$} %\DDD
\def\EEE{$E$} %\EEE
\def\ZZZ{$Z$} %\ZZZ
\def\HHH{$H$}% \HHH
\def\THH{$\it \Theta$}
\def\III{$I$}% \III
\def\KKK{$K$}% \KKK
\def\LLL{$\it \Lambda$}% \LLL
\def\MMM{$M$}% \MMM
\def\NNN{$N$}% \NNN
\def\KSS{$\it \Xi$}% \KSS 
\def\OOO{$O$}% \OOO
\def\PPP{$\it \Pi$}% \PPP
\def\RRR{$P$}% \RRR
\def\SSS{$\it \Sigma$}% \SSS
\def\TTT{$T$}% \TTT
\def\YYY{$Y$}% \YYY
\def\FFF{$\it \Phi$}% \FFF 
\def\XXX{$X$}% \XXX 
\def\PSS{$\it \Psi$}% \PSS 
\def\OME{$\it \Omega$}% \OME
%