%%
%% This is file `poemscol.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% poemscol.dtx  (with options: `package')
%% 
%% IMPORTANT NOTICE:
%% 
%% For the copyright see the source file.
%% 
%% Any modified versions of this file must be renamed
%% with new filenames distinct from poemscol.sty.
%% 
%% For distribution of the original source see the terms
%% for copying and modification in the file poemscol.dtx.
%% 
%% This generated file may be distributed as long as the
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
\NeedsTeXFormat{LaTeX2e}[1997/12/01]
\ProvidesPackage{poemscol}
   [2002/06/05 v1.01 poemscol file]



 \geometry{verbose, tmargin= 33pt,
 textwidth=318.21pt,textheight=550pt,
 marginparsep=7pt,marginparwidth=10pt,
 headheight= 12pt,
 headsep=19pt,
 footskip=9pt,
 lmargin=132pt,
 twosideshift=0pt}
\setlength{\oddsidemargin}{60pt}
\setlength{\evensidemargin}{65.41pt}

\newdimen\croppagewidth \croppagewidth=6.125in
\newdimen\croppadtop
\newdimen\croppadbot
\newdimen\croppadlr  \croppadlr=0pt
\newdimen\croppadright \croppadright=0pt
\newdimen\croppadleft  \croppadleft=0pt
  \newdimen\cropwidth
  \cropwidth=.25pt
  \croppadbot=41.2pt \croppadtop=73pt
  \cropwidth=.25pt
\raggedbottom
\makeatletter
\renewcommand\normalsize{%
   \@setfontsize\normalsize\@xpt\@xipt
   \abovedisplayskip 10\p@ \@plus2\p@ \@minus5\p@
   \abovedisplayshortskip \z@ \@plus3\p@
   \belowdisplayshortskip 6\p@ \@plus3\p@ \@minus3\p@
   \belowdisplayskip \abovedisplayskip
   \let\@listi\@listI}
\makeatother
\normalsize
\makeatletter
\renewcommand\small{%
   \@setfontsize\small\@ixpt{10}%
   \abovedisplayskip 8.5\p@ \@plus3\p@ \@minus4\p@
   \abovedisplayshortskip \z@ \@plus2\p@
   \belowdisplayshortskip 4\p@ \@plus2\p@ \@minus2\p@
   \def\@listi{\leftmargin\leftmargini
               \topsep 4\p@ \@plus2\p@ \@minus2\p@
               \parsep 2\p@ \@plus\p@ \@minus\p@
               \itemsep \parsep}%
   \belowdisplayskip \abovedisplayskip
}
\makeatother

\newcommand{\volumetitlefont}{\fontsize{18}{23}\selectfont}
\newcommand{\volumesubtitlefont}{\fontsize{14}{18}\selectfont}
\newcommand{\poemtitlefont}{\fontsize{14}{18}\selectfont}
\newcommand{\sequencetitlefont}{\fontsize{16}{20}\selectfont}
\newcommand{\subsectiontitlefont}{\fontsize{12}{14.5}\selectfont}
\newcommand{\backmatterheaderfont}{\fontsize{16}{20}\selectfont}
\newcommand{\volumetitlesink}{\leavevmode\vspace{23.5pt}}
\newcommand{\backmattersink}{\leavevmode\vspace{21.5pt}}
\newcommand{\backmatterafterheadersink}{\leavevmode\vspace{11pt}}
\newcommand{\backmattertextfont}{\small}
\newcommand{\backmatterintrofont}{\normalsize}
\newcommand{\backmattervolumefont}{\fontsize{12}{14.5}\selectfont}
\newcommand{\backmattervolumesubtitlefont}{\fontsize{11}{13}\selectfont}
\newcommand{\contentsvolumefont}{\fontsize{14}{20}\selectfont}
\newcommand{\contentsvolumesubtitlefont}{\fontsize{12}{14.5}\selectfont}
\newcommand{\contentssequencetitlefont}{\fontsize{10}{14}\selectfont}
\newcommand{\contentspoemtitlefont}{\fontsize{10}{14}\selectfont}

\widowpenalty=300
\clubpenalty=300
\newcommand{\notespoemclubpenalty}{\penalty-300}
\newcommand{\notessequenceclubpenalty}{\penalty-1500}
\newcommand{\notesvolumetitlepenalty}{\penalty-1500}
\hfuzz=2pt
\newcommand{\verseindent}{\hspace{2em}}
\newdimen\titleindentamount \titleindentamount=1pc
\newcommand{\titleindent}{\hspace{\titleindentamount}}
\setlength{\parindent}{\titleindentamount}
\newcommand{\afterpoemtitleskip}{\smallskip}
\newcommand{\afterpoemskip}{\bigskip}
\newcommand{\aftersequencetitleskip}{\medskip}
\newcommand{\stanzaskip}{\medskip}
\newdimen\volumetitleshiftamount \volumetitleshiftamount=1pc
\newcommand{\volumetitleshift}{\hbox{\hspace{\volumetitleshiftamount}}}
\newdimen\voladditionalamount \voladditionalamount=2pc
\newdimen\contentsindentoneamount \contentsindentoneamount=24pt
\newcommand{\contentsindentone}{\hspace{\contentsindentoneamount}}
\newdimen\contentsindenttwoamount \contentsindenttwoamount=42pt
\newcommand{\contentsindenttwo}{\hspace{\contentsindenttwoamount}}
\newdimen\contentsindentthreeamount \contentsindentthreeamount=60pt
\newcommand{\contentsindentthree}{\hspace{\contentsindentthreeamount}}
\newdimen\contentsindentfouramount \contentsindentfouramount=72pt
\newcommand{\contentsindentfour}{\hspace{\contentsindentfouramount}}
\newcommand{\poemtitlepenalty}{\penalty-1000}
\newcommand{\multilinetitlepenalty}{\penalty-3000}
\newcommand{\sequencetitlepenalty}{\penalty-3000}
\newcommand{\multilinesequencepenalty}{\penalty-3500}

