From f0b4a8b8bfae4f4191bb67e7e53ee5e74a8ffdcf Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 13 Jan 2006 00:08:48 +0000 Subject: teubner git-svn-id: svn://tug.org/texlive/trunk@1377 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/teubner/teubner.sty | 1116 +++++++++++++++++++++++ 1 file changed, 1116 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/teubner/teubner.sty (limited to 'Master/texmf-dist/tex') diff --git a/Master/texmf-dist/tex/latex/teubner/teubner.sty b/Master/texmf-dist/tex/latex/teubner/teubner.sty new file mode 100644 index 00000000000..b6d6a29490e --- /dev/null +++ b/Master/texmf-dist/tex/latex/teubner/teubner.sty @@ -0,0 +1,1116 @@ +%% +%% This is file `teubner.sty', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% teubner.dtx (with options: `package') +%% +%% Copyright 2001--2004 Claudio Beccari All rights reserved. +%% +%% This system is distributed in the hope that it will be useful, +%% but WITHOUT ANY WARRANTY; without even the implied warranty of +%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +%% +%% +%% IMPORTANT NOTICE: +%% +%% You are not allowed to change this file. +%% +%% You are allowed to distribute this file under the condition that it is +%% specified in the source file teubner.dtx. +%% +%% If you receive only some of these files from someone, complain! +%% +%% You are NOT ALLOWED to distribute this file alone. You are NOT +%% ALLOWED to take money for the distribution or use of either this +%% file or a changed version, except for a nominal charge for copying +%% etc. +%% \CharacterTable +%% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z +%% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z +%% Digits \0\1\2\3\4\5\6\7\8\9 +%% Exclamation \! Double quote \" Hash (number) \# +%% Dollar \$ Percent \% Ampersand \& +%% Acute accent \' Left paren \( Right paren \) +%% Asterisk \* Plus \+ Comma \, +%% Minus \- Point \. Solidus \/ +%% Colon \: Semicolon \; Less than \< +%% Equals \= Greater than \> Question mark \? +%% Commercial at \@ Left bracket \[ Backslash \\ +%% Right bracket \] Circumflex \^ Underscore \_ +%% Grave accent \` Left brace \{ Vertical bar \| +%% Right brace \} Tilde \~} +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{teubner} + [2004/09/14 v.2.2b extensions for Greek philology] +\ifx\teubner\undefined + \def\teubner{teubner}\else\expandafter\endinput +\fi +\newif\ifPDF \PDFfalse +\@ifundefined{pdfoutput}{\PDFfalse}{\ifnum\pdfoutput>\z@\PDFtrue\fi} +\ifx\captionsgreek\undefined +\PackageError{teubner}{Greek language unknown!\MessageBreak +I am not going to use Lipsian fonts and Scholars' signs\MessageBreak +if Greek is unknown.\MessageBreak +Use the babel package with the \texttt{greek} option.\MessageBreak +Type X to exit.}% +{Type X to exit.} +\fi +\newif\ifor\orfalse % Compatibility with older versions +\DeclareOption{or}{\relax} +\ProcessOptions* +\def\GRencoding@name{LGR} +\input{lgrcmr.fd} +\expandafter\EC@family\expandafter{\GRencoding@name}{cmr}{m}{it} {grml} +\expandafter\EC@family\expandafter{\GRencoding@name}{cmr}{bx}{it} {grxl} +\DeclareFontFamily{U}{mtr}{\hyphenchar\font\m@ne} +\EC@family{U}{mtr}{m}{n}{gmtr} +\DeclareFontShape{U}{mtr}{m}{it}{<->ssub*mtr/m/n}{} +\newcommand*\metricsfont{\fontencoding{U}\fontfamily{mtr}\upshape} +\RequirePackage{exscale} +\ifx\languageattribute\undefined + \def\GreekName{polutonikogreek}% +\else + \languageattribute{greek}{polutoniko}\def\GreekName{greek}% +\fi +\AtBeginDocument{% + \edef\previouslanguage{\languagename}% + \edef\previousencoding{\f@encoding}% +} +\DeclareRobustCommand\Lipsiakostext{\edef\previouslanguage{\languagename}% + \edef\previousencoding{\f@encoding}% + \expandafter\select@language\expandafter{\GreekName}% + \let\~\GRcirc\let~\greek@tilde\itshape} +\DeclareRobustCommand\NoLipsiakostext{% + \expandafter\select@language\expandafter{\previouslanguage}% + \expandafter\fontencoding\expandafter{\previousencoding}\upshape + \edef\previouslanguage{\languagename}% + \edef\previousencoding{\f@encoding}\bbl@activate{~}% +} +\DeclareRobustCommand\textLipsias[1]{{% + \expandafter\select@language\expandafter{\GreekName}% + \expandafter\fontencoding\expandafter{\GRencoding@name}% + \itshape\let\~\GRcirc\let~\greek@tilde#1}% +} +\DeclareRobustCommand\textDidot[1]{{% + \expandafter\select@language\expandafter{\GreekName}% + \expandafter\fontencoding\expandafter{\GRencoding@name}% + \upshape\let\~\GRcirc\let~\greek@tilde#1}% +} +\DeclareRobustCommand\textlatin[1]{\edef\externalencoding{\f@encoding}{% + \expandafter\select@language\expandafter{\previouslanguage}% + \expandafter\fontencoding\expandafter{\previousencoding}% + \bbl@activate{~}\upshape#1}% + \expandafter\fontencoding\expandafter{\externalencoding}\selectfont} +{% +\catcode`p=12\catcode`t=12\gdef\numero#1pt{#1}% +} +\newcommand*\lift@accent[2]{\leavevmode +{\edef\slant@{\expandafter\numero\the\fontdimen1\font}% +\dimen@=\z@\setbox\z@\hbox{\char#1}\advance\dimen@-.5\wd\z@ +\setbox\tw@\hbox{i}\setbox\z@\hbox{#2}% +\ifdim\wd\z@>\wd\tw@\advance\dimen@ .5\wd\z@ + \else\advance\dimen@ .3\wd\z@\fi +\ifx#2a\advance\dimen@-.1\wd\z@\fi +\ifx#2h\advance\dimen@.05\wd\z@\fi +\@tempdima\ht\z@\advance\@tempdima-1ex\relax +\advance\dimen@\slant@\@tempdima +\raise\@tempdima\hbox to\z@{\kern\dimen@\char#1\relax\hss}\box\z@}} +\newcommand*\Lift@accent[2]{\leavevmode +{\edef\slant@{\expandafter\numero\the\fontdimen1\font}% +\dimen@=\z@\setbox\z@\hbox{\char#1}\advance\dimen@-.5\wd\z@ +\setbox\tw@\hbox{i}\setbox\z@\hbox{#2}% +\ifdim\wd\z@>\wd\tw@\advance\dimen@ .5\wd\z@ +\else\advance\dimen@ .3\wd\z@\fi +\ifx#2a\advance\dimen@-.1\wd\z@\fi +\ifx#2h\advance\dimen@.05\wd\z@\fi +\@tempdima\ht\z@\advance\@tempdima-1ex\advance\@tempdima.1ex\relax +\advance\dimen@\slant@\@tempdima +\raise\@tempdima\hbox to\z@{\kern\dimen@\char#1\relax\hss}\box\z@}} +\newcommand*\LIFT@accent[3]{\leavevmode +{\edef\slant@{\expandafter\numero\the\fontdimen1\font}% +\dimen@=\z@\setbox\z@\hbox{\char#1}\advance\dimen@-.5\wd\z@ +\setbox\tw@\hbox{i}\setbox\z@\hbox{#3}% +\ifdim\wd\z@>\wd\tw@\advance\dimen@ .5\wd\z@ +\else\advance\dimen@ .3\wd\z@\fi +\ifx#2a\advance\dimen@-.1\wd\z@\fi +\ifx#2h\advance\dimen@.05\wd\z@\fi +\@tempdima\ht\z@\advance\@tempdima-1ex\relax +\def\@tempA{#2}\ifx\@tempA\undefined\else +\advance\@tempdima#2\fi\let\@tempA\undefined +\advance\dimen@\slant@\@tempdima +\raise\@tempdima\hbox to\z@{\kern\dimen@\char#1\relax\hss}\box\z@}} +\DeclareRobustCommand{\cap@}[1]{\leavevmode +{\edef\slant@{\expandafter\numero\the\fontdimen1\font}% +\setbox\tw@\hbox{\fontencoding{\GRencoding@name}\selectfont + \char1}\dimen@-.5\wd\tw@ +\setbox\z@\hbox{#1}% +\advance\dimen@ .5\wd\z@ +\@tempdima\ht\z@\advance\@tempdima.55ex\relax +\advance\dimen@\slant@\@tempdima +\ifx\cf@encoding\GRencoding@name\else +\ifx#1k\advance\dimen@-.3\wd\tw@\fi\fi +\raise\@tempdima\hbox to\z@{\kern\dimen@\box\tw@\relax\hss}\box\z@}} +\DeclareTextCommand{\cap}{\GRencoding@name}{\cap@} +\DeclareTextCommand{\cap}{OT1}{\cap@} +\DeclareTextCommand{\cap}{T1}{\cap@} +\newcommand*\cap@cedilla[1]{\leavevmode +{\setbox4\hbox{\fontencoding{\GRencoding@name}\selectfont\char1}% +\dimen@-.5\wd4 +\setbox\z@\hbox{#1}% +\ifx\cf@encoding\GRencoding@name +\ifx#1i\advance\dimen@ .65\wd\z@\else\advance\dimen@ .6\wd\z@\fi +\else +\ifx#1i\advance\dimen@ .55\wd\z@\else\advance\dimen@ .5\wd\z@\fi +\fi +\hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}} +\newcommand*\ring@cedilla[1]{\leavevmode +{\setbox4\hbox{\metricsfont\char26}% +\edef\slant@{\expandafter\numero\the\fontdimen1\font}% +\dimen@-.5\wd4\ifdim\slant@\p@>\z@\advance\dimen@-.04ex\fi +\setbox\z@\hbox{#1}% +\ifx\cf@encoding\GRencoding@name + \advance\dimen@ .45\wd\z@ + \ifx#1h\advance\dimen@-.13\wd\z@\fi + \ifx#1a\advance\dimen@-.07\wd\z@\fi + \ifx#1o\advance\dimen@-.07\wd\z@\fi + \ifx#1u\advance\dimen@+.07\wd\z@\fi + \ifx#1w\advance\dimen@+.03\wd\z@\fi +\else + \ifx#1i\advance\dimen@ .55\wd\z@\else + \ifx#1r\advance\dimen@.38\wd\z@\else + \ifx#1o\advance\dimen@.47\wd\z@\else + \advance\dimen@ .5\wd\z@ + \fi\fi\fi +\fi +\hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}} +\newcommand*\dot@cedilla[1]{\leavevmode +{\setbox4\hbox{\metricsfont\char27}% +\dimen@-.5\wd4 +\setbox\tw@\hbox{i}\setbox\z@\hbox{#1}% +\ifx\cf@encoding\GRencoding@name + \advance\dimen@ .5\wd\z@ + \ifx#1h\advance\dimen@-.13\wd\z@\fi +\else + \ifdim\wd\z@>\wd\tw@\advance\dimen@.55\wd\z@ + \else\advance\dimen@.5\wd\tw@\fi +\fi +\setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi +\hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}} +\newcommand*\tie@cedilla[1]{\leavevmode % mette un tie sotto l'argomento +{\setbox4\hbox{\fontencoding{\GRencoding@name}\selectfont\char20}% +\dimen@-.5\wd4 +\setbox\tw@\hbox{i}\setbox\z@\hbox{#1}% +\ifx\cf@encoding\GRencoding@name + \advance\dimen@.5\wd\z@ + \ifx#1h\advance\dimen@-.1\wd\z@\fi + \ifx#1u\advance\dimen@.15\wd\z@\fi +\else + \ifdim\wd\z@>\wd\tw@\advance\dimen@ .55\wd\z@ + \else\advance\dimen@ .5\wd\tw@\fi +\fi +\setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi +\hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}} +\DeclareTextCommand{\`}{\GRencoding@name}[1]{\lift@accent{96}{#1}} +\DeclareTextCommand{\'}{\GRencoding@name}[1]{\lift@accent{39}{#1}} +\DeclareTextCommand{\GRcirc}{\GRencoding@name}[1]{\lift@accent{126}{#1}} +\DeclareTextCommand{\~}{\GRencoding@name}[1]{\lift@accent{126}{#1}} +\DeclareTextCommand{\"}{\GRencoding@name}[1]{\lift@accent{34v}{#1}} +\DeclareTextCommand{\u}{\GRencoding@name}[1]{\lift@accent{30}{#1}} +\DeclareTextCommand{\U}{\GRencoding@name}[1]{\lift@accent{151}{#1}} +\DeclareTextCommand{\=}{\GRencoding@name}[1]{\lift@accent{31}{#1}} +\DeclareTextCommand{\r}{\GRencoding@name}[1]{\lift@accent{60}{#1}} +\DeclareTextCommand{\s}{\GRencoding@name}[1]{\lift@accent{62}{#1}} +\DeclareTextCommand{\Ad}{\GRencoding@name}[1]{\lift@accent{35}{#1}} +\DeclareTextCommand{\Gd}{\GRencoding@name}[1]{\lift@accent{36}{#1}} +\DeclareTextCommand{\Cd}{\GRencoding@name}[1]{\lift@accent{32}{#1}} +\DeclareTextCommand{\Ar}{\GRencoding@name}[1]{\lift@accent{86}{#1}} +\DeclareTextCommand{\Gr}{\GRencoding@name}[1]{\lift@accent{67}{#1}} +\DeclareTextCommand{\Cr}{\GRencoding@name}[1]{\lift@accent{64}{#1}} +\DeclareTextCommand{\As}{\GRencoding@name}[1]{\lift@accent{94}{#1}} +\DeclareTextCommand{\Gs}{\GRencoding@name}[1]{\lift@accent{95}{#1}} +\DeclareTextCommand{\Cs}{\GRencoding@name}[1]{\lift@accent{92}{#1}} +\DeclareTextCommand{\c}{\GRencoding@name}[1]{\cap@cedilla{#1}} +\DeclareTextCommand{\semiv}{\GRencoding@name}[1]{\cap@cedilla{#1}} +\DeclareTextCommand{\semiv}{OT1}[1]{\cap@cedilla{#1}} +\DeclareTextCommand{\semiv}{T1}[1]{\cap@cedilla{#1}} +\DeclareTextCommand{\ring}{\GRencoding@name}[1]{\ring@cedilla{#1}} +\DeclareTextCommand{\ring}{OT1}[1]{\ring@cedilla{#1}} +\DeclareTextCommand{\ring}{T1}[1]{\ring@cedilla{#1}} +\DeclareTextCommand{\Dot}{\GRencoding@name}[1]{\dot@cedilla{#1}} +\DeclareTextCommand{\Dot}{OT1}[1]{\dot@cedilla{#1}} +\DeclareTextCommand{\Dot}{T1}[1]{\dot@cedilla{#1}} +\DeclareTextCommand{\ut}{\GRencoding@name}[1]{\tie@cedilla{#1}} +\DeclareTextCommand{\ut}{OT1}[1]{\tie@cedilla{#1}} +\DeclareTextCommand{\ut}{T1}[1]{\tie@cedilla{#1}} +\DeclareTextCommand{\Ab}{\GRencoding@name}[1]% + {\LIFT@accent{39}{-.15ex}{\lift@accent{30}{#1}}} +\DeclareTextCommand{\Gb}{\GRencoding@name}[1]% + {\LIFT@accent{96}{-.15ex}{\lift@accent{30}{#1}}} +\DeclareTextCommand{\Arb}{\GRencoding@name}[1]% + {\LIFT@accent{86}{-.15ex}{\lift@accent{30}{#1}}} +\DeclareTextCommand{\Grb}{\GRencoding@name}[1]% + {\LIFT@accent{67}{-.15ex}{\lift@accent{30}{#1}}} +\DeclareTextCommand{\Asb}{\GRencoding@name}[1]% + {\LIFT@accent{94}{-.15ex}{\lift@accent{30}{#1}}} +\DeclareTextCommand{\Gsb}{\GRencoding@name}[1]% + {\LIFT@accent{95}{-.15ex}{\lift@accent{30}{#1}}} +\DeclareTextCommand{\Am}{\GRencoding@name}[1]% + {\Lift@accent{39}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Gm}{\GRencoding@name}[1]% + {\Lift@accent{96}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Cm}{\GRencoding@name}[1]% + {\Lift@accent{126}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Arm}{\GRencoding@name}[1]% + {\Lift@accent{86}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Grm}{\GRencoding@name}[1]% + {\Lift@accent{67}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Crm}{\GRencoding@name}[1]% + {\Lift@accent{64}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Asm}{\GRencoding@name}[1]% + {\Lift@accent{94}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Gsm}{\GRencoding@name}[1]% + {\Lift@accent{95}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Csm}{\GRencoding@name}[1]% + {\Lift@accent{92}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Sm}{\GRencoding@name}[1]% + {\Lift@accent{62}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\Rm}{\GRencoding@name}[1]% + {\Lift@accent{60}{\lift@accent{31}{#1}}} +\DeclareTextCommand{\bd}{\GRencoding@name}[1]% + {\LIFT@accent{30}{-.1ex}{\lift@accent{34v}{#1}}} +\DeclareTextCommand{\iS}{\GRencoding@name}[1] + {\ooalign{#1\crcr\hidewidth\char124\hidewidth}} +\DeclareTextCommand{\d}{\GRencoding@name}[1]% + {\leavevmode\bgroup\o@lign{\relax#1\crcr + \hidewidth\sh@ft{10}.\hidewidth}\egroup} +\DeclareRobustCommand{\Open}[1]{\leavevmode +{\setbox4\hbox{\raise-.33ex\hbox{\metricsfont\char14}}% +\dimen@-.5\wd4 +\setbox\tw@\hbox{i}\setbox\z@\hbox{#1}% +\ifx\cf@encoding\GRencoding@name + \advance\dimen@ .5\wd\z@ + \setbox\tw@\hbox{h}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.13\wd\z@\fi +\else + \ifdim\wd\z@>\wd\tw@\advance\dimen@ .55\wd\z@ + \else\advance\dimen@ .5\wd\tw@\fi +\fi +\setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi +\hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}} +\DeclareRobustCommand{\nasal}[1]{\leavevmode +{\setbox4\hbox{\raise-1.7ex\hbox{\GEcq}}% +\dimen@-.5\wd4 +\setbox\tw@\hbox{i}\setbox\z@\hbox{#1}% +\ifx\cf@encoding\GRencoding@name + \advance\dimen@ .5\wd\z@ + \setbox\tw@\hbox{h}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.13\wd\z@\fi +\else + \ifdim\wd\z@>\wd\tw@\advance\dimen@ .55\wd\z@ + \else\advance\dimen@ .5\wd\tw@\fi +\fi +\setbox\tw@\hbox{o}\ifdim\wd\z@=\wd\tw@\advance\dimen@-.05\wd\z@\fi +\hbox to\z@{\kern\dimen@\box4\hss}\unhbox\z@}} +\DeclareRobustCommand{\tenaspir}[1]{#1\/% + {\fontencoding{\GRencoding@name}\selectfont\z@ + \do{\kern.4ex\d{v}\kern.4ex\advance\count255\m@ne}}} +\newcommand\DOTS[1][1]{{\count255=#1\@whilenum\count255>\z@ + \do{\kern.8ex\d{v}\kern.8ex\advance\count255\m@ne}}} +\newcommand\Dashes[1][1]{{\count255=#1\@whilenum\count255>\z@ + \do{\kern.4ex--\kern.4ex\advance\count255\m@ne}}} +\newcommand\DASHES[1][1]{{\count255=#1\@whilenum\count255>\z@ + \do{\kern.8ex--\kern.8ex\advance\count255\m@ne}}} +\DeclareRobustCommand{\:}{\textormath{\tw@dots}{\mskip\medmuskip}} +\DeclareRobustCommand{\;}{\textormath{\thre@dots}{\mskip\thickmuskip}} +\DeclareRobustCommand{\?}{\f@urdots} +\DeclareRobustCommand{\mutpers}{\makebox[1ex]{\:\hfill\:}\space} +\let\MutPers\mutpers\let\antilabe\mutpers +\def\tw@dots{\mbox{\kern1\p@\vbox to1ex{\hbox{.}\vss\hbox{.}}}} +\def\thre@dots{\mbox{\kern1\p@\vbox to 2ex{\hbox{.}\vss + \hbox{.}\vss\hbox{.}}}} +\def\f@urdots{\mbox{\kern1\p@\vbox to 2ex{\hbox{.}\vss + \hbox{.}\vss\hbox{.}\vss\hbox{.}}}} +\DeclareRobustCommand{\|}{\relax\ensuremath{\mskip2mu\vert}} +\DeclareRobustCommand{\dBar}{\ensuremath{\vert\vert}} +\DeclareRobustCommand{\tBar}{\ensuremath{\vert\vert\vert}} +\def\negthinspace{\nobreak\hskip-0.07em} +\def\posthinspace{\nobreak\hskip0.07em} +\def\posthindspace{\nobreak\hskip0.14em} +\renewcommand{\,}{\textormath{\posthinspace}{\mskip\thinmuskip}} +\renewcommand{\!}{\textormath{\negthinspace}{\mskip-\thinmuskip}} +\DeclareRobustCommand{\lbrk}{{\metricsfont\posthindspace[\negthinspace}} +\DeclareRobustCommand{\rbrk}{{\metricsfont]}} +\DeclareRobustCommand\lmqi{{\metricsfont!}} +\DeclareRobustCommand\rmqi{{\metricsfont:}} +\DeclareRobustCommand\lmqs{{\metricsfont?}} +\DeclareRobustCommand\rmqs{{\metricsfont;}} +\DeclareRobustCommand\mqi[1]{\posthinspace\lmqi\negthinspace + {#1\/}\rmqi}\let\mezzeq\mqi +\DeclareRobustCommand\mqs[1]{\lmqs{#1\/}\rmqs} +\DeclareRobustCommand{\Ladd}[1]{{\metricsfont<}{\!\!#1\/}% + {\metricsfont>}}% litterae certe addendae +\DeclareRobustCommand{\LLadd}[1]{{\metricsfont<\kern-.3ex<}%subst. \hskip with \kern + {\!\!#1\/}{\metricsfont>\kern-.3ex>}}% litterae certe addendae +\DeclareRobustCommand{\ladd}[1]{{\metricsfont\kern.15ex[\negthinspace}% + {#1\/}{\metricsfont]\kern-.15ex}}% litterae addendae +\DeclareRobustCommand{\lladd}[1]{{\metricsfont\kern.15ex[\kern-.3ex[% + \negthinspace}{#1\/}{\metricsfont]\kern-.3ex]% + \kern-.15ex}}% litterae addendae +\DeclareRobustCommand{\lesp}[1]% + {\mbox{$\{\kern-.20ex$#1\kern.16ex$\}$}}% litterae delendae +\let\ldel\lesp +\DeclareTextCommand{\itopenquotes}{\GRencoding@name}% + {{\fontencoding{OT1}\selectfont\char92}}% +\DeclareTextCommand{\itclosedquotes}{\GRencoding@name}% + {{\fontencoding{OT1}\selectfont\char34}}% +\let\itoq\itopenquotes +\let\itcq\itclosedquotes +\newcommand\GEodq{\bgroup\futurelet\@tempA\GE@dq} +\def\GE@dq{{\metricsfont\char18}\ifx\@tempA m\posthinspace\fi\egroup} +\newcommand\GEcdq{{\metricsfont\char16}} +\newcommand\GEdqtext[1]{\GEodq\posthinspace#1\/\posthinspace\GEcdq} +\newcommand\GEoq{\bgroup\futurelet\@tempA\GE@q} +\def\GE@q{{\metricsfont\char13}\ifx\@tempA m\posthinspace\fi\egroup} +\newcommand\GEcq{{\metricsfont\char19}} +\newcommand\GEqtext[1]{\GEoq\posthinspace#1\/\posthinspace\GEcq} +\newcommand\ENodq{{\metricsfont\char16}} +\newcommand\ENcdq{{\metricsfont\char17}} +\newcommand\ENdqtext[1]{\ENodq\negthinspace#1\/\posthinspace\ENcdq} +\DeclareRobustCommand\LitNil{\textbullet} +\let\litnil\LitNil +\DeclareTextSymbol{\sva}{\GRencoding@name}{26} +\DeclareTextCommand\sva{OT1}{{\expandafter\fontencoding + \expandafter{\GRencoding@name}\selectfont\sva}} +\DeclareTextCommand\sva{T1}{{\expandafter\fontencoding + \expandafter{\GRencoding@name}\selectfont\sva}} +\let\shva\sva\let\shwa\sva +\DeclareRobustCommand\skewstack[2]{{% +\edef\slant@{\expandafter\numero\the\fontdimen1\font}% +\setbox\z@\hbox{#1}\dimen@\ht\z@\box\z@ +\kern-.045em\setbox\@ne\hbox{\scriptsize#2}% +\ifdim\dimen@>1.2ex\advance\dimen@-\ht\@ne\else + \dimen@1ex\advance\dimen@-.5\ht\@ne\fi +\kern\slant@\dimen@\raise\dimen@\hbox{\box\@ne}}} +\DeclareRobustCommand\hv{{\fontencoding{OT1}\selectfont + \skewstack{h}{v}}} +\DeclareRobustCommand\qw{{\fontencoding{OT1}\selectfont + \skewstack{q}{w}}} +\DeclareRobustCommand\gw{{\fontencoding{OT1}\selectfont + \skewstack{g}{w}}} +\DeclareRobustCommand\gusv{{\fontencoding{OT1}\selectfont + \skewstack{g}{\semiv{u}}}} +\DeclareRobustCommand\qusv{{\fontencoding{OT1}\selectfont + \skewstack{q}{\semiv{u}}}} +\DeclareRobustCommand\qu{{\fontencoding{OT1}\selectfont + \skewstack{q}{u}}} +\DeclareRobustCommand\dz{{\fontencoding{OT1}\selectfont d\kern-.33ex z}} +\DeclareRobustCommand\Utie[1]{% +\mbox{\vtop{\ialign{##\crcr + \hfil#1\hfil\crcr + \noalign{\kern.3ex\nointerlineskip}% + \hfil$\smile$\hfil\crcr}}}} +\DeclareRobustCommand{\siner}[1]{% +\mbox{\vtop{\ialign{##\crcr + \hfil#1\hfil\crcr + \noalign{\kern.6ex\nointerlineskip}% + \upfill\crcr}}}} +\let\siniz\siner +\def\upfill{$\m@th \scriptstyle\setbox\z@\hbox{$\scriptstyle\bracelu$}% + \kern.16ex\bracelu\ifPDF\kern-.15ex\fi + \leaders\vrule \@height\ifPDF.85\fi\ht\z@ \@depth\z@\hfill + \braceru\kern.16ex$} +\def\downfill{$\m@th\scriptstyle\setbox\z@\hbox{$\scriptstyle\braceld$}% + \kern.16ex\braceld\ifPDF\kern-.15ex\fi + \leaders\vrule \@height\ifPDF.85\fi\ht\z@ \@depth\z@\hfill + \bracerd\kern.16ex$} +\newcommand*\zeugma[1]{{\vbox{\setbox\z@\hbox{#1}\dimen@=\ht\z@ + \edef\@slant{\expandafter\numero\the\fontdimen1\font}% + \dimen\tw@=\wd\z@ + \dimen@=\@slant\dimen@\ifmetricsfont\dimen@=\z@ + \advance\dimen\tw@-.5ex\fi + \kern-.2ex\ialign{##\crcr + \hbox to\z@{\ifmetricsfont\kern.25ex\fi\kern\dimen@ + \hbox to\dimen\tw@{\hss\downfill\kern.2\dimen@\hss}\hss}\crcr + \noalign{\ifmetricsfont\kern.6ex + \else\kern.4ex\fi\nointerlineskip}% + \hfil{#1}\hfil\crcr}}}% +} +\newcommand*\slzeugma[1]{{\leavevmode + \setbox\tw@\hbox{\metricsfont\char120}% + \setbox\z@\hbox{#1}\dimen@.5\wd\z@\advance\dimen@-.5\wd\tw@ + \edef\@slant{\expandafter\numero\the\fontdimen1\font}% + \advance\dimen@\@slant\ht\z@ + \hbox to\z@{\kern\dimen@\box\tw@\hss}\box\z@ + }% +} +\newcommand*\rszeugma[1]{{\leavevmode + \setbox\tw@\hbox{\metricsfont\char122}% + \setbox\z@\hbox{#1}\dimen@.5\wd\z@\advance\dimen@-.5\wd\tw@ + \edef\@slant{\expandafter\numero\the\fontdimen1\font}% + \advance\dimen@\@slant\ht\z@ + \hbox to\z@{\kern\dimen@\box\tw@\hss}\box\z@ + }% +} +\newcommand*{\nexus}[1]{{\setbox\tw@\hbox{#1}% + \edef\slant@{\expandafter\numero\the\fontdimen1\font}% + \@tempdima=\slant@\ht\tw@\advance\@tempdima.45ex + \setbox4\hbox to\wd\tw@{\hss\nexusfill\hss} + \vbox{\ialign{##\crcr% + \kern\@tempdima\box4 + \crcr + \noalign{\kern.15ex\nointerlineskip}% + \hfil{#1}\hfil\crcr}}}} +\newcommand*\nesso[1]{{\setbox\tw@\hbox{#1}% + \edef\slant@{\expandafter\numero\the\fontdimen1\font}% + \@tempdima=\slant@\ht\tw@\advance\@tempdima.9ex + \ifdim\wd\tw@<1ex + \setbox4\hbox{\metricsfont\kern-.5ex\Hat}% + \else + \setbox4\hbox to\wd\tw@{\hss\nexfill\hss}% + \fi + \vbox{\ialign{##\crcr% + \kern\@tempdima\box4 + \crcr + \noalign{\kern.15ex\nointerlineskip}% + \hfil\box\tw@\hfil\crcr}}}} +{\catcode`\^=12\relax\global\chardef\Hat`\^ +\gdef\nexfill{{\metricsfont\leaders\hbox{^}\hfill}}} +\newdimen\Uunit +\def\nexusfill{\setbox\z@\hbox{\char16}% + \Uunit=0.83333\p@ + \kern.16ex\char16\kern-.08ex + \leaders\vrule\@height\z@\@depth\Uunit\hfill + \kern.08ex\char17\kern.16ex} +\def\C@rule{\vrule\@height.45ex\@depth-.35ex\@width1.5em} +\def\coronis@rule{\hbox to\z@{\hss\C@rule\hss}} +\def\Coronis@rule{\hbox to\z@ + {\hss\hbox to\z@{\hss$\scriptstyle)$\kern-1.5\p@}\C@rule\hss}} +\DeclareRobustCommand\paragr{\raisebox{-1ex}[\z@][\z@]{\coronis@rule}} +\let\coronis\paragr +\DeclareRobustCommand\Coronis{\raisebox{-1ex}[\z@][\z@]{\Coronis@rule}} +\DeclareRobustCommand{\dparagr}% + {\raisebox{-1.3ex}[\z@][\z@]{\coronis@rule}% + \raisebox{-1.6ex}[\z@][\z@]{\coronis@rule}} +\DeclareRobustCommand*\sinafia{{\metricsfont s}} +\DeclareRobustCommand*{\crux}{{\metricsfont\char'171}} +\DeclareRobustCommand*{\FinisCarmen}{\ensuremath{\otimes}} +\let\FinCar\FinisCarmen +\DeclareRobustCommand*{\apici}[1]% + {\posthinspace{\metricsfont\char96}\negthinspace#1% + \posthinspace{\metricsfont\char39}\negthinspace} +\DeclareRobustCommand*{\apex}% + {\/\hskip.5ex\vrule\@height1.7ex\@depth-1ex\hskip.2ex} +\let\positio\apex +\DeclareRobustCommand*{\Int}{\ensuremath{\int}} +\let\m@thst@r\star +\DeclareRobustCommand*{\star}{\textormath{{{\upshape *}}}{\m@thst@r}} +\DeclareRobustCommand*{\dstar}{{\upshape **}} +\DeclareRobustCommand*{\tstar}{{\upshape ***}} +\DeclareRobustCommand*{\responsio}{{\boldmath\ensuremath{\sim}}} +\DeclareRobustCommand{\thorn}{{\fontencoding{T1}\selectfont\th}} +\DeclareRobustCommand{\Thorn}{{\fontencoding{T1}\selectfont\TH}} +\DeclareRobustCommand{\dracma}{{\metricsfont D}} +\DeclareRobustCommand{\hemiobelion}{{\metricsfont A}} +\DeclareRobustCommand{\tetartemorion}{{\metricsfont B}} +\DeclareRobustCommand{\stater}{{\metricsfont C}} +\DeclareRobustCommand{\denarius}{{\metricsfont E}} +\DeclareRobustCommand{\etos}{{\metricsfont G}} +\DeclareRobustCommand{\cut}[1]{% + \ifx#1d\dcutbar\else + \ifx#1b\bcutbar\else + \ifx#1g\gcutbar + \fi + \fi + \fi} +\def\dcutbar{{\edef\slant@{\expandafter\numero\the\fontdimen1\font}% + d\dimen@1.2ex\kern\slant@\dimen@ + \llap{\vrule\@height1.3ex\@depth-\dimen@ + \ifdim\slant@\p@>\z@\@width.35em\else\@width.4em\fi\kern.03em}}} +\def\bcutbar{{\edef\slant@{\expandafter\numero\the\fontdimen1\font}% + \rlap{\dimen@1.2ex\kern\slant@\dimen@ + \ifdim\slant@\p@=\z@\kern.03em\fi + \vrule\@height1.3ex\@depth-\dimen@ + \ifdim\slant@\p@>\z@\@width.3em\else\@width.4em\fi}b}} +\def\gcutbar{{\edef\slant@{\expandafter\numero\the\fontdimen1\font}% + \ifdim\slant@\p@>\z@ + g\kern-.55ex\dimen@.2ex\kern-\slant@\dimen@ + \vrule\@height-.1ex\@depth\dimen@\@width.6ex + \else + \dimen@.2ex\kern\slant@\dimen@\vrule\@height.3ex\@depth-\dimen@ + \@width.6ex\kern-.55ex\relax g + \fi}} +\newcommand*{\OSN}[1]{\oldstylenums{#1}} +\newcommand\splus{\leavevmode{% + \edef\slant@{\expandafter\numero\the\fontdimen1\font}% + \setbox\z@\hbox{s}% + \dimen@=\wd\z@ + \setbox\tw@\hbox{$\scriptscriptstyle+$}% + \advance\dimen@.35\ht\tw@ + \raisebox{\dimen@}[\z@][\z@]{% + \makebox[\z@][l]{\kern.5\wd\z@ + \kern\slant@\dimen@\kern-.5\wd\tw@\box\tw@}}% + \box\z@}}% +\newcommand\stimes{\leavevmode{% + \edef\slant@{\expandafter\numero\the\fontdimen1\font}% + \setbox\z@\hbox{s}% + \dimen@=\wd\z@ + \setbox\tw@\hbox{$\scriptscriptstyle\times$}% + \advance\dimen@.2\ht\tw@ + \raisebox{\dimen@}[\z@][\z@]{% + \makebox[\z@][l]{\kern.5\wd\z@ + \kern\slant@\dimen@\kern-.5\wd\tw@\box\tw@}}% + \box\z@}}% +\newcommand\kclick{\leavevmode{% + \edef\slant@{\expandafter\numero\the\fontdimen1\font}% + \setbox\z@\hbox{k}% + \setbox\tw@\hbox{\fontencoding\GRencoding@name\selectfont\s{v}}% + \dimen@\wd\z@ + \ifdim\slant@\p@=\z@ + \advance\dimen@-.1\wd\z@\else\advance\dimen@\wd\tw@ + \fi + k\makebox[\z@][r]{\unhcopy\tw@\kern.5\dimen@}% + }}% + +%%%%%%%%%%%%%%%%%%%%%%%%%% verse environments +\newcounter{verso}\setcounter{verso}{0} +\newcommand{\smallvert}{\vrule\@height1ex} +\DeclareRobustCommand\verso[1][]{% + \def\@tempA{#1}\ifx\@tempA\empty + \else + \setcounter{verso}{#1}\addtocounter{verso}{\m@ne}% + \fi + \refstepcounter{verso}% + \ensuremath{\mathop{\smallvert}\limits^{\theverso}}% + \space\ignorespaces +} +\newenvironment{versi}[1]{% +\def\makelabel##1{##1} +\list{}{\settowidth\labelwidth{#1}\leftmargin\labelwidth + \advance\leftmargin\labelsep}% +}{% +\endlist +} +\newif\ifBreakVersi +\BreakVersifalse +\newenvironment{Versi}[1][1]{% + \setcounter{verso}{#1}% + \def\writ@verso{% + \count255=\value{verso}\divide\count255by5\relax + \multiply\count255by5\relax + \advance\count255-\value{verso}% + \ifnum\count255=\z@ + {\small\expandafter\oldstylenums\expandafter{\the\c@verso}}% + \else + \empty + \fi}% + \def\\{\@ifstar{\v@rscr{\@M}}{\v@rscr{\z@}}}% + \def\v@rscr##1{\@ifnextchar[{\wr@teverse{##1}}% + {\wr@teverse{##1}[\z@]}}% + \def\wr@teverse##1[##2]{\egroup + \makebox[3em][r]{% + \writ@verso\refstepcounter{verso}\kern1.5em} + \ifBreakVersi + \begingroup\raggedright + \hyphenpenalty \@M + \unhbox\z@\par + \endgroup + \else + \rlap{\box\z@}\par + \fi + \penalty##1\vskip##2\relax + \setbox\z@\hbox\bgroup\ignorespaces}% + \list{}{\itemsep\z@\parsep\z@ + \if@twocolumn + \itemindent -5.3em% + \listparindent\itemindent + \rightmargin\z@ + \advance\leftmargin 3.3em + \else + \itemindent -1.5em% + \listparindent\itemindent + \rightmargin \leftmargin + \advance\leftmargin 1.5em + \fi + }% + \item\leavevmode\setbox\z@\hbox\bgroup\ignorespaces +}{% + \\% + \egroup + \endlist +} +\newcounter{subverso} \setcounter{subverso}{0} +\newif\ifSubVerso +\newlength{\versoskip} +\newcommand*\NoSubVerso{\global\SubVersofalse + \global\versoskip1.3em\ignorespaces} +\newcommand*\SubVerso[1][0]{\global\SubVersotrue + \ifnum#1=0\else + \setcounter{subverso}{#1}% + \global\protected@edef\@currentlabel{\the\c@subverso}% + \fi + \global\versoskip.3em\ignorespaces} +\newenvironment{VERSI}[1][1]{% + \setcounter{verso}{#1}% + \def\writ@verso{% + \count255=\value{verso}\divide\count255by5\relax + \multiply\count255by5\relax + \advance\count255-\value{verso}% + \ifnum\count255=0\relax + {\small\expandafter\oldstylenums\expandafter{\the\c@verso}}% + \else + \empty + \fi}% + \NoSubVerso + \def\writ@subverso{% + \ifSubVerso + {\scriptsize\expandafter\oldstylenums + \expandafter{\the\c@subverso}}% + \fi}% + \def\\{\@ifstar{\v@rscr{\@M}}{\v@rscr{\z@}}}% + \def\v@rscr##1{\@ifnextchar[{\writ@verse{##1}}% + {\writ@verse{##1}[\z@]}}% + \def\writ@verse##1[##2]{\egroup + \makebox[1.5em][r]{\writ@verso\refstepcounter{verso}}% + \makebox[1.5em][r]{\writ@subverso\refstepcounter{subverso}}% + \kern1.5ex\hskip\versoskip + \ifBreakVersi + \begingroup + \hyphenpenalty \@M + \unhbox\z@\par + \endgroup + \else + \rlap{\box\z@}\par + \fi + \penalty##1\vskip##2\relax + \setbox\z@\hbox\bgroup\ignorespaces}% + \list{}{\parsep\z@\itemsep\z@ + \if@twocolumn + \itemindent -5.3em% + \listparindent\itemindent + \rightmargin\z@ + \advance\leftmargin 3.3em + \else + \itemindent -1.5em% + \listparindent\itemindent + \rightmargin \leftmargin + \advance\leftmargin 1.5em + \fi + }% + \item\leavevmode\setbox\z@\hbox\bgroup\ignorespaces +}{% + \\% + \egroup\endlist +} +\DeclareRobustCommand\lunga{{\metricsfont l}} +\let\longa\lunga +\let\br@ve\breve +\DeclareRobustCommand\breve{\textormath{{{\metricsfont b}}}{\br@ve}} +\let\brevis\breve +\DeclareRobustCommand\bbreve{{\metricsfont c}} +\let\bbrevis\bbreve +\DeclareRobustCommand\barbreve{{\metricsfont i}} +\let\barbrevis\barbreve +\DeclareRobustCommand\barbbreve{{\metricsfont j}} +\let\barbbrevis\barbbreve +\DeclareRobustCommand\ubarbreve{{\metricsfont d}} +\let\ubarbrevis\ubarbreve +\DeclareRobustCommand\ubarbbreve{{\metricsfont e}} +\let\ubarbbrevis\ubarbbreve +\DeclareRobustCommand\ubarsbreve{{\metricsfont f}} +\let\ubarsbrevis\ubarsbreve +\DeclareRobustCommand{\ubrevelunga}{{\metricsfont\char107}} +\let\ubrevislonga\ubrevelunga +\DeclareRobustCommand\corona{{\metricsfont\char20}} +\let\ElemInd\corona +\DeclareRobustCommand\coronainv{{\metricsfont\char21}} +\DeclareRobustCommand\catal{{\metricsfont g}} +\DeclareRobustCommand\ipercatal{{\metricsfont h}} +\DeclareRobustCommand\hiatus{\textsuperscript{\upshape H}} +\DeclareRobustCommand\Hiatus{\makebox[\z@]{\hiatus}} +\DeclareRobustCommand\X{{\metricsfont X}} +\let\anceps\X +\DeclareRobustCommand\banceps{{\metricsfont Y}} +\DeclareRobustCommand\ancepsdbrevis{{\metricsfont Z}} +\DeclareRobustCommand{\aeolicbii}{{\metricsfont I}} +\DeclareRobustCommand{\aeolicbiii}{{\metricsfont J}} +\DeclareRobustCommand{\aeolicbiv}{{\metricsfont K}} +\newif\ifmetricsfont\metricsfontfalse +\def\stripsl@sh#1{\expandafter\@gobble\string#1} +\def\2#1 {\csname2#1\endcsname} +\def\3#1 {\csname3#1\endcsname} +\def\4#1 {\csname4#1\endcsname} +\newcommand\newmetrics[2]{% + \expandafter\@namedef\expandafter{\stripsl@sh#1}% + {{\metricsfonttrue#2}}% +} +\newmetrics\iam{\barbreve\lunga\breve\lunga} +\newmetrics\chor{\lunga\breve\breve\lunga} +\newmetrics\enopl{\breve\lunga\breve\breve\lunga\breve\breve\lunga} +\newmetrics{\4MACRO}{\lunga\lunga\lunga\lunga} +\newmetrics{\aeolchorsor}{\lunga\zeugma{\breve\breve}\breve + \breve\zeugma{\breve\breve}} +\newmetrics{\hexam}{\lunga\breve\breve\lunga\breve\breve + \lunga\breve\breve\lunga\breve\breve\lunga\breve\breve + \lunga\lunga} +\newmetrics{\pentam}{\lunga\barbbreve\lunga\barbbreve\lunga\dBar + \lunga\breve\breve\lunga\breve\breve\lunga} +\newmetrics{\2tr}{\lunga\breve\lunga\X\ \lunga\breve\lunga\X\ } +\DeclareRobustCommand*{\metricstack}[2]% + {$\mathord{\mathop{\hbox{#1\rule{\z@}{1ex}}}% + \limits^{\scriptscriptstyle\relax#2\relax}}$% +} +\newcommand*{\svert}{\vrule\@height.8ex\@depth.2ex\relax} +\DeclareRobustCommand*{\textoverline}[1]{% + \leavevmode\vbox{\setbox\z@\hbox{#1} + \ialign{##\crcr + \hbox to\wd\z@{\hrulefill}\crcr + \noalign{\kern.4ex\nointerlineskip}% + \hfil\box\z@\hfil\crcr}}} +\newlength{\br@cedmetrics} +\newcommand*{\verseskip}[1]{{% + \setbox\z@\hbox{\longa}\dimen@\wd\z@\leavevmode\hbox to#1\dimen@{}}% +} +\newenvironment{bracedmetrics}[1]{\def\Hfill{\leavevmode\hfill}% +\settowidth{\br@cedmetrics}{#1}% +\ifvmode\vskip1ex\fi +$\displaystyle\left.% +\vcenter\bgroup\hsize\br@cedmetrics\parindent\z@\parskip\z@ +}{\egroup\right\}$} +\def\GTRON{\global\tracingcommands=\tw@ \global\tracingmacros=\tw@} +\def\GTROF{\global\tracingcommands=\z@ \global\tracingmacros=\z@} +\def\TRON{\tracingcommands=\tw@ \tracingmacros=\tw@} +\def\TROF{\tracingcommands=\z@ \tracingmacros=\z@} +\def\@ifStar#1#2{\def\@tempA{#1}\def\@tempB{#2}\futurelet\@tempC\@testStar} +\def\@testStar{\ifx\@tempC*\bbl@afterelse\expandafter\@tempA\@gobble\else + \bbl@afterfi\@tempB\fi} +\DeclareRobustCommand*{\Greeknumeral}{% + \let\n@vanta\Coppa\let\n@vecento\Sampi + \@ifStar{\Gr@@kn@meral}{\Gr@@knum@ral}} +\DeclareRobustCommand*{\greeknumeral}{% + \let\n@vanta\varkoppa\let\n@vecento\sampi + \@ifStar{\let\s@i\stigma\gr@@numeral}{\let\s@i\fLow\gr@@numeral}} +\def\Gr@@kn@meral#1{\let\s@i\Stigma + \expandafter\MakeUppercase\expandafter{\gr@@numeral{#1}}} +\def\Gr@@knum@ral#1{\let\s@i\Digamma + \expandafter\MakeUppercase\expandafter{\gr@@numeral{#1}}} +\def\grtoday{{\expandafter\greeknumeral\expandafter{\the\day}} % keep the space +\gr@c@month \space {\expandafter\greeknumeral\expandafter{\the\year}}} +\def\gr@@numeral#1{% + \ifnum#1<\@ne\space\gr@ill@value{#1}% + \else + \ifnum#1<10\relax\expandafter\gr@num@i\number#1% + \else + \ifnum#1<100\relax\expandafter\gr@num@ii\number#1% + \else + \ifnum#1<\@m\relax\expandafter\gr@num@iii\number#1% + \else + \ifnum#1<\@M\relax\expandafter\gr@num@iv\number#1% + \else + \ifnum#1<100000\relax\expandafter\gr@num@v\number#1% + \else + \ifnum#1<1000000\relax\expandafter\gr@num@vi\number#1% + \else + \space\gr@ill@value{#1}% + \fi + \fi + \fi + \fi + \fi + \fi + \fi +} +\def\gr@num@i#1{% + \ifcase#1\or a\or b\or g\or d\or e% + \or \s@i\or z\or h\or j\fi + \ifnum#1=\z@\else\anw@true\fi\anw@print} +\def\gr@num@ii#1{% + \ifcase#1\or i\or k\or l\or m\or n% + \or x\or o\or p\or \n@vanta\fi + \ifnum#1=\z@\else\anw@true\fi\gr@num@i} +\def\gr@num@iii#1{% + \ifcase#1\or r\or s\or t\or u\or f% + \or q\or y\or w\or \n@vecento\fi + \ifnum#1=\z@\anw@false\else\anw@true\fi\gr@num@ii} +\def\gr@num@iv#1{% + \ifnum#1=\z@\else\katwtonos\fi + \ifcase#1\or a\or b\or g\or d\or e% + \or \s@i\or z\or h\or j\fi + \gr@num@iii} +\def\gr@num@v#1{% + \ifnum#1=\z@\else\katwtonos\fi + \ifcase#1\or i\or k\or l\or m\or n% + \or x\or o\or p\or \n@vanta\fi + \gr@num@iv} +\def\gr@num@vi#1{% + \katwtonos + \ifcase#1\or r\or s\or t\or u\or f% + \or q\or y\or w\or \n@vecento\fi + \gr@num@v} +\endinput +%% +%% End of file `teubner.sty'. -- cgit v1.2.3