summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-12 23:59:01 +0000
committerKarl Berry <karl@freefriends.org>2006-01-12 23:59:01 +0000
commit4a98d09bb853cba5e3531c8b7131df26768e38fa (patch)
tree0b793e2ff964f321d8265b5df49709be90e6dd32
parentdb547b2236a7bb9b6608f40400e7e871d9106caa (diff)
metre
git-svn-id: svn://tug.org/texlive/trunk@1085 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/tex/latex/metre/metre.sty2181
1 files changed, 2181 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/metre/metre.sty b/Master/texmf-dist/tex/latex/metre/metre.sty
new file mode 100644
index 00000000000..c5838d080bc
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/metre/metre.sty
@@ -0,0 +1,2181 @@
+%%
+%% This is file `metre.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% metre.dtx (with options: `package')
+%%
+%% This is a generated file.
+%%
+%% Copyright 2000 2001 Gianfranco Boggio-Togna
+%%
+%% This file may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either
+%% version 1.2 of this license or (at your option) any
+%% later version. The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.2 or later is part of all distributions
+%% of LaTeX version 1999/12/01 or later.
+%%
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{metre}%
+ [2001/12/05 v. 1.0 A package for classicists]
+\DeclareOption{st}{\def\M@opt@style{0}}
+\DeclareOption{en}{\def\M@opt@style{1}}
+\DeclareOption{En}{\def\M@opt@style{2}}
+\ExecuteOptions{st}
+\ProcessOptions
+\RequirePackage{relsize}
+\renewcommand{\rs@size@warning}[2]{\relax}
+\newcount\M@ibycus
+\newcount\M@metra
+\newcount\M@metra@font
+\newif\ifM@gravis
+\newif\ifM@inter
+\newif\ifM@vert@bar
+\newif\ifM@imago
+\newif\ifM@linea@dimen
+\newif\ifM@starred
+\newif\ifM@big
+\newbox\M@box@m% macron
+\newbox\M@box@b% breve
+\newbox\M@box@tsmb% triseme (macron + breve)
+\newbox\M@box@tsbm% triseme (breve + macron)
+\newbox\M@box@tsmm% tetraseme (macron + macron)
+\newbox\M@box@ps% pentaseme (macron + macron)
+\newbox\M@box@a% anceps
+\newbox\M@box@o% one half of `eolic base'
+\newbox\M@box@k% catalexis
+\newbox\M@box@K% catalexis (large)
+\newbox\M@box@p% dot
+\newbox\M@box@A% acute accent
+\newbox\M@box@G% grave accent
+\newdimen\M@dim@m% width of macron box
+\newdimen\M@dim@b% width of breve box
+\newdimen\M@dim@p% width of dot box
+\newdimen\M@dim@s% size of space
+\newdimen\M@dim@bsink
+\newdimen\M@dim@sunk
+\newdimen\M@metra@ex
+\newdimen\M@text@ex
+\newdimen\M@dim@c@ext
+\newdimen\M@dim@c@int
+\newdimen\M@dim@c@Ext
+\newdimen\M@linea@indent
+\newdimen\M@linea@height
+\newdimen\M@linea@length
+\AtBeginDocument{%
+ \@ifpackageloaded{ibycus4}{\M@ibycus\@ne}{\M@ibycus\z@}%
+ \let\M@prevsize=\relax
+ \def\M@before@linea{\relax}%
+ \let\M@step@up=\tw@
+}
+\newcommand{\InterSigna}[1]{\def\M@interS{#1}}
+\newcommand{\InterPedes}[1]{\def\M@interP{#1}}
+\newcommand{\SubSigna}[1]{\def\M@subS{#1}}
+\newcommand{\Magnitudo}[1]{\def\M@magnitudo{#1}}
+\newcommand{\Elevatio}[1]{\def\M@elevatio{#1}}
+\newcommand{\Translatio}[1]{\def\M@translatio{#1}}
+\newcommand{\Intervallum}[1]{\def\M@intervallum{#1}}
+\newcommand{\FaciesSiglorum}[1]{\def\M@facies{#1}}
+\newcommand{\MetraStyle}[1]{\M@MetraStyle#1}
+\def\M@MetraStyle#1#2{%
+ \let\M@opt=\relax
+ \ifx e#1\relax
+ \ifx n#2\relax
+ \let\M@opt=1\relax
+ \fi
+ \fi
+ \ifx E#1\relax
+ \ifx n#2\relax
+ \let\M@opt=2\relax
+ \fi
+ \fi
+ \ifx s#1\relax
+ \ifx t#2\relax
+ \let\M@opt=0\relax
+ \fi
+ \fi
+ \ifx \M@opt\relax
+ \PackageError{metre}%
+ {Illegal option for \protect\MetraStyle}%
+ {Valid options are `en', `En', `st'.}%
+ \else
+ \edef\M@opt@style{\M@opt}%
+ \fi
+}
+\newcommand{\MetrikeFont}[1]{\def\M@MetrikeFont{#1}}
+\InterSigna{.2}%
+\InterPedes{.67}%
+\SubSigna{0}%
+\Magnitudo{0}%
+\Elevatio{0}%
+\Translatio{0}%
+\Intervallum{.08}%
+\FaciesSiglorum{\it}%
+\newcommand{\metra}[2][\relax]{%
+ \ifnum \M@metra=\@ne
+ \PackageError{metre}{Recursive use of \protect\metra}%
+ {You cannot use \protect\metra within%
+ the argument \MessageBreak
+ of another \protect\metra command}%
+ \fi
+ \M@metra=\@ne
+ \let\M@text@fontsize=\@currsize
+ \M@text@ex=\fontdimen5\the\font
+ \leavevmode
+ \begingroup
+ \M@metra@setup{#1}%
+ \dimen0=\if 0\M@opt@style 0\else .5\fi \M@text@ex
+ \advance \dimen0 by \M@subS \M@text@ex
+ \raise \dimen0 \hbox{\hss\M@interfalse #2\hss}%
+ \endgroup
+ \M@metra=\z@
+ \relax
+}
+\def\M@metra@setup#1{%
+ \let\is=\InterSigna
+ \let\i=\Intervallum
+ \let\ip=\InterPedes
+ \let\ss=\SubSigna
+ \let\m=\Magnitudo
+ \let\ms=\MetraStyle
+ \def\en{\MetraStyle{en}}%
+ \def\En{\MetraStyle{En}}%
+ \def\st{\MetraStyle{st}}%
+ #1\relax
+ \M@cmr
+ \count255=\M@magnitudo
+ \advance \count255 by \M@step@up
+ \relsize{\count255}%
+ \let\M@metra@fontsize=\@currsize
+ \M@metra@ex=1ex
+ \ifx \@currsize \M@prevsize
+ \relax
+ \else
+ \M@makeboxes
+ \global\let\M@prevsize=\@currsize
+ \fi
+ \M@dim@c@ext=\M@interP\M@dim@m
+ \M@dim@c@int=\M@interS\M@dim@m
+ \M@dim@c@ext=1.33\M@dim@c@ext
+ \M@dim@c@Ext=\M@dim@c@int
+ \M@dim@s=\M@interP\M@dim@m
+ \let\a \M@a
+ \let\b \M@b \let\B \M@B
+ \let\gB \M@gB
+ \let\bb \M@bb \let\BB \M@BB
+ \let\gBB \M@gBB
+ \let\Bb \M@Bb
+ \let\gBb \M@gBb
+ \let\bB \M@bB
+ \let\gbB \M@gbB
+ \let\bm \M@bm \let\Bm \M@Bm
+ \let\gBm \M@gBm
+ \let\bba \M@bba
+ \let\bbb \M@bbb
+ \let\bbm \M@bbm \let\BBm \M@BBm
+ \let\gBBm \M@gBBm
+ \let\Bbm \M@Bbm
+ \let\gBbm \M@gBbm
+ \let\bBm \M@bBm
+ \let\gbBm \M@gbBm
+ \let\bbmx \M@bbmx
+ \let\bbmb \M@bbmb
+ \let\m \M@m \let\M \M@M
+ \let\gM \M@gM
+ \let\ma \M@ma
+ \let\mb \M@mb \let\Mb \M@Mb
+ \let\gMb \M@gMb
+ \let\mbb \M@mbb \let\Mbb \M@Mbb
+ \let\gMbb \M@gMbb
+ \let\mBb \M@mBb
+ \let\gmBb \M@gmBb
+ \let\mbB \M@mbB
+ \let\gmbB \M@gmbB
+ \let\mbbx \M@mbbx
+ \let\c \M@c \let\cc \M@cc \let\ccc \M@ccc
+ \let\C \M@C \let\Cc \M@Cc \let\Ccc \M@Ccc
+ \let\d \M@d
+ \let\k \M@k \let\K \M@K
+ \let\n \M@n \let\ni \M@ni \let\N \M@N
+ \let\o \M@o \let\oo \M@oo
+ \let\p \M@p \let\pp \M@pp \let\Pp \M@Pp
+ \let\pxp \M@pxp \let\Pxp \M@Pxp
+ \let\pm \M@pm \let\ppm \M@ppm \let\pppm \M@pppm
+ \let\vppm \M@vppm \let\vpppm \M@vpppm
+ \let\ppp \M@ppp \let\pppp \M@pppp \let\ppppp \M@ppppp
+ \let\Ppp \M@Ppp \let\Pppp \M@Pppp \let\Ppppp \M@Ppppp
+ \let\q \M@q \let\Q \M@Q
+ \let\r \M@r \let\R \M@R
+ \let\s \M@s
+ \let\S \M@super@metra
+ \let\t \M@t \let\T \M@T
+ \let\tsbm \M@tsbm
+ \let\tsmb \M@tsmb
+ \let\tsmm \M@tsmm
+ \let\ps \M@ps
+ \let\v \M@v
+ \let\x \M@x
+ \let\'\M@acutus \let\`\M@gravis
+}
+\def\M@makeboxes{%
+ \M@metra@font=%
+ \ifx \@currsize \Large 6 \else
+ \ifx \@currsize \large 5 \else
+ \ifx \@currsize \normalsize 4 \else
+ \ifx \@currsize \small 3 \else
+ \ifx \@currsize \footnotesize 2 \else
+ \ifx \@currsize \scriptsize 1 \else
+ \ifx \@currsize \LARGE 7 \else
+ \ifx \@currsize \huge 8 \else
+ \ifx \@currsize \Huge 9 \else
+ \ifx \@currsize \tiny 0
+ \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+ \setbox0=\hbox{\char22}%
+ \global\M@dim@m=.73\wd0
+ \global\M@dim@b=.59\wd0
+ \ifnum 2>\M@metra@font \global\M@dim@b=.58\wd0
+ \else
+ \ifnum 4=\M@metra@font \global\M@dim@b=.575\wd0
+ \else
+ \ifnum 5=\M@metra@font \global\M@dim@b=.575\wd0
+ \else
+ \ifnum 6=\M@metra@font \global\M@dim@b=.5775\wd0
+ \else
+ \ifnum 7=\M@metra@font \global\M@dim@b=.595\wd0
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \global\M@dim@p=.25\wd0
+ \global\setbox\M@box@m=\hbox to \M@dim@m{%
+ \hss
+ \dimen0=1.235\M@metra@ex
+ \ifcase \@ptsize
+ \ifnum 1=\M@metra@font \dimen0=1.2\M@metra@ex
+ \else
+ \ifnum 9=\M@metra@font \dimen0=1.25\M@metra@ex
+ \fi
+ \fi
+ \or
+ \ifnum 0=\M@metra@font \dimen0=1.25\M@metra@ex
+ \else
+ \ifnum 9=\M@metra@font \dimen0=1.25\M@metra@ex
+ \fi
+ \fi
+ \or
+ \ifnum 0=\M@metra@font \dimen0=1.25\M@metra@ex
+ \else
+ \ifnum 7<\M@metra@font \dimen0=1.25\M@metra@ex
+ \fi
+ \fi
+ \fi
+ \lower\dimen0\hbox{\char22}%
+ \hss
+ }%
+ \dimen0=.089\M@metra@ex
+ \ifcase \@ptsize
+ \ifnum 4>\M@metra@font
+ \dimen0=.08\M@metra@ex
+ \else
+ \ifnum 6<\M@metra@font
+ \dimen0=.05\M@metra@ex
+ \fi
+ \fi
+ \or
+ \dimen0=.08\M@metra@ex
+ \or
+ \dimen0=.08\M@metra@ex
+ \fi
+ \global\ht\M@box@m=\dimen0
+ \global\dp\M@box@m=\z@
+ \global\setbox\M@box@b=\hbox to \M@dim@b{%
+ \hss
+ \lower 1.142\M@metra@ex\hbox{\char21}%
+ \hss}%
+ \global\ht\M@box@b=.495\M@metra@ex
+ \global\dp\M@box@b=\z@
+ \global\M@dim@bsink=.4\ht\M@box@b
+ \global\setbox\M@box@p=\hbox to \M@dim@p{%
+ \hss
+ \lower 1.3\M@metra@ex\hbox{\char95}%
+ \hss}%
+ \global\ht\M@box@p=.15\M@metra@ex
+ \global\dp\M@box@p=\z@
+ \global\setbox\M@box@tsmb=\hbox{%
+ \vrule height .4\M@metra@ex width \ht\M@box@m
+ \hbox to 1.667\M@dim@m{%
+ \leaders\hrule height \ht\M@box@m\hfill}}%
+ \dimen0=1.667\M@dim@m
+ \advance \dimen0 by \ht\M@box@m
+ \global\wd\M@box@tsmb=\dimen0
+ \global\ht\M@box@tsmb=.2\M@metra@ex
+ \global\dp\M@box@tsmb=\z@
+ \global\setbox\M@box@tsbm=\hbox{%
+ \hbox to 1.667\M@dim@m{%
+ \leaders\hrule height \ht\M@box@m\hfill}%
+ \vrule height .4\M@metra@ex width \ht\M@box@m}%
+ \dimen0=1.667\M@dim@m
+ \advance \dimen0 by \ht\M@box@m
+ \global\wd\M@box@tsbm=\dimen0
+ \global\ht\M@box@tsbm=.2\M@metra@ex
+ \global\dp\M@box@tsbm=\z@
+ \global\setbox\M@box@tsmm=\hbox{%
+ \vrule height .4\M@metra@ex width \ht\M@box@m%
+ \hbox to 1.667\M@dim@m{%
+ \leaders\hrule height \ht\M@box@m\hfill}%
+ \vrule height .4\M@metra@ex width \ht\M@box@m%
+ \kern \ht\M@box@m}%
+ \dimen0=1.667\M@dim@m
+ \advance \dimen0 by 2\ht\M@box@m
+ \global\wd\M@box@tsmm=\dimen0
+ \global\ht\M@box@tsmm=.2\M@metra@ex
+ \global\dp\M@box@tsmm=\z@
+ \global\setbox\M@box@ps=\hbox{%
+ \vrule height .4\M@metra@ex width \ht\M@box@m%
+ \hbox to .82\M@dim@m{%
+ \leaders\hrule height \ht\M@box@m\hfill}%
+ \vrule height .4\M@metra@ex width \ht\M@box@m%
+ \hbox to .825\M@dim@m{%
+ \leaders\hrule height \ht\M@box@m\hfill}%
+ \vrule height .4\M@metra@ex width \ht\M@box@m%
+ \kern \ht\M@box@m}%
+ \dimen0=1.667\M@dim@m
+ \advance \dimen0 by 3\ht\M@box@m
+ \global\wd\M@box@ps=\dimen0
+ \global\ht\M@box@ps=.2\M@metra@ex
+ \global\dp\M@box@ps=\z@
+ \global\setbox\M@box@A=\hbox{%
+ \hss
+ \lower 1.1\M@metra@ex\hbox{\char19}%
+ \hss}%
+ \global\ht\M@box@A=.175\M@metra@ex
+ \global\dp\M@box@A=\z@
+ \global\setbox\M@box@G=\hbox{%
+ \hss
+ \lower 1.1\M@metra@ex\hbox{\char18}%
+ \hss}%
+ \global\ht\M@box@G=.2\M@metra@ex
+ \global\dp\M@box@G=\z@
+ \begingroup
+ \begingroup$\textstyle
+ \global\setbox\M@box@K=\hbox{%
+ \lower 1.25ex \hbox{\hss\symbol{"5E}\hss}}%
+ $\endgroup
+ \relsize{-3}%
+ \begingroup$\scriptscriptstyle
+ \global\setbox\M@box@k=\hbox{%
+ \lower 1.25ex \hbox{\hss\symbol{"5E}\hss}}%
+ $\endgroup
+ \dimen0=\f@baselineskip
+ \fontencoding{OMS}\fontfamily{cmsy}\fontseries{m}%
+ \fontshape{n}%
+ \fontsize{\f@size}{\dimen0}%
+ \selectfont
+ \begingroup
+ \relsize{-2}%
+ \global\setbox0=\hbox{\symbol{"02}}%
+ \global\setbox\M@box@a=%
+ \hbox to .675\wd0{\hss\symbol{"02}\hss}%
+ \endgroup
+ \global\ht\M@box@a=.82\ht0
+ \global\dp\M@box@a=\z@
+ \dimen0=\f@baselineskip
+ \begingroup
+ \relsize{+1}%
+ \fontsize{\f@size}{\dimen0}%
+ \selectfont
+ \setbox0=\hbox{\symbol{"0E}}%
+ \global\setbox\M@box@o=\hbox to .733\wd0{\hss%
+ \lower .08\M@metra@ex\hbox{\symbol{"0E}}\hss}%
+ \endgroup
+ \global\ht\M@box@o=.8\ht0
+ \global\dp\M@box@o=\z@
+ \endgroup
+}
+\def\M@s{\kern \M@dim@s \nobreak}
+\def\M@@m{\copy\M@box@m}
+\def\M@m{\M@head \M@@m \M@tail}
+\def\M@M{\M@head \M@acutus \M@@m \M@tail}
+\def\M@gM{\M@head \M@gravis \M@@m \M@tail}
+\def\M@@lm{\M@@m \kern -\wd\M@box@m \kern \wd\M@box@b \M@@m}
+\def\M@lm{\M@head \M@@lm \M@tail}
+\def\M@@b{\hbox{\M@en@check{\M@dim@bsink}\copy \M@box@b}}
+\def\M@b{\M@head \M@@b \M@tail}
+\def\M@B{\M@head \M@acutus \M@@b \M@tail}
+\def\M@gB{\M@head \M@gravis \M@@b \M@tail}
+\def\M@a{%
+ \M@head \M@en@check{.4\ht\M@box@a}\copy\M@box@a
+ \M@dirty@trick\M@box@a \M@tail}
+\def\M@@ma{%
+ \M@en@check{.4\ht\M@box@a}\M@stack{\M@box@m}{\M@box@a}}
+\def\M@ma{\M@head \M@@ma \M@tail}
+\def\M@Ma{\M@head \M@acutus \M@@ma \M@tail}
+\def\M@gMa{\M@head \M@gravis \M@@ma \M@tail}
+\def\M@o{%
+ \M@head \M@en@check{.4\ht\M@box@o}\copy \M@box@o \M@tail}
+\def\M@oo{\M@o \M@o}
+\def\M@@bb{\M@@b\M@@b}
+\def\M@bb{\M@head \M@@bb \M@tail}
+\def\M@Bb{\M@head \M@A{.5}\M@@b \M@@b \M@tail}
+\def\M@gBb{\M@gravistrue \M@Bb \M@gravisfalse}
+\def\M@bB{\M@head \M@@b \M@A{.5}\M@@b \M@tail}
+\def\M@gbB{\M@gravistrue \M@bB \M@gravisfalse}
+\def\M@BB{\M@head \M@acutus \M@@bb \M@tail}
+\def\M@gBB{\M@head \M@gravis \M@bb \M@tail}
+\def\M@@bm{%
+ \setbox0=\M@stack{\M@box@b}{\M@box@m}%
+ \dimen0=\M@dim@bsink
+ \advance \dimen0 by \M@intervallum\M@metra@ex
+ \advance \dimen0 by \ht\M@box@m
+ \M@en@check{\dimen0}\box0\relax
+}
+\def\M@bm{\M@head \M@@bm \M@tail}
+\def\M@Bm{\M@head \M@acutus \M@@bm \M@tail}
+\def\M@gBm{\M@head \M@gravis \M@bm \M@tail}
+\def\M@@mb{%
+ \setbox0=\M@stack{\M@box@m}{\M@box@b}%
+ \M@en@check{\M@dim@bsink}\box0\relax
+}
+\def\M@mb{\M@head \M@@mb \M@tail}
+\def\M@Mb{\M@head \M@acutus \M@@mb \M@tail}
+\def\M@gMb{\M@head \M@gravis \M@mb \M@tail}
+\def\M@@mbb{\M@@mb \kern -\wd\M@box@m \kern \wd\M@box@b \M@@mb}
+\def\M@mbb{\M@head \M@@mbb \M@tail}
+\def\M@Mbb{\M@head \M@acutus \M@@mbb \M@tail}
+\def\M@mBb{\M@head \M@acutus[.25]\M@@mbb \M@tail}
+\def\M@mbB{\M@head \M@acutus[.75]\M@@mbb \M@tail}
+\def\M@gMbb{\M@head \M@gravis \M@@mbb \M@tail}
+\def\M@gmBb{\M@head \M@gravis[.25]\M@@mbb \M@tail}
+\def\M@gmbB{\M@head \M@gravis[.75]\M@@mbb \M@tail}
+\def\M@@bbm{\M@@bm \kern -\wd\M@box@m \kern \wd\M@box@b \M@@bm}
+\def\M@bbm{\M@head \M@@bbm \M@tail}
+\def\M@BBm{\M@head \M@acutus \M@@bbm \M@tail}
+\def\M@Bbm{\M@head \M@acutus[.25]\M@@bbm \M@tail}
+\def\M@bBm{\M@head \M@acutus[.75]\M@@bbm \M@tail}
+\def\M@gBBm{\M@head \M@gravis \M@@bbm \M@tail}
+\def\M@gBbm{\M@head \M@gravis[.25]\M@@bbm \M@tail}
+\def\M@gbBm{\M@head \M@gravis[.75]\M@@bbm \M@tail}
+\def\M@@bba{%
+ \edef\M@opt@save{\M@opt@style}%
+ \def\M@opt@style{0}%
+ \setbox0=\hbox{\M@@bb}%
+ \edef\M@opt@style{\M@opt@save}%
+ \setbox0=\hbox to \wd0{\hss\M@stack{0}{\M@box@a}\hss}%
+ \M@en@check{.5\ht\M@box@a}\box0\relax
+}
+\def\M@bba{\M@head \M@@bba \M@tail}
+\def\M@@bbb{%
+ \edef\M@opt@save{\M@opt@style}%
+ \def\M@opt@style{0}%
+ \setbox0=\hbox{\M@@bb}%
+ \edef\M@opt@style{\M@opt@save}%
+ \setbox0=\hbox to \wd0{\hss\M@stack{0}{\M@box@b}\hss}%
+ \M@en@check{\M@dim@bsink}\box0\relax
+}
+\def\M@bbb{\M@head \M@@bbb \M@tail}
+\def\M@bbmb{%
+ \M@head
+ \dimen0=\M@intervallum\M@metra@ex
+ \if 2\M@opt@style % the [En] option
+ \edef\M@opt@save{\M@opt@style}%
+ \def\M@opt@style{0}%
+ \setbox0=\hbox{\M@@lm}%
+ \copy0
+ \kern -\wd0
+ \dimen1=\dimen0
+ \advance \dimen1 by \ht\M@box@b
+ \lower \dimen1 \hbox to \wd0{\hss\M@@b\hss}%
+ \global\M@dim@sunk=\dimen1
+ \kern -\wd0
+ \dimen1=\dimen0
+ \advance \dimen1 by \ht\M@box@m
+ \raise \dimen1 \hbox to \wd0{\hss\M@@bb\hss}%
+ \edef\M@opt@style{\M@opt@save}%
+ \else
+ \edef\M@opt@save{\M@opt@style}%
+ \def\M@opt@style{0}%
+ \setbox0=\hbox{\M@@bbm}%
+ \edef\M@opt@style{\M@opt@save}%
+ \global\M@dim@sunk=\z@
+ \hbox to \wd0{\hss\M@@b\hss}%
+ \kern -\wd0
+ \advance \dimen0 by \ht\M@box@b
+ \advance \dimen0 by -\M@dim@sunk
+ \raise \dimen0 \box0
+ \fi
+ \M@tail
+}
+\def\M@p{%
+ \M@head
+ \if 0\M@opt@style
+ \relax
+ \else
+ \lower .5\ht\M@box@p
+ \fi
+ \copy\M@box@p
+ \M@tail
+}
+\def\M@@pm{%
+ \setbox0=\hbox{\hss\copy\M@box@p\hss}%
+ \M@stack{0}{\M@box@m}%
+}
+\def\M@pm{\M@head \M@@pm \M@tail}
+\def\M@@ppm{%
+ \setbox0=\hbox{\copy\M@box@p\kern .33\wd\M@box@p\copy\M@box@p}%
+ \M@stack{0}{\M@box@m}%
+}
+\def\M@ppm{\M@head \M@@ppm \M@tail}
+\def\M@pppm{%
+ \M@head
+ \setbox0=\hbox{\M@@ppm}%
+ \ht0=1.2\ht0
+ \M@stack{\M@box@p}{0}%
+ \M@tail
+}
+\def\M@@pp{%
+ \setbox0=\vbox{\copy\M@box@p
+ \nointerlineskip\kern 2\M@dim@bsink
+ \copy\M@box@p
+ }%
+ \M@en@caesura{.25\M@dim@bsink}%
+}
+\def\M@pp{\kern \M@dim@c@ext \M@@pp \kern \M@dim@c@ext
+ \M@interfalse}
+\def\M@Pp{\kern \M@dim@c@Ext \M@@pp \kern \M@dim@c@Ext
+ \M@interfalse}
+\def\M@@pxp{%
+ \setbox0=\vbox{\vskip 1.125\M@dim@bsink
+ \nointerlineskip \vskip .5\ht\M@box@p
+ \copy\M@box@p
+ \nointerlineskip \vskip 2.25\M@dim@bsink
+ \copy\M@box@p
+ \nointerlineskip \vskip 1.125\M@dim@bsink
+ \nointerlineskip \vskip .5\ht\M@box@p
+ }%
+ \M@en@caesura{1\M@dim@bsink}%
+}
+\def\M@pxp{\kern \M@dim@c@ext \M@@pxp \kern \M@dim@c@ext
+ \M@interfalse}
+\def\M@Pxp{\kern \M@dim@c@Ext \M@@pxp \kern \M@dim@c@Ext
+ \M@interfalse}
+\def\M@@ppp{%
+ \setbox0=\vbox{\copy\M@box@p
+ \nointerlineskip\vskip 2.25\M@dim@bsink
+ \copy\M@box@p
+ \nointerlineskip\vskip 2.25\M@dim@bsink
+ \copy\M@box@p
+ }%
+ \M@en@caesura{1\M@dim@bsink}%
+}
+\def\M@ppp{\kern \M@dim@c@ext \M@@ppp \kern \M@dim@c@ext
+ \M@interfalse}
+\def\M@Ppp{\kern \M@dim@c@Ext \M@@ppp \kern \M@dim@c@Ext
+ \M@interfalse}
+\def\M@@pppp{%
+ \setbox0=\vbox{\copy\M@box@p
+ \nointerlineskip\vskip 1.26\M@dim@bsink
+ \copy\M@box@p
+ \nointerlineskip\vskip 1.26\M@dim@bsink
+ \copy\M@box@p
+ \nointerlineskip\vskip 1.26\M@dim@bsink
+ \copy\M@box@p
+ }%
+ \M@en@caesura{1\M@dim@bsink}%
+}
+\def\M@pppp{\kern \M@dim@c@ext \M@@pppp \kern \M@dim@c@ext
+ \M@interfalse}
+\def\M@Pppp{\kern \M@dim@c@Ext \M@@pppp \kern \M@dim@c@Ext
+ \M@interfalse}
+\def\M@@ppppp{%
+ \setbox0=\vbox{\copy\M@box@p
+ \nointerlineskip\vskip .775\M@dim@bsink
+ \copy\M@box@p
+ \nointerlineskip\vskip .775\M@dim@bsink
+ \copy\M@box@p
+ \nointerlineskip\vskip .775\M@dim@bsink
+ \copy\M@box@p
+ \nointerlineskip\vskip .775\M@dim@bsink
+ \copy\M@box@p
+ }%
+ \M@en@caesura{\M@dim@bsink}%
+}
+\def\M@ppppp{\kern \M@dim@c@ext \M@@ppppp \kern \M@dim@c@ext
+ \M@interfalse}
+\def\M@Ppppp{\kern \M@dim@c@Ext \M@@ppppp \kern \M@dim@c@Ext
+ \M@interfalse}
+\def\M@@vppm{%
+ \setbox0=\hbox{\M@@pm}%
+ \ht0=1.3\ht0
+ \M@stack{\M@box@p}{0}%
+}
+\def\M@vppm{\M@head \M@@vppm \M@tail}
+\def\M@@vpppm{%
+ \setbox0=\hbox{\M@@vppm}%
+ \ht0=1.15\ht0
+ \M@stack{\M@box@p}{0}%
+}
+\def\M@vpppm{\M@head \M@@vpppm \M@tail}
+\def\M@caesura{%
+ \setbox0=\hbox{%
+ \vrule width .03em depth .21\M@metra@ex
+ height 1.25\M@metra@ex
+ }%
+ \M@en@caesura{\z@}%
+}
+\def\M@C{\kern \M@dim@c@Ext \M@caesura \kern \M@dim@c@Ext
+ \M@interfalse}
+\def\M@c{\kern \M@dim@c@ext \M@caesura \kern \M@dim@c@ext
+ \M@interfalse}
+\def\M@cc{\kern \M@dim@c@ext \M@caesura \kern \M@dim@c@int
+ \M@caesura \kern \M@dim@c@ext
+ \M@interfalse}
+\def\M@Cc{\kern \M@dim@c@Ext \M@caesura \kern \M@dim@c@int
+ \M@caesura \kern \M@dim@c@Ext
+ \M@interfalse}
+\def\M@ccc{\kern \M@dim@c@ext \M@caesura \kern \M@dim@c@int
+ \M@caesura \kern \M@dim@c@int
+ \M@caesura \kern \M@dim@c@ext
+ \M@interfalse}
+\def\M@Ccc{\kern \M@dim@c@Ext \M@caesura \kern \M@dim@c@int
+ \M@caesura \kern \M@dim@c@int
+ \M@caesura \kern \M@dim@c@Ext
+ \M@interfalse}
+\def\M@v{%
+ \begingroup
+ \M@text@fontsize
+ \setbox0=\hbox{,},\kern -\wd0 \kern \M@dim@s
+ \endgroup
+}
+\def\M@r{\M@bigfalse\M@@r}
+\def\M@R{\M@bigtrue\M@@r}
+\newcommand{\M@@r}[1][0]{\leavevmode
+ \M@head
+ \setbox0=\hbox{%
+ $\ifM@big \scriptstyle
+ \else \scriptscriptstyle \fi \sim$\unskip}%
+ \dimen0=\ifM@big -.05\else .1\fi\M@metra@ex
+ \advance \dimen0 by #1\M@metra@ex
+ \if 0\M@opt@style
+ \relax
+ \else
+ \advance \dimen0 by -\M@dim@bsink
+ \fi
+ \raisebox {\dimen0}[\z@][\z@]{\copy0}%
+ \M@dirty@trick 0\relax
+ \M@tail
+}
+\def\M@t{\M@bigfalse\M@@t}
+\def\M@T{\M@bigtrue\M@@t}
+\newcommand{\M@@t}[1][0]{\leavevmode
+ \M@head
+ \setbox0=\hbox{%
+ $\ifM@big \scriptstyle \else
+ \scriptscriptstyle \fi \otimes$\unskip}%
+ \dimen0=\ifM@big -.05 \else .1 \fi \M@metra@ex
+ \advance \dimen0 by #1\M@metra@ex
+ \if 0\M@opt@style
+ \relax
+ \else
+ \advance \dimen0 by -\M@dim@bsink
+ \fi
+ \raisebox {\dimen0}[\z@][\z@]{\copy0}%
+ \M@dirty@trick 0\relax
+ \M@tail
+}
+\def\M@x{%
+ \M@head
+ \setbox0=\vbox{\copy\M@box@p
+ \nointerlineskip\kern 2\M@dim@bsink
+ \copy\M@box@p
+ }%
+ \setbox0=\hbox{\copy0\kern \wd\M@box@p \copy0}%
+ \M@en@check{.5\ht0}%
+ \copy0
+ \M@tail
+}
+\def\M@tsmb{\M@head \copy\M@box@tsmb \M@tail}
+\def\M@tsbm{\M@head \copy\M@box@tsbm \M@tail}
+\def\M@tsmm{\M@head \copy\M@box@tsmm \M@tail}
+\def\M@ps{\M@head \copy\M@box@ps \M@tail}
+\def\M@cmr{\fontencoding{OT1}\fontfamily{cmr}\fontseries{m}%
+ \fontshape{n}\selectfont
+}
+\def\M@head{\leavevmode
+ \ifM@inter
+ \expandafter\hskip\M@interS\M@dim@m\relax
+ \fi
+ \M@interfalse
+ \M@vert@barfalse
+}
+\def\M@tail{\M@intertrue}
+\def\M@stack#1#2{%
+ \hbox{%
+ \dimen0=\wd#1\relax
+ \ifdim \dimen0<\wd#2\relax
+ \dimen0=\wd#2\relax
+ \fi
+ \dimen1=\ht#2\relax
+ \advance \dimen1 by \M@intervallum\M@metra@ex
+ \hbox to \dimen0{\hss\copy#2\hss}%
+ \kern -\dimen0
+ \raise \dimen1 \hbox to \dimen0{\hss\copy#1\hss}%
+ }%
+}
+\def\M@Stack#1{%
+ \ifnum #1=\z@
+ \copy0
+ \fi
+ \dimen0=\wd0
+ \advance \dimen0 by -\dimen3
+ \advance \dimen0 by \wd1
+ \kern -.5\dimen0
+ \raisebox {\dimen2}[\z@][\z@]{\copy1}%
+ \dimen0=\wd0
+ \advance \dimen0 by -\wd1
+ \advance \dimen0 by -\dimen3
+ \dimen0=.5\dimen0
+ \kern \dimen0\relax
+}
+\def\M@en@check#1{%
+ \if 0\M@opt@style
+ \relax
+ \else
+ \global\M@dim@sunk=#1\relax
+ \lower #1\relax
+ \fi
+}
+\def\M@en@caesura#1{%
+ \dimen0=\if 0\M@opt@style 0\else .5\fi\M@text@ex
+ \advance \dimen0 by \M@subS\M@text@ex
+ \advance \dimen0 by #1\relax
+ \lower \dimen0 \copy0
+ \M@vert@bartrue
+}
+\newcommand{\M@acutus}[2][.5]{%
+ \M@head \M@A{#1}{#2}\M@tail}
+\newcommand{\M@gravis}[2][.5]{%
+ \M@gravistrue \M@A{#1}{#2}\M@gravisfalse}
+\def\M@A#1#2{%
+ \setbox1=\hbox{#2}%
+ \dimen1=\ht1
+ \dimen2=\ht\M@box@b
+ \if 0\M@opt@style
+ \relax
+ \else
+ \advance \dimen2 by -\M@dim@sunk
+ \fi
+ \ifdim \dimen1<\dimen2
+ \dimen1=\dimen2
+ \fi
+ \copy1\relax
+ \dimen0=#1\wd1
+ \advance \dimen0 by -1.5\wd1
+ \kern \dimen0
+ \raise \dimen1
+ \hbox to \wd1{%
+ \hss
+ \ifM@gravis
+ \ifdim \wd1>\M@dim@m
+ \kern -.1\wd\M@box@G
+ \fi
+ \copy\M@box@G
+ \else
+ \ifdim \wd1>\M@dim@m
+ \kern .1\wd\M@box@A
+ \fi
+ \copy\M@box@A
+ \fi
+ \hss
+ }%
+ \dimen0=#1\wd1
+ \advance \dimen0 by -.5\wd1
+ \kern -\dimen0\relax
+}
+\def\M@k#1{\M@head \M@@Kk{#1}{\M@box@k}\relax \M@tail}
+\def\M@K#1{\M@head \M@@Kk{#1}{\M@box@K}\relax \M@tail}
+\def\M@@Kk#1#2{%
+ \global\M@dim@sunk=\z@
+ \setbox1=\hbox{#1}%
+ \dimen1=.667\ht\M@box@b
+ \ifx #2\M@box@K
+ \dimen1=1.33\dimen1
+ \fi
+ \advance \dimen1 by \M@dim@sunk
+ #1\relax
+ \kern -\wd1
+ \raisebox {-\dimen1}[\z@][\z@]%
+ {\hbox to \wd1{\hss\copy#2\hss}}%
+}
+\def\M@q#1#2{\M@head \M@@q{#1}{0}{#2}\relax \M@tail}
+\def\M@Q#1#2{\M@head \M@@q{#1}{1}{#2}\relax \M@tail}
+\def\M@@q#1#2#3{%
+ \dimen0=\z@
+ \if 0\M@opt@style
+ \relax
+ \else
+ \advance \dimen0 by -\M@dim@bsink
+ \fi
+ \dimen1=\z@
+ \def\M@q@size{4}%
+ \def\M@Q@size{2}%
+ \ifx !#1\relax
+ \def\M@q@ante{\M@cmr\texttt{\char"0D}}%
+ \def\M@q@post{\M@cmr\texttt{\char"0D}}%
+ \dimen1=-.075em
+ \else \ifx '#1\relax
+ \def\M@q@ante{\M@cmr\char"60}%
+ \def\M@q@post{\M@cmr\char"27}%
+ \else \ifx (#1\relax
+ \def\M@q@ante{%
+ \fontencoding{OML}\fontfamily{cmm}\fontseries{m}%
+ \fontshape{it}\selectfont\symbol{"2C}}%
+ \def\M@q@post{%
+ \fontencoding{OML}\fontfamily{cmm}\fontseries{m}%
+ \fontshape{it}\selectfont\symbol{"2D}}%
+ \def\M@q@size{6}%
+ \def\M@Q@size{5}%
+ \advance \dimen0 by .33ex
+ \dimen1=.05em
+ \else \ifx "#1\relax
+ \def\M@q@ante{\M@cmr\char"5C}%
+ \def\M@q@post{\M@cmr\char"22}%
+ \dimen1=.05em
+ \else \ifx <#1\relax
+ \def\M@q@ante{%
+ \fontencoding{U}\fontfamily{lasy}%
+ \fontseries{b}\fontshape{n}%
+ \selectfont\symbol{"28}%
+ \kern -.2em\symbol{"28}\kern .1em\relax}%
+ \def\M@q@post{%
+ \fontencoding{U}\fontfamily{lasy}%
+ \fontseries{b}\fontshape{n}%
+ \selectfont\kern .1em\symbol{"29}%
+ \kern -.2em\symbol{"29}}%
+ \def\M@q@size{5}%
+ \def\M@Q@size{3}%
+ \dimen1=-.05em
+ \advance \dimen0 by .33ex
+ \else
+ \PackageError{metre}%
+ {Invalid character after %
+ \protect\q \space or \protect\Q}%
+ {Valid characters are: \protect( %
+ \protect' \protect" %
+ \protect! \protect<}%
+ \fi\fi\fi\fi\fi
+ \raise \dimen0 \hbox{%
+ \begingroup
+ \relsize{-\if 1#2\M@Q@size\else \M@q@size\fi}%
+ \setbox0=\hbox{\M@q@ante}%
+ \copy0
+ \endgroup
+ }%
+ \M@dirty@trick 0\relax
+ \leavevmode \kern \dimen1
+ {\M@interfalse#3}%
+ \leavevmode \kern \dimen1
+ \raise \dimen0 \hbox{%
+ \begingroup
+ \relsize{-\if 1#2\M@Q@size\else \M@q@size\fi}%
+ \setbox0=\hbox{\M@q@post}%
+ \copy0
+ \endgroup
+ }%
+ \M@dirty@trick 0\relax
+}
+\def\M@d#1{\M@head \M@@d#1\relax \M@tail}
+\def\M@@d#1{%
+ \setbox1=\hbox{#1}%
+ #1\relax \kern -\wd1
+ \hbox to \wd1{\hfill \M@caesura \hfill}%
+}
+\newcommand{\M@super@metra}[2][0]{%
+ \begingroup
+ \tiny
+ \setbox0=\hbox{#2}%
+ \dimen0=1.25\M@metra@ex
+ \advance \dimen0 by
+ \if 0\M@opt@style
+ \z@
+ \else
+ \ifM@vert@bar -.5\M@text@ex \else -\M@dim@bsink \fi
+ \fi
+ \advance \dimen0 by \M@subS\M@text@ex
+ \advance \dimen0 by -\ht0
+ \advance \dimen0 by #1\M@metra@ex
+ \raise \dimen0 \hbox{\kern .05\wd0#2}%
+ \endgroup
+ \M@vert@barfalse
+}
+\def\M@dirty@trick#1{%
+ \kern -\wd#1\relax
+ \raisebox {100cm}[\z@][\z@]{\hbox to \wd#1{\hss?\hss}}%
+}
+\newcommand{\M@n}[3][1]{\M@@n{\hss#2\hss}{#3}{0}{#1}{0}}
+\newcommand{\M@ni}[3][1]{\M@@n{\hss#2\hss}{#3}{1}{#1}{0}}
+\def\M@@n#1#2#3#4#5{%
+ \M@head
+ \global\M@dim@sunk=\z@
+ \ifM@inter
+ \dimen3=\M@interS\M@dim@m
+ \else
+ \dimen3=\z@
+ \fi
+ \setbox0=\hbox{#2}%
+ \begingroup
+ \tiny \global\setbox1=\hbox{#1}%
+ \endgroup
+ \dimen2=\M@intervallum\M@metra@ex
+ \dimen2=1.5\dimen2
+ \ifnum #3=\z@
+ \advance \dimen2 by \dp1
+ \advance \dimen2 by \ht0
+ \else
+ \dimen2=-\dimen2
+ \advance \dimen2 by -\ht1
+ \advance \dimen2 by -\M@dim@sunk
+ \fi
+ \dimen2=#4\dimen2
+ \M@Stack#5\relax
+ \M@tail
+}
+\newcommand{\M@N}[4][1]{%
+ \M@@n{%
+ \ifx #3\mbbx
+ \hfil #2\relax \hfil \kern \M@dim@b
+ \else
+ \ifx #3\bbmx
+ \kern \M@dim@b \hfil #2\relax \hfil
+ \else
+ \hfil #2\relax \hfil
+ \fi
+ \fi
+ }{#3}{0}{#1}{0}%
+ \M@interfalse
+ \M@@n{%
+ \ifx #3\mbbx
+ \kern \M@dim@b \hfil #4\relax \hfil
+ \else
+ \ifx #3\bbmx
+ \hfil #4\relax \hfil \kern \M@dim@b
+ \else
+ \hfil #4\relax \hfil
+ \fi
+ \fi
+ }{#3}{1}{#1}{1}%
+}
+\def\M@mbbx{%
+ \M@head
+ \setbox0=\hbox{\M@@mbb}%
+ \if 0\M@opt@style
+ \dimen0=\M@intervallum\M@metra@ex
+ \setbox1=\hbox{\m}%
+ \advance \dimen0 by \ht1
+ \raise \dimen0
+ \fi
+ \copy0 \kern -\M@dim@m
+ \M@interfalse \M@@bbm
+ \M@tail
+}
+\def\M@bbmx{%
+ \M@head
+ \setbox0=\hbox{\M@@bbm}%
+ \copy0
+ \dimen2=\M@dim@sunk
+ \kern -\M@dim@m \M@interfalse
+ \if 0\M@opt@style
+ \dimen0=\M@intervallum\M@metra@ex
+ \setbox1=\hbox{\m}%
+ \advance \dimen0 by \ht1
+ \raise \dimen0
+ \fi
+ \hbox{\M@@mbb}%
+ \global\M@dim@sunk=\dimen2
+ \M@tail
+}
+\newcommand{\numeri}[1]{\M@numeri#1\end}
+\def\M@numeri#1:#2\end{\bgroup\tiny{\it #1}:%
+ \kern .2em#2\egroup}
+\def\M@abbrev{%
+ \def\c{\metra{\c}}%
+ \def\C{\metra{\C}}%
+ \def\cc{\metra{\cc}}%
+ \def\Cc{\metra{\Cc}}%
+ \def\ccc{\metra{\ccc}}%
+ \def\Ccc{\metra{\Ccc}}%
+ \def\p{\metra{\p}}%
+ \def\pp{\metra{\pp}}%
+ \def\Pp{\metra{\Pp}}%
+ \def\ppp{\metra{\ppp}}%
+ \def\Ppp{\metra{\Ppp}}%
+ \def\pppp{\metra{\pppp}}%
+ \def\Pppp{\metra{\Pppp}}%
+ \def\ppppp{\metra{\ppppp}}%
+ \def\Ppppp{\metra{\Ppppp}}%
+ \def\pxp{\metra{\pxp}}%
+ \def\Pxp{\metra{\Pxp}}%
+ \def\pos{\positio}%
+ \def\Pos{\Positio}%
+ \def\!{\dubia}%
+ \let\e=\Elevatio
+ \let\t=\Translatio
+}
+\newenvironment{metrica}[1][\relax]{\leavevmode
+ \ifx n#1\relax
+ \else
+ \ifx N#1\relax
+ \else
+ \ifx \relax#1\relax
+ \M@abbrev
+ \else
+ \PackageError{metre}{%
+ Invalid optional parameter for %
+ the metrica environment}%
+ {The optional parameter must be either `n' or `N'}%
+ \fi
+ \fi
+ \fi
+ \def\={\M@tempus{2}}%
+ \def\-{\M@tempus{1}}%
+ \let\u=\-%
+ \ignorespaces
+ }{}%
+\def\M@tempus#1#2{\leavevmode
+ \def\M@accent{\relax}%
+ \if '#2\relax
+ \def\M@accent{19}%
+ \else
+ \if `#2\relax
+ \def\M@accent{18}%
+ \fi
+ \fi
+ \let\next=\relax
+ \if \M@accent\relax
+ \def\M@char{#2}%
+ \let\next=\M@@tempus% no accent
+ \else
+ \let\next=\M@@@tempus% accent
+ \fi
+ \next{#1}%
+}
+\def\M@@@tempus#1#2{%
+ \def\M@char{#2}%
+ \M@@tempus#1\relax
+}
+\def\M@ij#1#2\end{%
+ \ifx i#1\relax
+ \def\M@char{\i}%
+ \else
+ \ifx j#1\relax
+ \def\M@char{\j}%
+ \else
+ \def\M@char{#1}%
+ \fi
+ \fi
+ \ifx i#2\relax
+ \edef\M@char{\M@char\i}%
+ \else
+ \ifx j#2\relax
+ \edef\M@char{\M@char\j}%
+ \else
+ \edef\M@char{\M@char#2}%
+ \fi
+ \fi
+}
+\def\M@@tempus#1{%
+ \dimen0=1ex
+ \dimen0=\M@elevatio\dimen0
+ \ifdim \dimen0=\z@
+ \expandafter\M@ij\M@char\end
+ \fi
+ \dimen3=1em
+ \dimen3=\M@translatio\dimen3
+ \setbox0=\hbox{\M@char}%
+ \dimen1=\wd0
+ \dimen2=\dimen0
+ \ifdim \dimen0=\z@
+ \ifdim \wd0=\z@
+ \dimen2=1ex
+ \else
+ \dimen2=\ht0
+ \fi
+ \fi
+ \setbox0=\hbox{%
+ \M@char
+ \kern -\dimen1
+ \kern \dimen3
+ \raise \dimen2 \hbox to \dimen1{%
+ \begingroup
+ \M@cmr
+ \hss
+ \raisebox {-1ex}[\z@][\z@]{\hbox{\char2#1}}%
+ \hss
+ \endgroup
+ }%
+ \kern -\dimen3
+ }%
+ \ht0=1.3\ht0
+ \if \M@accent\relax
+ \copy0
+ \else
+ \ifdim \dimen0=\z@
+ \dimen0=1.05\ht0
+ \else
+ \ifdim \dimen0<\z@
+ \dimen0=.8\dimen0
+ \else
+ \dimen0=1.2\dimen0
+ \fi
+ \fi
+ \copy0
+ \kern -\wd0
+ \kern \dimen3
+ \raise \dimen0 \hbox to \wd0{%
+ \begingroup
+ \M@cmr
+ \hss
+ \lower 1ex \hbox{\expandafter\char\M@accent}%
+ \hss
+ \endgroup
+ }%
+ \kern -\dimen3
+ \fi
+}
+\newenvironment{metrike}[1][\relax]{\leavevmode
+ \ifx n#1\relax
+ \else
+ \ifx N#1\relax
+ \else
+ \ifx \relax#1\relax
+ \M@abbrev
+ \else
+ \PackageError{metre}{%
+ Invalid optional parameter for %
+ the metrike environment}%
+ {The optional parameter must be either `n' or `N'}%
+ \fi
+ \fi
+ \fi
+ \def\={\M@gtempus{2}}%
+ \def\-{\M@gtempus{1}}%
+ \let\u=\-%
+ \ifx \M@MetrikeFont \@undefined
+ \ifnum \M@ibycus=\@ne
+ \def\M@@MF{\fontencoding{OT1}\greek}%
+ \else
+ \ifx \l@greek \@undefined
+ \PackageError{metre}{No font available for Greek text}%
+ {You must use the \protect\MetrikeFont command}%
+ \else
+ \def\M@@MF{\selectlanguage{polutonikogreek}}%
+ \fi
+ \fi
+ \else
+ \if i\M@MetrikeFont
+ \def\M@@MF{\fontencoding{OT1}\greek}%
+ \else
+ \if I\M@MetrikeFont
+ \def\M@@MF{\fontencoding{OT1}\greek}%
+ \else
+ \if b\M@MetrikeFont
+ \def\M@@MF{\selectlanguage{polutonikogreek}}%
+ \else
+ \if B\M@MetrikeFont
+ \def\M@@MF{\selectlanguage{polutonikogreek}}%
+ \else
+ \def\M@@MF{\M@MetrikeFont}%
+ \fi
+ \fi
+ \fi
+ \fi
+ \fi
+ \M@@MF
+ \ignorespaces
+ }{}%
+\def\M@gtempus#1#2{\leavevmode
+ \setbox0=\hbox{#2}%
+ \dimen0=1ex
+ \dimen0=\M@elevatio\dimen0
+ \ifdim \dimen0=\z@
+ \dimen0=\ht0
+ \fi
+ \dimen3=1em
+ \dimen3=\M@translatio\dimen3
+ \copy0
+ \kern -\wd0
+ \dimen1=\wd0
+ \setbox1=\hbox{\M@bare #2\end}%
+ \advance \dimen1 by -\wd1
+ \kern \dimen1
+ \kern \dimen3
+ \raise \dimen0 \hbox to \wd1{%
+ \begingroup
+ \hss
+ \M@cmr
+ \raisebox {-1ex}[\z@][\z@]{\hbox{\char2#1}}%
+ \hss
+ \endgroup
+ }%
+ \kern -\dimen3\relax
+}
+\def\M@bare#1{%
+ \let\next=\M@bare
+ \ifnum \M@ibycus=\@ne
+ \ifx #1\end
+ \let\next=\relax
+ \else \ifx '#1\relax
+ \else \ifx `#1\relax
+ \else \ifx (#1\relax
+ \else \ifx )#1\relax
+ \else \ifx =#1\relax
+ \else \ifx |#1\relax
+ \else
+ #1\relax
+ \fi\fi\fi\fi\fi\fi\fi
+ \else
+ \ifx #1\end
+ \let\next=\relax
+ \else \ifx '#1\relax
+ \else \ifx `#1\relax
+ \else \ifx <#1\relax
+ \else \ifx >#1\relax
+ \else \ifx ~#1\relax
+ \else \ifx |#1\relax
+ \else
+ #1\relax
+ \fi\fi\fi\fi\fi\fi\fi
+ \fi
+ \next
+}
+\begingroup
+\catcode`\:=\active
+\catcode`\/=\active
+\catcode`\_=\active
+\catcode`<=\active
+\catcode`>=\active
+\gdef\sigla{%
+ \begingroup% \endgroup in \M@sigla
+ \dimen1=.056em
+ \catcode`\:=\active
+ \catcode`\/=\active
+ \catcode`\_=\active
+ \catcode`<=\active
+ \catcode`>=\active
+ \def/{\raisebox{.667ex}{\anaclasis}\kern -.1em\relax}%
+ \def_{%
+ \raisebox{-.5ex}[\z@][\z@]{$\scriptscriptstyle\wedge$}%
+ }%
+ \def:{%
+ \raisebox{-.02ex}{%
+ \begingroup
+ \M@cmr
+ \kern .1em \char95 \kern -.1em \char95
+ \endgroup
+ }%
+ }%
+ \def\D{$\delta$\kern -\dimen1\relax}%
+ \def\d{$\delta$}%
+ \def\s{$\int$}%
+ \def\+{%
+ \kern .056em
+ \raisebox{.667ex}[\z@][\z@]{$\scriptscriptstyle+$}%
+ }%
+ \def<{\kern -\dimen1\relax}%
+ \def>{\kern \dimen1\relax}%
+ \def\S{\M@super@sigla}%
+ \def\charcolon{\char"3A}%
+ \def\charslash{\char"2F}%
+ \M@sigla
+}
+\endgroup
+\newcommand{\M@sigla}[2][\relax]{%
+ \ifx n#1\relax
+ \else
+ \ifx N#1\relax
+ \else
+ \ifx \relax#1\relax
+ \def\c{\metra{\c}}%
+ \def\C{\metra{\C}}%
+ \def\cc{\metra{\cc}}%
+ \def\Cc{\metra{\Cc}}%
+ \def\ccc{\metra{\ccc}}%
+ \def\Ccc{\metra{\Ccc}}%
+ \def\p{\metra{\p}}%
+ \def\pp{\metra{\pp}}%
+ \def\Pp{\metra{\Pp}}%
+ \def\ppp{\metra{\ppp}}%
+ \def\Ppp{\metra{\Ppp}}%
+ \def\pppp{\metra{\pppp}}%
+ \def\Pppp{\metra{\Pppp}}%
+ \def\ppppp{\metra{\ppppp}}%
+ \def\Ppppp{\metra{\Ppppp}}%
+ \def\pxp{\metra{\pxp}}%
+ \def\Pxp{\metra{\Pxp}}%
+ \def\x{\metra{\x}\kern 3\dimen1\relax}%
+ \let\r=\respondens
+ \M@dim@c@ext=.36em
+ \M@dim@c@int=.12em
+ \M@dim@c@Ext=.5\M@dim@c@int
+ \else
+ \PackageError{metre}{%
+ Invalid optional parameter for \protect\sigla}%
+ {The optional parameter must be either `n' or `N'}%
+ \fi
+ \fi
+ \fi
+ \bgroup \leavevmode \M@facies #2\/\egroup \endgroup}
+\newcommand{\M@super@sigla}[2][0]{%
+ \begingroup
+ \dimen0 =.75ex
+ \advance \dimen0 by #1ex
+ \dimen1 = 1em
+ \relsize{-4}%
+ \expandafter\M@super@sigla@check@it\f@shape\end
+ \raise \dimen0 \hbox{#2}%
+ \endgroup
+}
+\def\M@super@sigla@check@it#1#2\end{%
+ \kern .05\dimen1
+ \if i#1\relax
+ \if t#2\relax
+ \kern .05\dimen1\relax
+ \fi
+ \fi
+}
+\newcommand{\quadras}{\leavevmode \raise .16ex
+ \hbox{$\scriptstyle\lbrack\mskip-\thinmuskip\lbrack$}}
+\newcommand{\Quadras}{\leavevmode
+ $\textstyle\lbrack\mskip-\thinmuskip\lbrack$}
+\newcommand{\quadrad}{\leavevmode \raise .16ex
+ \hbox{$\scriptstyle\rbrack\mskip-\thinmuskip\rbrack$}}
+\newcommand{\Quadrad}{\leavevmode
+ $\textstyle\rbrack\mskip-\thinmuskip\rbrack$}
+\newcommand{\angus}{\leavevmode
+ \raise .16ex\hbox{$\scriptstyle\langle$}}
+\newcommand{\Angus}{\leavevmode $\textstyle\langle$}
+\newcommand{\angud}{\leavevmode
+ \raise .16ex\hbox{$\scriptstyle\rangle$}}
+\newcommand{\Angud}{\leavevmode $\textstyle\rangle$}
+\newcommand{\crux}{\leavevmode
+ \bgroup\M@cmr\textdagger\egroup}
+\newcommand{\Crux}{\leavevmode
+ \bgroup\M@cmr\relsize{1}\textdagger\egroup}
+\newcommand{\alas}{\leavevmode \bgroup\M@cmr\{\egroup}
+\newcommand{\Alas}{\leavevmode
+ \bgroup\M@cmr\relsize{1}\{\egroup}
+\newcommand{\alad}{\leavevmode \bgroup\M@cmr\}\egroup}
+\newcommand{\Alad}{\leavevmode
+ \bgroup\M@cmr\relsize{1}\}\egroup}
+\newcommand{\semi}[1]{%
+ \ifx [#1\relax \M@semi@lb
+ \else
+ \ifx ]#1\relax \M@semi@rb
+ \else
+ \PackageError{metre}{Invalid argument for \protect\semi}%
+ {\protect\semi must be followed by \lbrack or \rbrack}%
+ \fi
+ \fi
+}
+\def\M@semi@lb{\leavevmode
+ \setbox0=\hbox{o}%
+ \setbox0=\hbox to .67\wd0{%
+ \hss
+ \vrule height .5ex width .5pt depth .5ex
+ \lower .5ex \hbox to .6ex{%
+ \leaders\hrule height .4pt\hfill}%
+ }%
+ \box0\relax
+}
+\def\M@semi@rb{\leavevmode
+ \setbox0=\hbox{o}%
+ \setbox0=\hbox to .67\wd0{%
+ \lower .5ex \hbox to .6ex{%
+ \leaders\hrule height .4pt\hfill}%
+ \vrule height .5ex width .5pt depth .5ex
+ \hss
+ }%
+ \box0\relax
+}
+\newcommand{\anaclasis}[1][0]{\M@anaclasis0{#1}}
+\newcommand{\Anaclasis}[1][0]{\M@anaclasis1{#1}}
+\def\M@anaclasis#1#2{\leavevmode
+ \setbox0=\hbox{$\ifnum #1=\z@
+ \scriptscriptstyle
+ \else
+ \scriptstyle
+ \fi
+ \div$}%
+ \dimen0=\ifnum #1=\z@ .215\else .105\fi ex
+ \advance \dimen0 by #2ex
+ \raisebox {\dimen0}[\z@][\z@]{\box0}%
+}
+\newcommand{\antisigma}[1][0]{\M@antisigma0{#1}}
+\newcommand{\Antisigma}[1][0]{\M@antisigma1{#1}}
+\def\M@antisigma#1#2{\leavevmode
+ \setbox0=\hbox{$\ifnum #1=\z@
+ \scriptscriptstyle
+ \else
+ \scriptstyle
+ \fi
+ \supset$}%
+ \dimen0=\ifnum #1=\z@ .19\else .105\fi ex
+ \advance \dimen0 by #2ex
+ \raisebox {\dimen0}[\z@][\z@]{\box0}%
+}
+\newcommand{\asteriscus}[1][0]{\M@aster0{#1}}
+\let\asteriskos=\asteriscus
+\newcommand{\Asteriscus}[1][0]{\M@aster1{#1}}
+\let\Asteriskos=\Asteriscus
+\def\M@aster#1#2{\leavevmode
+ \dimen1=1ex
+ \begingroup
+ \relsize {\ifnum #1=\z@ 1\else 2\fi}%
+ \setbox0=\hbox{$\times$}%
+ \setbox1=\hbox{$\cdot$}%
+ \ht0=.82\ht0
+ \setbox2=\hbox to .675\wd0{%
+ \hss
+ \copy0
+ \kern -\wd0
+ \rlap{\kern .1\wd0 \raise 0\ht0 \copy1}%
+ \rlap{\kern .32\wd0 \raise .35\ht0 \copy1}%
+ \rlap{\kern \ifnum #1=\z@ .55 \else .525\fi \wd0
+ \raise 0\ht0 \copy1}%
+ \rlap{\kern .32\wd0 \raise -.35\ht0 \copy1}%
+ \kern \wd0
+ \hss
+ }%
+ \dimen0=-\ifnum #1=\z@ .1\else .2\fi\dimen1
+ \advance \dimen0 by #2\dimen1
+ \raisebox {\dimen0}[\z@][\z@]{\box2}%
+ \endgroup
+}
+\newcommand{\catalexis}[1][0]{\M@catalexis 0{#1}}
+\newcommand{\Catalexis}[1][0]{\M@catalexis 1{#1}}
+\def\M@catalexis#1#2{\leavevmode
+ \setbox0=\hbox{$\ifnum #1=\z@
+ \scriptscriptstyle
+ \else
+ \scriptstyle
+ \fi
+ \wedge$}%
+ \kern -.05\wd0
+ \dimen0=-\ifnum #1=\z@ .22\else .45\fi ex
+ \advance \dimen0 by #2ex
+ \raisebox {\dimen0}[\z@][\z@]{\box0}%
+ \kern .05\wd0\relax
+}
+\newcommand{\diple}{%
+ \@ifstar{\M@starredtrue\M@bigfalse\M@diple}%
+ {\M@starredfalse\M@bigfalse\M@diple}}
+\newcommand{\Diple}{%
+ \@ifstar{\M@starredtrue\M@bigtrue\M@diple}%
+ {\M@starredfalse\M@bigtrue\M@diple}}
+\newcommand{\M@diple}[1][0]{\leavevmode
+ \setbox0=\hbox{%
+ $\ifM@big \textstyle \else \scriptstyle \fi>$}%
+ \dimen0=\ifM@big -.05 \else .1 \fi ex
+ \dimen1=#1ex
+ \advance \dimen1 by \dimen0
+ \raisebox {\dimen1}[\z@][\z@]{\copy0}%
+ \ifM@starred
+ \ifM@big
+ \kern -.25\wd0 \dimen0=.55\ht0
+ \else
+ \kern -.2\wd0 \dimen0=.45\ht0
+ \fi
+ \advance \dimen0 by \dimen1
+ \raisebox {\dimen0}[\z@][\z@]%
+ {\hbox to 0pt{\hss $\scriptstyle\cdot$}}%
+ \dimen0=\ifM@big -.275 \else -.475 \fi \ht0
+ \advance \dimen0 by \dimen1
+ \raisebox {\dimen0}[\z@][\z@]%
+ {\hbox to 0pt{\hss $\scriptstyle\cdot$}}%
+ \kern \ifM@big .25 \else .2 \fi \wd0
+ \fi
+}
+\newcommand{\antidiple}{%
+ \@ifstar{\M@starredtrue\M@bigfalse\M@antidiple}%
+ {\M@starredfalse\M@bigfalse\M@antidiple}}
+\newcommand{\Antidiple}{%
+ \@ifstar{\M@starredtrue\M@bigtrue\M@antidiple}%
+ {\M@starredfalse\M@bigtrue\M@antidiple}}
+\newcommand{\M@antidiple}[1][0]{\leavevmode
+ \setbox0=\hbox{%
+ $\ifM@big \textstyle \else \scriptstyle \fi<$}%
+ \dimen0=\ifM@big -.05 \else .1 \fi ex
+ \dimen1=#1ex
+ \advance \dimen1 by \dimen0
+ \raisebox {\dimen1}[\z@][\z@]{\copy0}%
+ \ifM@starred
+ \ifM@big
+ \kern -.5\wd0
+ \dimen0=.55\ht0
+ \else
+ \kern -.45\wd0
+ \dimen0=.45\ht0
+ \fi
+ \advance \dimen0 by \dimen1
+ \raisebox {\dimen0}[\z@][\z@]%
+ {\hbox to 0pt{\hss $\scriptstyle\cdot$}}%
+ \dimen0=\ifM@big -.325 \else -.5 \fi \ht0
+ \advance \dimen0 by \dimen1
+ \raisebox {\dimen0}[\z@][\z@]%
+ {\hbox to 0pt{\hss $\scriptstyle\cdot$}}%
+ \kern \ifM@big .5 \else .45 \fi \wd0
+ \fi
+}
+\newcommand{\obelus}{%
+ \@ifstar{\M@starredtrue\M@bigfalse\M@obelus}%
+ {\M@starredfalse\M@bigfalse\M@obelus}}
+\let\obelos=\obelus
+\newcommand{\Obelus}{%
+ \@ifstar{\M@starredtrue\M@bigtrue\M@obelus}%
+ {\M@starredfalse\M@bigtrue\M@obelus}}
+\let\Obelos=\Obelus
+\newcommand{\M@obelus}[1][0]{\leavevmode
+ \setbox0=\hbox to
+ \ifM@big
+ \ifM@starred 1 \else 1.5 \fi
+ \else
+ \ifM@starred .89 \else 1.33 \fi
+ \fi em
+ {\leaders \hrule height .33pt\hfill}%
+ \setbox1=\hbox{$\cdot$}%
+ \ifM@starred
+ \setbox0=\hbox{%
+ \copy0
+ \dimen0=\wd0
+ \advance \dimen0 by \wd1
+ \divide \dimen0 by 2
+ \kern -\dimen0
+ \rlap{\lower .1ex \copy1}%
+ \rlap{\lower 1ex \copy1}%
+ \kern \dimen0
+ }%
+ \fi
+ \dimen0=.48ex
+ \advance \dimen0 by #1ex
+ \raisebox {\dimen0}[\z@][\z@]{\box0}%
+}
+\newcommand{\respondens}{\M@bigfalse\M@respondens}
+\newcommand{\Respondens}{\M@bigtrue\M@respondens}
+\newcommand{\M@respondens}[1][0]{\leavevmode
+ \setbox0=\hbox{%
+ $\ifM@big \textstyle \else \scriptstyle \fi \sim$}%
+ \dimen0=\ifM@big -.05 \else .1 \fi ex
+ \advance \dimen0 by #1ex
+ \kern .067em
+ \raisebox {\dimen0}[\z@][\z@]{\box0}%
+}
+\newcommand{\terminus}{%
+ \@ifstar{\M@starredtrue\M@bigfalse\M@terminus}%
+ {\M@starredfalse\M@bigfalse\M@terminus}}
+\newcommand{\Terminus}{%
+ \@ifstar{\M@starredtrue\M@bigtrue\M@terminus}%
+ {\M@starredfalse\M@bigtrue\M@terminus}}
+\newcommand{\M@terminus}[1][0]{\leavevmode
+ \setbox0=\hbox{%
+ $\ifM@big \textstyle \else \scriptstyle \fi
+ \ifM@starred \oplus \else \otimes \fi$}%
+ \dimen0=\ifM@big -.1 \else .1 \fi ex
+ \advance \dimen0 by #1ex
+ \raisebox {\dimen0}[\z@][\z@]{\box0}%
+}
+\newcommand{\margini}{%
+ \@ifstar{\M@margini@star}{\M@margini@nostar}}
+\newcommand{\M@margini@star}[2][0pt]{\M@margini{1}{#1}{#2}}
+\newcommand{\M@margini@nostar}[2][0pt]{\M@margini{0}{#1}{#2}}
+\def\M@margini#1#2#3{\leavevmode
+ \setbox1=\hbox{#3}%
+ \strut
+ \vadjust{%
+ \kern -\dp\strutbox
+ \ifnum #1=\@ne
+ \hfill
+ \fi
+ \dimen0=1em
+ \advance \dimen0 by #2\relax
+ \vtop to \dp\strutbox{%
+ \baselineskip\dp\strutbox
+ \vss
+ \ifnum #1=\@ne
+ \rlap{\kern \dimen0\copy1}%
+ \else
+ \llap{\copy1\kern \dimen0}%
+ \fi
+ \null
+ }%
+ }%
+ \ignorespaces
+}
+\newcommand{\acutus}[2][0]{\M@movable@accent{#1}{#2}{19}}
+\newcommand{\gravis}[2][0]{\M@movable@accent{#1}{#2}{18}}
+\newcommand{\macron}[2][0]{\M@movable@accent{#1}{#2}{22}}
+\edef\Breve{\breve}
+\renewcommand{\breve}[2][0]{\M@movable@accent{#1}{#2}{21}}
+\newcommand{\circumflexus}[2][0]{\M@movable@accent{#1}{#2}{126}}
+\newcommand{\diaeresis}[2][0]{\M@movable@accent{#1}{#2}{127}}
+\def\M@movable@accent#1#2#3{\leavevmode
+ \begingroup
+ \setbox0=\hbox{#2}%
+ \copy0
+ \kern -\wd0
+ \dimen0 = \ht0
+ \ifdim \dimen0=\z@
+ \dimen0=1ex
+ \fi
+ \advance \dimen0 by -1ex
+ \advance \dimen0 by #1ex
+ \raise \dimen0
+ \hbox to \wd0{%
+ \hss \begingroup \M@cmr \char#3 \endgroup \hss}%
+ \endgroup
+}
+\newcommand{\cons}[1]{%
+ \setbox0=\hbox{#1}%
+ \copy0
+ \kern -\wd0
+ \setbox1=\hbox{\hss\begingroup\tencirc\char3\char0\endgroup}%
+ \setbox1=\hbox to \wd0{\hss\kern .5\wd1\box1\hss}%
+ \dimen0=-.5\ht1
+ \ifdim \z@<\dp0
+ \advance \dimen0 by -.5\dp0
+ \fi
+ \raise \dimen0 \box1\relax
+}
+\newcommand{\dubia}{\@ifstar{\M@dubia@star}{\M@dubia}}
+\def\M@dubia@star#1{\M@dubia@ibycus{#1}}
+\def\M@dubia#1{\leavevmode
+ \setbox0=\hbox{[}%
+ \dimen0=\dp0
+ \setbox0=\hbox{#1}%
+ \ifdim \dp0=\z@
+ \dimen2=-.5ex
+ \else
+ \dimen2=-1.75\dimen0
+ \fi
+ \setbox1=\hbox{\bgroup \M@cmr .\egroup}%
+ \dimen3=\z@
+ \M@Stack 0\relax
+}
+\def\M@dubia@ibycus#1{\leavevmode
+ \ifnum \M@ibycus=\@ne
+ #1!%
+ \else
+ \PackageError{metre}{\protect\dubia* requires ibycus4}{}%
+ \fi
+}
+\newcommand{\dubiae}{\@ifstar{\M@dubiae@star}{\M@dubiae@nostar}}
+\def\M@dubiae@star#1{\expandafter\M@dubiae@ibycus#1\end}
+\def\M@dubiae@nostar#1{\M@dubiae#1\end}
+\def\M@dubiae#1{\leavevmode
+ \let\next=\M@dubiae
+ \ifx #1\end
+ \let\next=\relax
+ \else
+ \ifx #1\positio
+ #1\relax \else
+ \ifx #1\Positio
+ #1\relax \else
+ \ifx #1\pos
+ #1\relax \else
+ \ifx #1\Pos
+ #1\relax
+ \else
+ \setbox0=\hbox{[}%
+ \dimen0=\dp0
+ \setbox0=\hbox{#1}%
+ \ifdim \dp0=\z@
+ \dimen2=-.5ex
+ \else
+ \dimen2=-1.75\dimen0
+ \fi
+ \setbox1=\hbox{\bgroup \M@cmr .\egroup}%
+ \dimen3=\z@
+ \M@Stack 0\relax
+ \fi\fi\fi\fi
+ \fi
+ \next
+}
+\def\M@dubiae@ibycus#1{\leavevmode
+ \ifx #1\end
+ \let\next=\relax
+ \else
+ \ifnum \M@ibycus=\z@
+ \PackageError{metre}{\protect\dubiae* requires ibycus4}{}%
+ \fi
+ \ifx #1\positio #1\relax \else
+ \ifx #1\Positio #1\relax \else
+ \ifx #1\pos #1\relax \else
+ \ifx #1\Pos #1\relax \else
+ #1!\relax
+ \fi\fi\fi\fi
+ \let\next=\M@dubiae@ibycus
+ \fi
+ \next
+}
+\newcommand{\erasa}[1][1]{\leavevmode
+ \@tempcnta=#1\relax
+ \@whilenum \@tempcnta>\z@ \do
+ {\M@erasa \advance \@tempcnta by \m@ne}%
+}
+\def\M@erasa{%
+ \setbox0=\hbox{\vrule width .025em depth .4ex height 1.5ex}%
+ \kern .125em
+ \copy0 \kern .125em
+ \copy0 \kern .125em
+ \copy0 \kern .115em\relax
+}
+\newcommand{\positio}{\leavevmode
+ \raise .85ex \hbox{\vrule width .02em depth \z@ height .75ex}%
+}
+\newcommand{\Positio}{\leavevmode
+ \raise .75ex \hbox{\vrule width .02em depth \z@ height .94ex}%
+}
+\newcommand{\punctum}{\@ifnextchar[{\M@punctum}{\M@punctum[1]}}
+\def\M@punctum[#1]{\leavevmode
+ \@tempcnta=#1\relax
+ \@whilenum \@tempcnta>\z@ \do
+ {\M@@punctum \advance \@tempcnta by \m@ne}%
+}
+\def\M@@punctum{%
+ \setbox0=\hbox{[}%
+ \setbox1=\hbox to .5em{\hss \bgroup \M@cmr .\egroup \hss}%
+ \lower .9\dp0 \box1\relax
+}
+\newcommand{\Punctum}{\@ifnextchar[{\M@Punctum}{\M@Punctum[1]}}
+\def\M@Punctum[#1]{\leavevmode
+ \@tempcnta=#1\relax
+ \@whilenum \@tempcnta>\z@ \do
+ {\M@@Punctum \advance \@tempcnta by \m@ne}%
+}
+\def\M@@Punctum{%
+ \setbox0=\hbox{[}%
+ \setbox1=\hbox{%
+ \begingroup \M@cmr
+ {\relsize{-4}\hbox{(}\kern -.15em}%
+ .%
+ {\relsize{-4}\kern -.15em\hbox{)}}%
+ \endgroup
+ }%
+ \lower .9\dp0 \copy1\relax
+}
+\newcommand{\tie}{\@ifstar\M@tie@star\M@tie@nostar}
+\newcommand{\itie}{\@ifstar\M@itie@star\M@itie@nostar}
+\newcommand{\M@tie@star}[2][1]{\M@tie{#2}{0}{1}{#1}}
+\newcommand{\M@tie@nostar}[2][1]{\M@tie{#2}{0}{0}{#1}}
+\newcommand{\M@itie@star}[2][1]{\M@tie{#2}{1}{0}{#1}}
+\newcommand{\M@itie@nostar}[2][1]{\M@tie{#2}{1}{1}{#1}}
+\def\M@tie#1#2#3#4{%
+ \leavevmode
+ \setbox0=\hbox{#1}%
+ \ifnum \M@metra=\@ne
+ \global\M@dim@sunk=\z@
+ \fi
+ \dimen3=\z@
+ \ifM@inter
+ \dimen3=\M@interS\M@dim@m%
+ \fi
+ \ifdim \ht0=\z@ % tie over space
+ \ifdim \z@=\dp0
+ \ht0=1ex
+ \fi
+ \fi
+ \dimen0=#4\wd0
+ \ifnum \M@metra=\@ne
+ \dimen0=.6\dimen0
+ \fi
+ \begingroup
+ \relsize{-10}%
+ \wd1=\z@
+ \@whiledim \wd1<.95\dimen0 \do{%
+ \ifx \@currsize \Huge
+ \dimen0=\z@
+ \else
+ $%
+ \dimen1=\f@baselineskip
+ \fontencoding{OML}\fontfamily{cmm}\fontseries{m}%
+ \fontshape{it}\fontsize{\ssf@size}{\dimen1}\selectfont
+ \global\setbox1=\hbox{%
+ \hss\symbol{"5\ifnum 0=#2F\else E\fi}\hss}%
+ \ifdim \wd1<\dimen0
+ \fontsize{\sf@size}{\dimen1}\selectfont
+ \global\setbox1=\hbox{%
+ \hss\symbol{"5\ifnum 0=#2F\else E\fi}\hss}%
+ \ifdim \wd1<\dimen0
+ \fontsize{\tf@size}{\dimen1}\selectfont
+ \global\setbox1=\hbox{%
+ \hss\symbol{"5\ifnum 0=#2F\else E\fi}\hss}%
+ \fi
+ \fi
+ $%
+ \fi
+ \ifdim \wd1<\dimen0
+ \relsize{+1}%
+ \fi
+ \global\dimen4=\fontdimen5\the\font
+ }%
+ \endgroup
+ \ifnum #3=\z@
+ \dimen2=1.067\ht0
+ \divide \dimen4 by 2
+ \advance \dimen4 by -\ht1
+ \advance \dimen2 by .6\dimen4
+ \else
+ \dimen2=-1.05\ht1
+ \advance \dimen2 by -.75pt
+ \fi
+ \ifnum #3=\@ne
+ \ifdim \z@<\dp0
+ \advance \dimen2 by -1\dp0
+ \fi
+ \fi
+ \ifnum \M@metra=\@ne
+ \advance \dimen2 by -\M@dim@sunk
+ \fi
+ \M@Stack 0\relax
+}
+\newcommand{\M@linea@star}[1][0]{\M@linea{1}{#1\baselineskip}}
+\newcommand{\M@linea@nostar}[1][0]{\M@linea{0}{#1\baselineskip}}
+\def\M@linea#1#2{%
+ \leavevmode
+ \let\next=\relax
+ \ifnum #1=\@ne
+ \let\next=\@gobble
+ \fi
+ \global\M@linea@length=\dimen2
+ \dimen0=.75\baselineskip
+ \ifM@imago
+ \advance \dimen0 by #2\relax
+ \global\M@linea@indent=\z@
+ \else
+ \advance \dimen3 by #2\relax
+ \vadjust{\kern \dimen3}%
+ \ifnum #1=\@ne
+ \par
+ \else
+ \\%
+ \fi
+ \leavevmode
+ \kern \dimen1
+ \global\M@linea@indent=\dimen1
+ \fi
+ \raisebox {\dimen0}[\z@][\z@]%
+ {\hbox to \dimen2{\leaders\hrule\hfill}}%
+ \global\M@linea@height=\dimen0
+ \ifM@imago
+ \else
+ \dimen0=\dimen2
+ \advance \dimen0 by \dimen1
+ \kern -\dimen0
+ \fi
+ \if \M@before@linea\relax
+ \else
+ \expandafter\M@@before@linea\M@before@linea
+ \fi
+ \next
+}
+\newcommand{\geminata}{%
+ \@ifstar{\M@geminata@star}{\M@geminata@nostar}}
+\newcommand{\M@geminata@star}[1][0]%
+ {\M@geminata{1}{#1\baselineskip}}
+\newcommand{\M@geminata@nostar}[1][0]%
+ {\M@geminata{0}{#1\baselineskip}}
+\def\M@geminata#1#2{%
+ \leavevmode
+ \M@linea@dimentrue \linea \M@linea@dimenfalse
+ \let\next=\relax
+ \ifnum #1=\@ne \let\next=\@gobble \fi
+ \dimen0=.75\baselineskip
+ \ifM@imago
+ \advance \dimen0 by #2\relax
+ \else
+ \advance \dimen3 by #2\relax
+ \vadjust{\kern \dimen3}%
+ \ifnum #1=\@ne \par \else \\\fi
+ \leavevmode
+ \kern \dimen1
+ \fi
+ \raisebox {\dimen0}[\z@][\z@]%
+ {\hbox to \dimen2{\leaders\hrule\hfill}}%
+ \kern -\dimen2
+ \advance \dimen0 by -.075\baselineskip
+ \global\M@linea@height=\dimen0
+ \advance \dimen0 by -.075\baselineskip
+ \raisebox {\dimen0}[\z@][\z@]%
+ {\hbox to \dimen2{\leaders\hrule\hfill}}%
+ \ifM@imago
+ \else
+ \dimen0=\dimen2
+ \advance \dimen0 by \dimen1
+ \kern -\dimen0
+ \fi
+ \next
+}
+\newcommand{\bifida}{\def\M@before@linea{0}\linea}
+\let\lineabifida=\bifida
+\newcommand{\Bifida}{\def\M@before@linea{1}\linea}
+\let\Lineabifida=\Bifida
+\newcommand{\lunata}{\def\M@before@linea{2}\linea}
+\let\linealunata=\lunata
+\newcommand{\Lunata}{\def\M@before@linea{3}\linea}
+\let\Linealunata=\Lunata
+\def\M@@before@linea#1{%
+ \leavevmode
+ \begingroup
+ \M@cmr
+ \ifM@imago
+ \dimen0=-\M@linea@length
+ \else
+ \dimen0=\M@linea@indent
+ \fi
+ \dimen1=\M@linea@height
+ \ifcase #1\relax
+ \setbox0=\hbox{$\scriptscriptstyle>$}%
+ \ifcase \@ptsize
+ \advance \dimen1 by -.327\ht0
+ \dimen2=-.785\wd0
+ \or
+ \advance \dimen1 by -.357\ht0
+ \dimen2=-.78\wd0
+ \or
+ \advance \dimen1 by -.33\ht0
+ \dimen2=-.78\wd0
+ \fi
+ \or
+ \setbox0=\hbox{$\scriptstyle>$}%
+ \ifcase \@ptsize
+ \advance \dimen1 by -.357\ht0
+ \dimen2=-.81\wd0
+ \or
+ \advance \dimen1 by -.405\ht0
+ \dimen2=-.78\wd0
+ \or
+ \advance \dimen1 by -.395\ht0
+ \dimen2=-.78\wd0
+ \fi
+ \or
+ \setbox0=\hbox{)}%
+ \dimen2=-.725\wd0
+ \advance \dimen1 by -.28\ht0
+ \or
+ \setbox0=\hbox{\bgroup \relsize{+1})\egroup}%
+ \dimen2=-.6\wd0
+ \advance \dimen1 by -.28\ht0
+ \fi
+ \kern \dimen0 \kern \dimen2
+ \ifM@imago
+ \else
+ \global\advance\M@linea@indent by \dimen2
+ \fi
+ \global\advance \M@linea@length by -\dimen2
+ \raisebox {\dimen1}[\z@][\z@]{\copy0}%
+ \advance \dimen2 by \wd0
+ \kern -\dimen0
+ \kern -\dimen2
+ \endgroup
+ \def\M@before@linea{\relax}%
+}
+\newcommand{\antelineam}{\M@adlineam{0}}
+\newcommand{\postlineam}{\M@adlineam{1}}
+\def\M@adlineam#1#2{\leavevmode
+ \setbox0=\hbox{\hss
+ \bgroup #2\relax \global\dimen0=-.5ex \egroup \hss}%
+ \kern \M@linea@indent
+ \ifnum #1=\z@
+ \kern -\wd0
+ \else
+ \kern \M@linea@length
+ \fi
+ \advance \dimen0 by \M@linea@height
+ \raisebox {\dimen0}[\z@][\z@]{\copy0}%
+ \kern -\M@linea@indent
+ \ifnum #1=\z@
+ \else
+ \kern -\wd0
+ \kern -\M@linea@length
+ \fi
+}
+\newcommand{\coronis}{%
+ \@ifstar{\M@coronis@star}{\M@coronis@nostar}}
+\let\koronis=\coronis
+\newcommand{\M@coronis@star}[1][0]%
+ {\M@coronis{1}{#1\baselineskip}}
+\newcommand{\M@coronis@nostar}[1][0]%
+ {\M@coronis{0}{#1\baselineskip}}
+\def\M@coronis#1#2{\leavevmode
+ \let\next=\relax
+ \begingroup
+ \normalsize
+ \global\dimen2=\baselineskip
+ \endgroup
+ \ifcase \@ptsize
+ \dimen0=.67em
+ \or
+ \dimen0=.7em
+ \or
+ \dimen0=.65em
+ \fi
+ \ifM@imago
+ \dimen3=\z@
+ \advance \dimen3 by #2\relax
+ \else
+ \ifnum #1=\@ne \let\next=\@gobble \fi
+ \vadjust{\kern #2}%
+ \ifnum #1=\@ne \par \else \\\fi
+ \leavevmode
+ \kern -1.6\dimen0
+ \fi
+ \dimen1=.75\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[\z@][\z@]%
+ {\hbox to \dimen0{\leaders \hrule \hfill}}%
+ \global\M@linea@length=\dimen0
+ \global\M@linea@height=\dimen1
+ \kern -\dimen0
+ \dimen1=\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[0pt][0pt]%
+ {\hbox to \dimen0{%
+ \hss \hbox to .6\dimen0{\leaders \hrule \hfill}\hss}}%
+ \kern -\dimen0
+ \dimen1=1.1\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[0pt][0pt]%
+ {\hbox to \dimen0{%
+ \hss \hbox to .4\dimen0{\leaders \hrule \hfill}\hss}}%
+ \kern -\dimen0
+ \dimen1=1.2\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[\z@][\z@]%
+ {\hbox to \dimen0{%
+ \hss\hbox to .25\dimen0{\leaders \hrule \hfill}\hss}}%
+ \kern -\dimen0
+ \dimen1=\if \@ptsize 2 .375\else .35\fi\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[\z@][\z@]%
+ {\hbox to \dimen0{%
+ \hss \hbox to .6\dimen0{\leaders \hrule \hfill}\hss}}%
+ \kern -\dimen0
+ \dimen1=\if \@ptsize 2 .275\else .25\fi\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[0pt][0pt]%
+ {\hbox to \dimen0{%
+ \hss \hbox to .4\dimen0{\leaders \hrule \hfill}\hss}}%
+ \kern -\dimen0
+ \dimen1=\if \@ptsize 2 .175\else .15\fi\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[\z@][\z@]%
+ {\hbox to \dimen0{%
+ \hss \hbox to .25\dimen0{\leaders \hrule \hfill}\hss}}%
+ \kern -\dimen0
+ \setbox0=\hbox{\begingroup
+ \fontencoding{OT1}\fontfamily{cmr}\fontseries{m}%
+ \fontshape{it}\selectfont ,\endgroup}%
+ \dimen1=\if \@ptsize 2 0\else -.03\fi\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[\z@][\z@]%
+ {\hbox to \dimen0{\hss \kern -.1\wd0\box0\hss}}%
+ \kern -\dimen0
+ \setbox0=\hbox{\begingroup
+ \fontencoding{OT1}\fontfamily{cmr}\fontseries{m}%
+ \fontshape{it}\selectfont \char'140 \endgroup}%
+ \dimen1=.97\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[\z@][\z@]%
+ {\hbox to \dimen0{\hss \kern -.5\wd0\box0\hss}}%
+ \kern -\dimen0
+ \setbox0=\hbox{\begingroup \tencirc \char"61 \endgroup}%
+ \setbox0=\hbox{\begingroup
+ \kern 1.1\wd0 \tencirc \char"61 \endgroup}%
+ \dimen1=\if \@ptsize 2 .85\else .86\fi\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[0pt][0pt]%
+ {\hbox to \dimen0{\hss \box0 \hss}}%
+ \kern -\dimen0
+ \setbox0=\hbox{%
+ \hss \begingroup \tencirc \char"63 \endgroup \hss}%
+ \setbox0=\hbox{\hss \begingroup
+ \kern 1.05\wd0 \tencirc \char"63 \endgroup \hss}%
+ \dimen1=\if \@ptsize 2 .61\else .59\fi\dimen2
+ \ifM@imago \advance \dimen1 by \dimen3 \fi
+ \raisebox {\dimen1}[\z@][\z@]%
+ {\hbox to \dimen0{\hss \box0 \hss}}%
+ \ifM@imago
+ \else
+ \kern .6\dimen0
+ \fi
+ \next
+}
+\newcommand{\imago}{\@ifstar{\M@imago@star}{\M@imago@nostar}}
+\newcommand{\M@imago@star}[2][0]{\M@imago{1}{#1}{#2}}
+\newcommand{\M@imago@nostar}[2][0]{\M@imago{0}{#1}{#2}}
+\def\M@imago#1#2#3{\leavevmode
+ \setbox0=\hbox{\begingroup \M@imagotrue {#3[#2]}\endgroup}%
+ \setbox1=\hbox to \M@linea@length{%
+ \hss
+ \ifnum #1=\@ne
+ \dimen0=\M@linea@height
+ \advance \dimen0 by -.4ex
+ \raisebox {-\dimen0}[\z@][\z@]{\box0}%
+ \else
+ \box0
+ \fi
+ }%
+ \box1\relax
+}
+\newcommand{\novalinea}[4]{%
+ \def#1{\leavevmode
+ \dimen1=#2\relax \dimen2=#3\relax
+ \dimen3=#4\baselineskip
+ \ifM@linea@dimen
+ \let\next=\relax
+ \else
+ \let\next=\M@do@linea
+ \fi
+ \next}%
+}
+\def\M@do@linea{\@ifstar{\M@linea@star}{\M@linea@nostar}}
+\newcommand{\novageminata}[4]{%
+ \def#1{\leavevmode
+ \dimen1=#2\relax \dimen2=#3\relax
+ \dimen3=#4\baselineskip
+ \@ifstar{\M@geminata@star}{\M@geminata@nostar}}%
+}
+\novalinea{\linea}{-.75em}{1.5em}{.15}
+\newcommand{\lineola}[2][0]{\leavevmode
+ \dimen0=.75\baselineskip
+ \advance \dimen0 by #1\baselineskip
+ \raisebox {\dimen0}[\z@][\z@]%
+ {\hbox to #2{\leaders \hrule \hfill}}%
+ \kern -#2\relax
+}
+\newcommand{\Lineola}[2][0]{\leavevmode
+ \setbox0=\hbox{#2}%
+ \copy0 \kern -\wd0
+ \lineola[#1]{\wd0}%
+ \kern \wd0\relax
+}
+\newcommand{\structa}[3][0]{\leavevmode
+ \setbox0=\hbox{\begingroup #2\endgroup}%
+ \ifdim \ht0=\z@
+ \ifdim \dp0=\z@
+ \ht0=1ex
+ \fi
+ \fi
+ \setbox1=\hbox to \wd0{\hss\begingroup #3\endgroup\hss}%
+ \dimen2 = \ht0
+ \advance \dimen2 by .15ex
+ \advance \dimen2 by #1ex
+ \dimen3 = \z@
+ \M@Stack 0\relax
+}
+%% \Finale
+\endinput
+%%
+%% End of file `metre.sty'.