\def\makeatletter{\catcode`\@=11}
\def\makeatother{\catcode`\@=12 }
\makeatletter
\def\verse{\let\\=\@centercr
  \list{}{\itemsep\z@ \itemindent -6em\listparindent \itemindent
          \rightmargin 1sp\leftmargin 1sp\advance\leftmargin 6em}\item[]}
\let\endverse\endlist
\makeatother
\makeatletter

\newcounter{linenumber}
\newcounter{printlineindex}
\newcounter{linenumberscratch}
\newcounter{printlineindexscratch}
\newcounter{lineindexrepeat} \setcounter{lineindexrepeat}{9}
\newcounter{notepageholdertitle} \setcounter{notepageholdertitle}{1}
\newcounter{notepageholdernote}  \setcounter{notepageholdernote}{1}
\newif\ifinstanza
\newif\ifinpoem
\newif\ifpoemcontentson
\newif\iftextnoteson
\newif\iflinenumbers
\newif\ifexplanon
\newif\ifemendationson
\newif\iftextnotesatfoot
 \global\linenumberstrue
\newif\ifindexingon
\global\indexingontrue
\ifindexingon
  \makeindex
\fi
\newif\ifincludeaccidentals
\global\includeaccidentalstrue
\newif\ifincludetypescripts
\global\includetypescriptstrue
\newif\ifredundantemendations
\global\redundantemendationsfalse
\newif\ifnoemendyet
\newif\ifnoexplainyet
\newcommand{\makelinenumbers}{\global\linenumberstrue}

\newcommand{\volumeheader}[1]{\global\edef\volumeheadervalue{#1}
}
\newcommand{\leftheader}[1]{\global\edef\leftheadervalue{#1}
}
\leftheader{\relax}
\volumeheader{\relax}

\pagestyle{fancy}
\fancyhead{}
\fancyfoot{}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
\fancyhead[CO]{{\small{\em \volumeheadervalue}}}
\fancyhead[CE]{{\small{\em \leftheadervalue}}}
\fancyfoot[L]{{\small \botmark}}
\renewcommand{\headrulewidth}{0pt}
\renewcommand{\footrulewidth}{0pt}

\fancypagestyle{volumefirststyle}{%
\fancyhf{}
\fancyfoot[L]{{\small \botmark}}
\renewcommand{\headrulewidth}{0pt}
\renewcommand{\footrulewidth}{0pt}
}
\fancypagestyle{plain}{%
\fancyhf{}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
\renewcommand{\headrulewidth}{0pt}
\renewcommand{\footrulewidth}{0pt}
}
\fancypagestyle{volumetitlestyle}{%
\fancyhf{}
\renewcommand{\headrulewidth}{0pt}
\renewcommand{\footrulewidth}{0pt}
}
\newcommand{\mymarks}{
   \ifthenelse{\equal{\firstmark}{\botmark}}
        {\unskip to p.~\firstmark} % if equal
        {\unskip to pp.~\firstmark--\botmark}}%if not equal
\newcommand{\poemdotfill}{\dotfill}

\renewcommand{\marnfont}{\scriptsize}
\newcommand{\@putlinenumber}{\nolinebreak\begin{marginenvironment}
  \nolinebreak
  \marn{\hfil\textrm{\thelinenumber}}
  \nolinebreak
  \end{marginenvironment}\nolinebreak
}
\newcommand{\verseline}{\nolinebreak\incrementlinenumber
\nolinebreak\\}
\newcommand{\incrementlinenumber}{\nolinebreak\addtocounter{linenumber}{1}
  \addtocounter{printlineindex}{1}
  \ifnum\theprintlineindex>\thelineindexrepeat
    \iflinenumbers\nobreak
      \@putlinenumber\nobreak
    \fi\nobreak
    \setcounter{printlineindex}{0}
   \fi
}

\newcommand{\linebend}{\\
\hspace{6em}
 }
\newcommand{\savelinenumber}{\setcounter{linenumberscratch}
    {\value{linenumber}}
   \setcounter{printlineindexscratch}{\value{printlineindex}}}
\newcommand{\restorelinenumber}{\setcounter{linenumber}
     {\value{linenumberscratch}}
    \setcounter{printlineindex}{\value{printlineindexscratch}}}
\newcommand{\hour}[1]{{{\textsc{#1}}\ $\!\!\!$}
 }
\newcommand{\brokenline}{\\}
\newcommand{\versephantom}[1]{\leavevmode\phantom{#1}}

\newcommand{\makepoemcontents}{\global\poemcontentsontrue
  \newwrite\poemcontents
  \immediate\openout\poemcontents=\jobname.ctn
  \literalcontents{\flushbottom\normalfont
{\par\clearpage{\pagestyle{volumetitlestyle}\cleardoublepage}
\pagestyle{fancy}\thispagestyle{volumetitlestyle}}
\pagenumbering{roman}
\setcounter{page}{5}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
\fancyhead[CO]{{\small{\em Contents}}}
\fancyhead[CE]{{\small{\em Contents}}}
\fancyfoot{}
\backmattersink
\begin{center}{\normalfont \backmatterheaderfont
CONTENTS}\end{center}
\lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0}}

\newcommand{\maketextnotes}{\global\textnotesontrue
  \global\linenumberstrue
  \newwrite\textnotes
  \immediate\openout\textnotes=\jobname.ent
  \literaltextnote{\flushbottom{\par\clearpage
  {\pagestyle{volumetitlestyle}\cleardoublepage}
\thispagestyle{volumetitlestyle}}
\fancyhead{}
\fancyfoot{}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
\fancyhead[CO]{{\small{\em Textual Notes~\mymarks}}}
\fancyhead[CE]{{\small{\em Textual Notes~\mymarks}}}
\fancyfoot[L]{}
\mark{3}
\backmattersink
\begin{center}{\normalfont \backmatterheaderfont TEXTUAL NOTES}\end{center}
\label{textualnotes}
\lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0
\normalfont \backmattertextfont}
}

\newcommand{\makeemendations}{\global\emendationsontrue
  \newwrite\emendations
  \global\linenumberstrue
   \immediate\openout\emendations=\jobname.emd
   \literalemend{\flushbottom{\par\clearpage
   {\pagestyle{volumetitlestyle}\cleardoublepage}
\thispagestyle{volumetitlestyle}}
\fancyhead{}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
\fancyhead[CO]{{\small{\em Emendations~\mymarks}}}
\fancyhead[CE]{{\small{\em Emendations~\mymarks}}}
\fancyfoot{}
\mark{3}
\backmattersink
\begin{center}{\normalfont \backmatterheaderfont
EMENDATIONS}\end{center}
\label{emendationnotes}
\lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0
\normalfont \backmattertextfont}
}

\newcommand{\makeexplanatorynotes}{\global\explanontrue
     \global\linenumberstrue
     \newwrite\explanations
     \immediate\openout\explanations=\jobname.enx
     \literalexplain{\flushbottom{\par\clearpage
 {\pagestyle{volumetitlestyle}\cleardoublepage}
\thispagestyle{volumetitlestyle}}
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
\fancyhead[CO]{{\small{\em Explanatory Notes~\mymarks}}}
\fancyhead[CE]{{\small{\em Explanatory Notes~\mymarks}}}
\fancyfoot{}
\mark{3}
\backmattersink
\begin{center}{\normalfont \backmatterheaderfont
EXPLANATORY NOTES}\end{center}
\label{explanatorynotes}
\lefthyphenmin=2\backmatterafterheadersink\tolerance=500\language=0
\normalfont \backmattertextfont }
}

\newcommand{\@poempagetotextnotes}[1]{
    \immediate\write\textnotes{\string\par\string\argpageref\string{#1\string}}
\@pagemarktotextnotes{#1}}
\newcommand{\@poemtitletotextnotes}[1]{\literaltextnote{\textbf{#1}}}
\newcommand{\@pagemarktotextnotes}[1]
{\immediate\write\textnotes{\string\setcounter\string{notepageholdertitle\string}
\string{\string\argpageref\string{#1\string}\string}}
\immediate\write\textnotes{\string\mark
\string{\string\thenotepageholdertitle\string}\string\unskip}}

\newcommand{\wholebooktitle}[1]{{\Huge\begin{center}
\hbox{#1}\end{center}}
}
\newcommand{\booksection}[1]{\volumesection{#1}}
\newcommand{\volumetitle}[1]{\volumetitlesink\par
{\volumetitlefont\volumetitleshift #1}\par
  \ifpoemcontentson
    \literalcontents{\par
{\contentsvolumefont #1\vspace{5pt}\par\nobreak}}
  \fi
  \iftextnoteson
\immediate\write\textnotes{\string\notesvolumetitlepenalty\string\bigskip}
     \immediate\write\textnotes{\string\goodbreak}
     \immediate\write\textnotes{\string\par \string\par}
     \immediate\write\textnotes{\string\backmattervolumefont\ #1}
\immediate\write\textnotes{\string\mark\string{\thepage\string}\string\unskip}
     \immediate\write\textnotes{\string\par \string\backmattertextfont}
     \immediate\write\textnotes{\string\nobreak}
  \fi
  }
\newcommand{\volumetitlefirstline}[1]
{\volumetitlesink\par{\volumetitlefont
\volumetitleshift #1 \par}
  \ifpoemcontentson
   \literalcontents{
{\contentsvolumefont #1\par\nobreak}}
   \fi
  \iftextnoteson
     \immediate\write\textnotes{\string\penalty-2000\string\bigskip}
     \immediate\write\textnotes{\string\par \string\par}
     \immediate\write\textnotes{\string\backmattervolumefont\ #1}
  \fi
}
\newcommand{\volumetitlelastline}[1]{{\volumetitlefont
\volumetitleshift #1 \par}
  \ifpoemcontentson
    \literalcontents{{\contentsvolumefont #1\vspace{5pt}\par\nobreak}}
  \fi
  \iftextnoteson
\immediate\write\textnotes{\string\backmattervolumefont\ #1}
\immediate\write\textnotes{\string\mark\string{\thepage\string}\string\unskip}
     \immediate\write\textnotes{\string\par \string\backmattertextfont}
     \immediate\write\textnotes{\string\nobreak}
  \fi
}
\newcommand{\volumesubtitle}[1]{{\volumesubtitlefont
\volumetitleshift #1 \par}
  \ifpoemcontentson
    \literalcontents{{\contentsvolumesubtitlefont
#1\vspace{3pt}\par\nobreak}}
  \fi
  \iftextnoteson
     \immediate\write\textnotes{\string\backmattervolumesubtitlefont\ #1}
     \immediate\write\textnotes{\string\par \string\backmattertextfont}
     \immediate\write\textnotes{\string\nobreak}
  \fi
}
\newcommand{\volumesectiontitle}[1]
{\clearpage\thispagestyle{volumefirststyle}
\begin{center} {\volumesubtitlefont\textbf{#1}}
\end{center} \bigskip\bigskip
  \ifpoemcontentson
  \literalcontents{\goodbreak{\contentsvolumesubtitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \immediate\write\textnotes{\string\notesvolumetitlepenalty}
     \immediate\write\textnotes{\string\par \string\begin{bf}}
     \immediate\write\textnotes{#1 \string\end{bf}}
     \immediate\write\textnotes{\string\par}
     \immediate\write\textnotes{\string\nobreak}
  \fi
}

\newcommand{\makepoemlabel}[1]{\label{#1}}
\newcommand{\argpageref}[1]{\pageref{#1}}
\newcommand{\poemtitle}[1]
{\poemtitlepenalty{\poemtitlefont \hbox{#1}}\label{#1}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
  \literalcontents{\contentsindentone{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
 \immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\poemtitleitalic}[2]
{\poemtitlepenalty{\poemtitlefont \hbox{#1}}\label{#2}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2}
   \global\edef\@compoundlabelscratch{#2}
  \ifpoemcontentson
    \literalcontents{\contentsindentone{\contentspoemtitlefont #1
~/~\pageref{#2}\par}}
  \fi
  \iftextnoteson
\immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#2}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\poemtitlefirstline}[1]
{\multilinetitlepenalty{\poemtitlefont \hbox{#1}}\label{#1}
  \nobreak\par\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
    \literalcontents{
\contentsindentone{\contentspoemtitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
 \immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}

\newcommand{\poemtitlemiddleline}[1]{{\poemtitlefont \hbox{#1}}
  \nobreak\par\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
  \ifpoemcontentson
    \literalcontents{\nobreak\contentsindenttwo
{\contentspoemtitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi

}
\newcommand{\poemtitlelastline}[1]{{\poemtitlefont \hbox{#1}}\label{#1}
  \nobreak\par\nobreak
  \afterpoemtitleskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
   \makepoemlabel{\@compoundlabelscratch}
  \ifpoemcontentson
    \literalcontents{\nobreak\contentsindenttwo{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\poemsectiontitle}[1]{\par\nobreak
   {\subsectiontitlefont \hbox{\titleindent #1}}\label{#1}\par\nobreak
   \afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
    \literalcontents{\nobreak\contentsindenttwo{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
 \immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\poemsectiontitlefirstline}[1]{\par\nobreak
   {\subsectiontitlefont \hbox{\titleindent #1}}\label{#1}\par\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
    \literalcontents{
\contentsindenttwo{\contentspoemtitlefont #1}\par\noskip}
  \fi
  \iftextnoteson
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\poemsectiontitlelastline}[1]{
   {\subsectiontitlefont \hbox{\titleindent #1}}\label{#1}\par\nobreak
   \afterpoemtitleskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
   \makepoemlabel{\@compoundlabelscratch}
  \ifpoemcontentson
    \literalcontents{\nobreak\contentsindentthree{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\poemsectiontitlenocontents}[2]{
  \sequencesubsectiontitlenocontents{#1}{#2}}
\newcommand{\poemfirstsectiontitlebaretitle}[1]
{\par\nobreak\aftersequencetitleskip
   {\subsectiontitlefont \hbox{\titleindent #1}}\par\nobreak
   \afterpoemtitleskip\nobreak
}
\newcommand{\poemsectiontitlebaretitle}[1]{\par\poemtitlepenalty
   {\subsectiontitlefont \hbox{\titleindent #1}}\par\nobreak
   \afterpoemtitleskip\nobreak
}
\newcommand{\poemsubsectiontitle}[1]
{{\large \hbox{\titleindent\titleindent #1}}
    \afterpoemtitleskip\nobreak}
\newcommand{\poemtitlenotitle}[1]
{\poemtitlepenalty \label{#1}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
  \literalcontents{\contentsindentone{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
 \immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\poemtitlenotitleitalic}[2]
{\poemtitlepenalty\label{#2}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2}
   \global\edef\@compoundlabelscratch{#2}
  \ifpoemcontentson
    \literalcontents{\contentsindentone{\contentspoemtitlefont #1
~/~\pageref{#2}\par}}
  \fi
  \iftextnoteson
\immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#2}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencetitle}[1]{\par\sequencetitlepenalty
  {\sequencetitlefont
  \hbox{#1}}\label{#1}\par\nobreak\aftersequencetitleskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
    \literalcontents{
\par\contentsindentone
{\contentssequencetitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \immediate\write\textnotes{\string\notessequenceclubpenalty}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}

%% \begin{macro}{\sequencetitlelastline}
\newcommand{\sequencetitlefirstline}[1]{\par\multilinesequencepenalty
  {\sequencetitlefont \hbox{#1}}\label{#1}\par\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
    \literalcontents{
\contentsindentone
{\contentssequencetitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \immediate\write\textnotes{\string\penalty-2000\string\par}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencetitlelastline}[1]{
  {\sequencetitlefont \hbox{#1}}
  \label{#1}\par\nobreak\aftersequencetitleskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
   \makepoemlabel{\@compoundlabelscratch}
  \ifpoemcontentson
    \literalcontents{\nobreak\contentsindenttwo
{\contentssequencetitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesectiontitle}[1]{\par\poemtitlepenalty
   {\poemtitlefont \hbox{\titleindent #1}}\label{#1}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
  \literalcontents{\contentsindenttwo{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
  \immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesectiontitlenonotes}[1]{
\par\poemtitlepenalty
   {\poemtitlefont \hbox{\titleindent #1}}\label{#1}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
  \ifpoemcontentson
  \literalcontents{\contentsindenttwo{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
}
\newcommand{\sequencefirstsectiontitle}[1]{\par\nobreak
   {\poemtitlefont \hbox{{\titleindent #1}}}\label{#1}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
     \literalcontents{\nobreak\contentsindenttwo{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsectiontitlenocontents}[2]{\par\nobreak
   {\poemtitlefont \hbox{{\titleindent #1}}}\label{#1 #2}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2 \string~ #1}
   \global\edef\@compoundlabelscratch{#1 #2}
  \iftextnoteson
     \@poempagetotextnotes{#1 #2}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesectiontitlenocontents}[2]
{\par\poemtitlepenalty\goodbreak
   {\poemtitlefont \hbox{\titleindent #1}}\label{#1 #2}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2 \string~ #1}
   \global\edef\@compoundlabelscratch{#1 #2}
  \iftextnoteson
\immediate\write\textnotes{\string\notespoemclubpenalty}
    \@poempagetotextnotes{#1 #2}
    \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsectiontitlefirstline}[1]{\par\nobreak
   {\poemtitlefont \hbox{{\titleindent #1}}}\label{#1}
  \nobreak\par\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
\literalcontents{\nobreak\contentsindenttwo
{\contentspoemtitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsectiontitlemiddleline}[1]{
   {\poemtitlefont \hbox{\titleindent #1}}
  \nobreak\par\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
  \ifpoemcontentson
\literalcontents{\nobreak\contentsindentthree{\contentspoemtitlefont
#1\par\nobreak}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsectiontitlelastline}[1]{
   {\poemtitlefont \hbox{\titleindent #1}}\label{#1}
   \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
   \makepoemlabel{\@compoundlabelscratch}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentthree{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsectiontitlenonotes}[1]{
\par\nobreak\afterpoemtitleskip\nobreak
   {\poemtitlefont \hbox{\titleindent #1}}\label{#1}
  \nobreak\par\nobreak
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindenttwo{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
}

\newcommand{\sequencesectionsubtitle}[1]{{\large \hbox{\titleindent #1}}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
}
\newcommand{\poemsubtitle}[1]{\sequencesectionsubtitle{#1}
}
\newcommand{\sequencesectiontitleitalicnonotes}[2]
{\par\poemtitlepenalty\goodbreak
   {\poemtitlefont \hbox{\titleindent #1}}\label{#2}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2}
   \global\edef\@compoundlabelscratch{#2}
  \ifpoemcontentson
\literalcontents{\contentsindenttwo{\contentspoemtitlefont #1
~/~\pageref{#2}\par}}
  \fi
}
\newcommand{\sequencesectiontitleitalic}[2]
{\par\poemtitlepenalty\goodbreak
   {\poemtitlefont \hbox{\titleindent #1}}\label{#2}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2}
  \ifpoemcontentson
\literalcontents{\contentsindenttwo{\contentspoemtitlefont #1
~/~\pageref{#2}\par}}
  \fi
  \iftextnoteson
     \immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#2}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesectiontitlefirstlineitalic}[2]
{\par\multilinetitlepenalty\goodbreak
   {\poemtitlefont \hbox{\titleindent #1}}\label{#2}
  \nobreak\par\nobreak
   \global\edef\@fulltitle{#2}
   \global\edef\@compoundlabelscratch{#2}
  \ifpoemcontentson
  \literalcontents{\contentsindenttwo{\contentspoemtitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
 \immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#2}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesectiontitlebaretitle}[1]
{\par\poemtitlepenalty\goodbreak
   {\poemtitlefont \hbox{\titleindent #1}}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
}

\newcommand{\sequencesectiontitlefirstline}[1]
{\par\multilinetitlepenalty\goodbreak%\smallskip
   {\poemtitlefont \hbox{\titleindent #1}}\label{#1}
  \nobreak\par\nobreak%\medskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
  \literalcontents{\contentsindenttwo
{\contentssequencetitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
\immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesectiontitlemiddleline}[1]{
   {\poemtitlefont \hbox{\titleindent #1}}
  \nobreak\par\nobreak%\medskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentthree
{\contentssequencetitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesectiontitlelastline}[1]{
   {\poemtitlefont \hbox{\titleindent #1}}\label{#1}
  \nobreak\par\nobreak\afterpoemtitleskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
   \makepoemlabel{\@compoundlabelscratch}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentthree
{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}


\newcommand{\sequencesubsectiontitle}[1]{
\par\poemtitlepenalty\goodbreak
   {\subsectiontitlefont
\hbox{\titleindent\titleindent #1}}\label{#1}\par\nobreak
   \afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentthree{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
\immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesubsectiontitlenocontents}[2]{
\par\poemtitlepenalty\goodbreak
   {\large \hbox{\titleindent\titleindent #1}}
   \label{#1 #2}\par\nobreak
   \afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2 \string~ #1}
   \global\edef\@compoundlabelscratch{#1 #2}
  \iftextnoteson
\immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#1 #2}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsubsectiontitlenocontents}[2]{
\par\nobreak
   {\large \hbox{\titleindent\titleindent #1}}\label{#1 #2}\par\nobreak
   \afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2 \string~ #1}
   \global\edef\@compoundlabelscratch{#1 #2}
  \iftextnoteson
     \@poempagetotextnotes{#1 #2}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesubsubsectiontitlenocontents}[2]{
\sequencesubsectiontitlenocontents{#1}{#2}
}
\newcommand{\sequencefirstsubsubsectiontitlenocontents}[2]{
\sequencefirstsubsectiontitlenocontents{#1}{#2}
}
\newcommand{\sequencesubsectiontitlefirstline}[1]{
\par\multilinetitlepenalty\goodbreak
   {\subsectiontitlefont
   \hbox{\titleindent\titleindent#1}}\label{#1}\par\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
  \literalcontents{\contentsindentthree
{\contentspoemtitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesubsectiontitlemiddleline}[1]{
\par\nobreak
   {\subsectiontitlefont \hbox{\titleindent\titleindent #1}}\par\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentfour
{\contentspoemtitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencesubsectiontitlelastline}[1]{
\par\nobreak
   {\subsectiontitlefont \hbox{\titleindent\titleindent #1}}
   \label{#1}\par\nobreak
   \afterpoemtitleskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
   \makepoemlabel{\@compoundlabelscratch}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentfour
{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsubsectiontitle}[1]{
\par\nobreak
   {\subsectiontitlefont \hbox{\titleindent\titleindent #1}}
   \label{#1}\par\nobreak
   \afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentthree
{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsubsectiontitlefirstline}[1]{
\par\nobreak
   {\subsectiontitlefont \hbox{\titleindent\titleindent #1}}
   \label{#1}\par\nobreak
   \global\edef\@fulltitle{#1}
   \global\edef\@compoundlabelscratch{#1}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentthree
{\contentspoemtitlefont #1\par\nobreak}}
  \fi
  \iftextnoteson
     \immediate\write\textnotes{\string\par}
     \immediate\write\textnotes{\string\nopagebreak}
     \@poempagetotextnotes{#1}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsubsectiontitlemiddleline}[1]{
\par\nobreak
   {\subsectiontitlefont \hbox{\titleindent\titleindent #1}}\par\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentfour
{\contentspoemtitlefont  #1\par\nobreak}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\sequencefirstsubsectiontitlelastline}[1]{
\par\nobreak
   {\subsectiontitlefont \hbox{\titleindent\titleindent #1}}
   \label{#1}\par\nobreak
   \afterpoemtitleskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
   \makepoemlabel{\@compoundlabelscratch}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentfour
{\contentspoemtitlefont #1
~/~\pageref{#1}\par}}
 \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}

\newcommand{\interjectiontitlefirstline}[2]{
\par\multilinetitlepenalty%\smallskip
   {\poemtitlefont \hbox{\titleindent\titleindent \emph{#1}}}
   \label{#2}\par\nobreak
\afterpoemtitleskip\nobreak
   \global\edef\@fulltitle{#2}
   \global\edef\@compoundlabelscratch{#2}
  \ifpoemcontentson
  \literalcontents{
\contentsindentthree
{\contentspoemtitlefont \emph{#1}\par\nobreak}}
  \fi
  \iftextnoteson
\immediate\write\textnotes{\string\notespoemclubpenalty}
     \@poempagetotextnotes{#2}
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\interjectiontitlelastline}[1]{
   {\poemtitlefont \hbox{\titleindent\titleindent \emph{#1}}}
   \label{#1}\par\nobreak
   \afterpoemtitleskip\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
   \makepoemlabel{\@compoundlabelscratch}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentfour{\contentspoemtitlefont
\emph{#1}\/~/~\pageref{#1}\par}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}
\newcommand{\interjectiontitlemiddleline}[1]{\par\nobreak
   {\poemtitlefont \hbox{\titleindent\titleindent #1}}\par\nobreak
   \let\@titlesofar=\@fulltitle
   \global\edef\@fulltitle{\@titlesofar\string~#1}
   \let\@compoundsofar=\@compoundlabelscratch
   \global\edef\@compoundlabelscratch{\@compoundsofar #1}
  \ifpoemcontentson
  \literalcontents{\nobreak\contentsindentfour
{\contentspoemtitlefont \emph{#1}\par\nobreak}}
  \fi
  \iftextnoteson
     \@poemtitletotextnotes{#1}
  \fi
}

\newcommand{\epigraph}[1]{\nopagebreak\afterpoemtitleskip\begin{epigraphquote}
  \emph{#1}\end{epigraphquote}\afterpoemtitleskip\nopagebreak}
\newcommand{\headnote}[1]{\epigraph{#1}}
\newcommand{\attribution}[1]{\nopagebreak\afterpoemtitleskip\begin{epigraphquote}
 {\small\emph{#1}}\end{epigraphquote}\afterpoemtitleskip\nopagebreak}
\newcommand{\dedication}[1]{\nopagebreak\afterpoemtitleskip\begin{epigraphquote}
 \emph{#1}\end{epigraphquote}\afterpoemtitleskip\nopagebreak}
\newcommand{\volumededication}[1]{\par\bigskip\begin{volumetitlepagequote}
  \emph{#1}\end{volumetitlepagequote}}
\newcommand{\volumeepigraph}[1]{\par\bigskip\begin{volumetitlepagequote}
  \emph{#1}\end{volumetitlepagequote}}
\newcommand{\volumeattribution}[1]{\par\smallskip\begin{volumetitlepagequote}
 {\small \emph{#1}}\end{volumetitlepagequote}}
\def\strip#1>{}
\newcommand{\literaltextnote}[1]{
     \begingroup
        \def\next{#1}%
        \newlinechar='40
        \immediate\write\textnotes{\expandafter\strip\meaning\next}%
     \endgroup
 }
\newcommand{\literalemend}[1]{
     \begingroup
        \def\next{#1}%
        \newlinechar='40
        \immediate\write\emendations{\expandafter\strip\meaning\next}%
     \endgroup
}
\newcommand{\literalexplain}[1]{
     \begingroup
        \def\next{#1}%
        \newlinechar='40
        \immediate\write\explanations{\expandafter\strip\meaning\next}%
     \endgroup
}
\newcommand{\literalcontents}[1]{
     \begingroup
        \def\next{#1}%
        \newlinechar='40
        \immediate\write\poemcontents{\expandafter\strip\meaning\next}%
     \endgroup
}
\newcommand{\literaltextnoteshort}[1]{
        \begingroup
        \def\next{#1}%
        \immediate\write\textnotes{\expandafter\strip\meaning\next}%
     \endgroup}
\newcommand{\literalemendshort}[1]{
        \begingroup
        \def\next{#1}%
        \immediate\write\emendations{\expandafter\strip\meaning\next}%
     \endgroup}
\newcommand{\literalexplainshort}[1]{
        \begingroup
        \def\next{#1}%
        \immediate\write\explanations{\expandafter\strip\meaning\next}%
     \endgroup}
\newcommand{\literalcontentsshort}[1]{
        \begingroup
        \immediate\write\poemcontents{\expandafter\strip\meaning\next}%
     \endgroup}
\newcommand{\sameword}{$\sim$}
\newcommand{\missingpunct}{${}_{\wedge}$}
\newcommand{\textnote}[1]{
 \iftextnotesatfoot
   \footnotetext[\thelinenumber]{#1}
 \fi
 \iftextnoteson
   \immediate\write
\textnotes{\string\setcounter\string{notepageholdernote\string}
\string{\thepage\string}\string\unskip}
    \immediate\write
\textnotes{\string\ifthenelse\string{\string\value\string{notepageholdernote\string}
>\string\value\string{notepageholdertitle\string}\string}}
    \immediate\write
\textnotes{\string{\string\mark\string{\string\thenotepageholdernote\string}\string}}
    \immediate\write
\textnotes{\string{\string\mark\string{\string\thenotepageholdertitle\string}
\string}\string\unskip}
    \immediate\write\textnotes
{\string\unskip\string\relax\ \thelinenumber :\string~\string\nolinebreak}
    \literaltextnote{#1}
 \fi
}
\newcommand{\accidental}[1]{
 \ifincludeaccidentals
    \immediate\write\textnotes{\string\unskip\string\nobreak}
\textnote{#1}
\immediate\write\textnotes{\string\unskip\string\nobreak}
 \fi
}
\newcommand{\tsvariant}[1]{
 \ifincludetypescripts
   \immediate\write
\textnotes{\string\unskip\string\nobreak}
\textnote{#1}
\immediate\write\textnotes{\string\unskip\string\nobreak}
  \fi
}
\newcommand{\tsaccidental}[1]{\ifincludetypescripts\accidental{#1}\fi}
\newcommand{\tsentry}[1]{\ifincludetypescripts{#1}\fi\unskip}
\newcommand{\sources}[1]{
\iftextnoteson
    \begingroup
        \newlinechar='40
        \def\next{#1}%
        \immediate\write\textnotes{\expandafter\strip\meaning\next}%
     \endgroup
 \fi
}
\newcommand{\emendation}[1]{
 \ifnoemendyet
   \firstemendation{#1}
   \global\noemendyetfalse
 \else
    \ifredundantemendations
      \textnote{#1}
    \fi
    \ifemendationson
   \immediate\write
\emendations{\string\setcounter\string{notepageholdernote\string}
\string{\thepage\string}\string\unskip}
    \immediate\write
\emendations{\string\ifthenelse\string{\string\value\string{notepageholdernote\string}
>\string\value\string{notepageholdertitle\string}\string}}
      \immediate\write
\emendations{\string\unskip\string\relax\ \thelinenumber :\string~\string\nolinebreak}
      \literalemend{{#1}}
      \immediate\write\emendations{\string\leavevmode\string\nolinebreak}
   \fi
 \fi
 }
\newcommand{\firstemendation}[1]{
  \ifredundantemendations
     \textnote{#1}
  \fi
 \ifemendationson
     \immediate\write\emendations{\string\par}
     \immediate\write
\emendations{\string\argpageref\string{\@compoundlabelscratch\string}}
     \immediate\write
\emendations{\string\setcounter\string{notepageholdertitle\string}
\string{\string\argpageref\string{\@compoundlabelscratch\string}\string}\string\unskip}
     \immediate\write
\emendations{\string\mark\string{\string\thenotepageholdertitle\string}
\string\unskip}
     \immediate\write\emendations{\string\textbf\string{\ \@fulltitle\string}}
     \immediate\write\emendations{\thelinenumber :\string~\string\nolinebreak}
     \literalemend{#1}
 \fi
}
\newcommand{\explanatory}[1]{
 \ifnoexplainyet
     \firstexplanatory{#1}
     \global\noexplainyetfalse
 \else
    \ifexplanon
   \immediate\write
\explanations{\string\setcounter\string{notepageholdernote\string}
\string{\thepage\string}\string\unskip}
    \immediate\write
\explanations{\string\ifthenelse\string{\string\value\string{notepageholdernote\string}
>\string\value\string{notepageholdertitle\string}\string}}
      \immediate\write
\explanations{\string\unskip\string\relax\ \thelinenumber :\string~\string\nolinebreak}
      \literalexplain{#1}
      \immediate\write\explanations{\string\leavevmode\string\nolinebreak}
    \fi
 \fi
}
\newcommand{\firstexplanatory}[1]{
 \ifexplanon
     \immediate\write\explanations{\string\par}
     \immediate\write
\explanations{\string\argpageref\string{\@compoundlabelscratch\string}}
     \immediate\write
\explanations{\string\setcounter\string{notepageholdertitle\string}
\string{\string\argpageref\string{\@compoundlabelscratch\string}\string}\string\unskip}
     \immediate\write
\explanations{\string\mark\string{\string\thenotepageholdertitle\string}\string\unskip}
     \immediate\write\explanations{\string\textbf\string{\ \@fulltitle\string}}
     \immediate\write\explanations{\thelinenumber :\string~\string\nolinebreak}
     \literalexplain{#1}
 \fi
}

\newcommand{\quotedversecorrectiontextnote}
{\immediate\write
\textnotes{\string\par\string\noindent\string\kern-3pt}}% a bad kludge
\newcommand{\quotedversecorrectionemendation}
{\immediate\write
\emendations{\string\par\string\noindent\string\kern-3pt}}% a bad kludge
\newcommand{\quotedversecorrectionexplanatory}
{\immediate\write
\explanations{\string\par\string\noindent\string\kern-3pt}}% a bad kludge


\newcommand{\finish}{
\small\bf \hyphenchar\font=45
\small\it \hyphenchar\font=45
\small\rm \hyphenchar\font=45

\ifemendationson
   \newpage
   \immediate\closeout\emendations
   \input \jobname.emd
\fi
\iftextnoteson
   \newpage
   \immediate\closeout\textnotes
   \input \jobname.ent
   \newpage
 \fi
 \ifexplanon
      \immediate\closeout\explanations
      \input \jobname.enx
      \newpage
 \fi
 \ifindexingon
 \printindex
 \fi
 \ifpoemcontentson
     \ifemendationson
      \immediate\write\poemcontents{\string\contentspoemtitlefont\ Emendations}
      \immediate\write
\poemcontents{\string~ /  \string~\ \string\pageref{emendationnotes} \string\par}
      \immediate\write\poemcontents{\string\par \string\smallskip}
     \fi
     \iftextnoteson
      \immediate\write\poemcontents{\string\contentspoemtitlefont\ Textual Notes}
      \immediate\write
\poemcontents{\string~ /  \string~\ \string\pageref{textualnotes} \string\par}
      \immediate\write\poemcontents{\string\par \string\smallskip}
     \fi
     \ifexplanon
       \immediate\write
\poemcontents{\string\contentspoemtitlefont\ Explanatory Notes}
       \immediate\write
\poemcontents{\string~ /  \string~\ \string\pageref{explanatorynotes}}
     \fi
     \ifindexingon
        \immediate\write\poemcontents{\string\par \string\smallskip}
        \immediate\write
\poemcontents{\string\contentspoemtitlefont\ Index of Titles and First Lines}
        \immediate\write
\poemcontents{\string~ /  \string~\ \string\pageref{indexpage}\string\par}
     \fi
    \immediate\closeout\poemcontents
    \input \jobname.ctn
 \fi
 \clearpage
\thispagestyle{volumetitlestyle}
\vspace{106pt}
\begin{center}
{\poemtitlefont Note}
\end{center}

\noindent The symbol * is used to indicate a space between sections of a poem
wherever such spaces are lost in pagination.
\cleardoublepage
}

\newcommand{\longpage}{\enlargethispage{\baselineskip}}
\newcommand{\shortpage}{\enlargethispage{-\baselineskip}}
\newenvironment{stanza}{\penalty-100\instanzatrue\mark{\relax}}
 {\nobreak\mark{*}\nobreak\incrementlinenumber
\nobreak
  \instanzafalse

  \stanzaskip
}

\newenvironment{marginenvironment}{}{}
\newcommand{\stanzalinestraddle}
    {\begin{stanza}\addtocounter{linenumber}{-1}
    \addtocounter{printlineindex}{-1}
    }
\newenvironment{poem}{\raggedright
     \language=255%no hyphenation in verse
     \noemendyettrue
     \noexplainyettrue
     \setcounter{linenumber}{0}\setcounter{printlineindex}{0}
     \nobreak\begin{verse}
     \inpoemtrue\nobreak\mark{\relax}}{\end{verse}
     \inpoemfalse\mark{\relax}
     \goodbreak\afterpoemskip%\bigskip
     }
\newenvironment{volumetitlepage}
{\par\clearpage{\pagestyle{volumetitlestyle}\cleardoublepage}
\thispagestyle{volumetitlestyle}}
    {\newpage\thispagestyle{volumetitlestyle}
\cleardoublepage\thispagestyle{volumefirststyle}}
\newenvironment{maintitlepage}
{\par\cleardoublepage\thispagestyle{volumetitlestyle}
}{\newpage\thispagestyle{volumetitlestyle}\cleardoublepage}
\newenvironment{booksectionpage}
{\par\newpage\thispagestyle{volumetitlestyle}}{\newpage}
\makeatletter
\newenvironment{cjquotation}
                {\tolerance=2000%
                \vspace{-\bigskipamount}
               \restorelinenumber
               \language=255
               \noindent\relax
               \list{}{\listparindent 0em%
                        \itemindent 0em%
                        \rightmargin 2em%
                        \leftmargin 2em%
                        \topsep 0em%
                        \parskip 0em%
                        \itemindent    \listparindent
                        \rightmargin   \leftmargin
                        \parsep        \z@ \@plus\p@}%
                \item[]
                }
               {\endlist}
\makeatother

\makeatletter
\renewenvironment{theindex}
     {{\par\clearpage{\pagestyle{volumetitlestyle}\cleardoublepage}
     \thispagestyle{volumetitlestyle}}
     \makeatletter
     \def\@idxitem{\par\hangindent 1em}
     \makeatother
\fancyhead[RO,LE]{{\small\textrm{\thepage}}}
\fancyhead[CO]{{\small{\em Index of Titles and First Lines}}}
\fancyhead[CE]{{\small{\em Index of Titles and First Lines}}}
\fancyfoot{}
     \label{indexpage}
     \lefthyphenmin=2\tolerance=500\language=0
     \normalfont \backmattertextfont
               \raggedright
                \begin{multicols}
{2}[\backmattersink\begin{center}{\normalfont
\backmatterheaderfont INDEX OF TITLES AND FIRST LINES}\end{center}
\backmatterafterheadersink]%
                \let\item\@idxitem}
               {\end{multicols}\clearpage}
\makeatother
\newenvironment{epigraphquote}{\list{}{\rightmargin 1.5em%
                                       \leftmargin  1.5em%
                                       \topsep 0pt%
                                       \partopsep 0pt%
                                       \listparindent 0pt%
                                       }%
                \item\relax}
               {\endlist}
\newenvironment{volumetitlepagequote}{\list{}{\rightmargin \voladditionalamount%
                                              \leftmargin \voladditionalamount%
                                       \topsep 0pt%
                                       \partopsep 0pt%
                                       \listparindent 0pt
                                       }%
                \item\relax}
               {\endlist}
\endinput
%%
%% End of file `poemscol.sty'.
