\input soul.sty
\sodef{\so}{}{0.15em}{0.5em}{0.5em}

\input musixtex

% fix cautionary accidentals (David Allsop):
\catcode`@=11
\def\writ@sa{\pl@base\raise\y@i\llap{\@sa\kern\accshift}\n@vii\z@}
\def\writ@ua{\advance\n@i\thr@@
\zchar\n@i{\kern\qu@rt\qn@width\@sa}\n@vii\z@}
\catcode`@=12

\input musixlit
\input musixext



\def\writebarno{\llap{\ninebf\the\barno\barnoadd}}%
\def\shiftbarno{1.5\Interligne}%
\def\raisebarno{5\internote}%



\input palatino
 
\ifx\undefined\Tenpoint \else \endinput\fi

\immediate\write10{MusiXtextSTYle T.72\space<30 March 1997>}%

\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
\edef\catcode@gt{\the\catcode`\>}\catcode`\>=12
\edef\catcode@lt{\the\catcode`\<}\catcode`\<=12

% non musical procedures used in typesetting the non-musical
% texts together with musictex

% eight point fonts

\font\eighti=cmmi8 \skewchar\eighti='177
\font\eightsy=cmsy8 \skewchar\eightsy='60
\iflongDCfontnames
  \font\eighttt=\fontid tt0800
  \font\eightsl=\fontid sl0800
\else\iflongECfontnames
  \font\eighttt=\fontid tt0800
  \font\eightsl=\fontid sl0800
\else
  \font\eighttt=\fontid tt8
  \font\eightsl=\fontid sl8
\fi
\fi
%
% nine point fonts
%
\font\ninei=cmmi9 \skewchar\ninei='177
\font\ninesy=cmmi9 \skewchar\ninesy='60
\iflongDCfontnames
  \font\ninettt=\fontid tt0900
  \font\ninerm=\fontid r0900
  \font\ninesl=\fontid sl0900
  \font\nineit=\fontid ti0900
  \font\ninebf=\fontid bx0900
\else\iflongECfontnames
  \font\ninettt=\fontid tt0900
  \font\ninerm=\fontid rm0900
  \font\ninesl=\fontid sl0900
  \font\nineit=\fontid ti0900
  \font\ninebf=\fontid bx0900
\else
  \font\ninerm=\fontid r9
  \font\ninett=\fontid tt9
  \font\ninesl=\fontid sl9
  \font\nineit=\fontid ti9
  \font\ninebf=\fontid bx9
\fi
\fi
%
% twelve point fonts
%
\font\twli=cmmi12 \skewchar\twli='177
\font\twlsy=cmsy10 scaled \magstep1 \skewchar\twlsy='60
\iflongDCfontnames
  \font\twlrm=\fontid r1200
  \font\twlbf=\fontid bx1200
  \font\twlsl=\fontid sl1200
  \font\twlit=\fontid ti1200
  \font\twltt=\fontid tt1200
\else\iflongECfontnames
  \font\twlrm=\fontid rm1200
  \font\twlbf=\fontid bx1200
  \font\twlsl=\fontid sl1200
  \font\twlit=\fontid ti1200
  \font\twltt=\fontid tt1200
\else
  \font\twlrm=\fontid r12
  \font\twlbf=\fontid bx12
  \font\twlsl=\fontid sl12
  \font\twlit=\fontid ti12
  \font\twltt=\fontid tt12
\fi
\fi
%
% fourteen point fonts
%
\font\frti=cmmi12 scaled \magstep1 \skewchar\frti='177
\font\frtsy=cmsy10 scaled \magstep2 \skewchar\frtsy='60
\iflongDCfontnames
  \font\frtrm=\fontid r1440
  \font\frtbf=\fontid bx1440
  \font\frtsl=\fontid sl1440
  \font\frtit=\fontid ti1440
  \font\frttt=\fontid tt1440
\else\iflongECfontnames
  \font\frtrm=\fontid rm1440
  \font\frtbf=\fontid bx1440
  \font\frtsl=\fontid sl1440
  \font\frtit=\fontid ti1440
  \font\frttt=\fontid tt1440
\else
  \font\frtrm=\fontid r12 scaled \magstep1
  \font\frtbf=\fontid bx12 scaled \magstep1
  \font\frtsl=\fontid sl12 scaled \magstep1
  \font\frtit=\fontid ti12 scaled \magstep1
  \font\frttt=\fontid tt12 scaled \magstep1
\fi
\fi
%
% seventeen point fonts
%
\font\svti=cmmi12 scaled \magstep2 \skewchar\svti='177
\font\svtsy=cmsy10 scaled \magstep3 \skewchar\svtsy='60
\iflongDCfontnames
  \font\svtrm=\fontid r1728
  \font\svtbf=\fontid bx1728
  \font\svtsl=\fontid sl1728
  \font\svtit=\fontid ti1728
  \font\svttt=\fontid tt1728
\else\iflongECfontnames
  \font\svtrm=\fontid rm1728
  \font\svtbf=\fontid bx1728
  \font\svtsl=\fontid sl1728
  \font\svtit=\fontid ti1728
  \font\svttt=\fontid tt1728
\else
  \font\svtrm=\fontid r17
  \font\svtbf=\fontid bx12 scaled \magstep2
  \font\svtsl=\fontid sl12 scaled \magstep2
  \font\svtit=\fontid ti12 scaled \magstep2
  \font\svttt=\fontid tt12 scaled \magstep2
\fi
\fi
%
% twenty point fonts
%
\font\twtyi=cmmi12 scaled \magstep3 \skewchar\twtyi='177
\font\twtysy=cmsy10 scaled \magstep4\skewchar\twtysy='60
\iflongDCfontnames
  \font\twtyrm=\fontid r2074
  \font\twtybf=\fontid bx2074
  \font\twtysl=\fontid sl2074
  \font\twtyit=\fontid ti2074
  \font\twtytt=\fontid tt2074
\else\iflongECfontnames
  \font\twtyrm=\fontid rm2074
  \font\twtybf=\fontid bx2074
  \font\twtysl=\fontid sl2074
  \font\twtyit=\fontid ti2074
  \font\twtytt=\fontid tt2074
\else
  \font\twtyrm=\fontid r17 scaled \magstep1
  \font\twtybf=\fontid bx12 scaled \magstep3
  \font\twtysl=\fontid sl12 scaled \magstep3
  \font\twtyit=\fontid ti12 scaled \magstep3
  \font\twtytt=\fontid tt12 scaled \magstep3
\fi
\fi
%
% twenty five point fonts
%
\font\twfvi=cmmi12 scaled \magstep4 \skewchar\twfvi='177
\font\twfvsy=cmsy10 scaled \magstep5 \skewchar\twfvsy='60
\iflongDCfontnames
  \font\twfvrm=\fontid r2488
  \font\twfvbf=\fontid bx2488
  \font\twfvsl=\fontid sl2488
  \font\twfvit=\fontid ti2488
  \font\twfvtt=\fontid tt2488
\else\iflongECfontnames
  \font\twfvrm=\fontid rm2488
  \font\twfvbf=\fontid bx2488
  \font\twfvsl=\fontid sl2488
  \font\twfvit=\fontid ti2488
  \font\twfvtt=\fontid tt2488
\else
  \font\twfvrm=\fontid r17 scaled \magstep2
  \font\twfvbf=\fontid bx12 scaled \magstep4
  \font\twfvsl=\fontid sl12 scaled \magstep4
  \font\twfvit=\fontid ti12 scaled \magstep4
  \font\twfvtt=\fontid tt12 scaled \magstep4
\fi
\fi
%
% SEVERAL DIFFERENT POINT SIZES
%
\def\twfvpoint{\Twfvpoint}
\def\Twfvpoint{\normalbaselineskip=30pt
\def\rm{\fam0\twfvrm}%
\def\it{\fam\itfam\twfvit}%
\def\sl{\fam\slfam\twfvsl}%
\def\bf{\fam\bffam\twfvbf}%
\def\smc{\twfvrm}%
\def\mit{\fam 1}%
\def\cal{\fam 2}%
\textfont0=\twfvrm   \scriptfont0=\twtyrm   \scriptscriptfont0=\svtrm
\textfont1=\twfvi    \scriptfont1=\twtyi    \scriptscriptfont1=\svti
\textfont2=\twfvsy   \scriptfont2=\twtysy   \scriptscriptfont2=\svtsy
\textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
\textfont\itfam=\twfvit \scriptfont\itfam=\twtyit
\textfont\slfam=\twfvsl \scriptfont\slfam=\twtysl
\textfont\bffam=\twfvbf \scriptfont\bffam=\twtybf
\scriptscriptfont\bffam=\twtybf
\setbox\strutbox=\hbox{\vrule height 22pt depth 8pt width 0pt}%
\def\tt{\twfvtt}\normalbaselines\rm}
%
\def\twtypoint{\Twtypoint}
\def\Twtypoint{\normalbaselineskip=25pt
\def\rm{\fam0\twtyrm}%
\def\it{\fam\itfam\twtyit}%
\def\sl{\fam\slfam\twtysl}%
\def\bf{\fam\bffam\twtybf}%
\def\smc{\twtyrm}%
\def\mit{\fam 1}%
\def\cal{\fam 2}%
\textfont0=\twtyrm   \scriptfont0=\svtrm   \scriptscriptfont0=\frtrm
\textfont1=\twtyi    \scriptfont1=\svti    \scriptscriptfont1=\frti
\textfont2=\twtysy   \scriptfont2=\svtsy   \scriptscriptfont2=\frtsy
\textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
\textfont\itfam=\twtyit \scriptfont\itfam=\svtit
\textfont\slfam=\twtysl \scriptfont\slfam=\svtsl
\textfont\bffam=\twtybf \scriptfont\bffam=\svtbf
\scriptscriptfont\bffam=\svtbf
\setbox\strutbox=\hbox{\vrule height 18pt depth 7pt width 0pt}%
\def\tt{\twtytt}\normalbaselines\rm}
%
\def\svtpoint{\Svtpoint}
\def\Svtpoint{\normalbaselineskip=21pt
\def\rm{\fam0\svtrm}%
\def\it{\fam\itfam\svtit}%
\def\sl{\fam\slfam\svtsl}%
\def\bf{\fam\bffam\svtbf}%
\def\smc{\svtrm}%
\def\mit{\fam 1}%
\def\cal{\fam 2}%
\textfont0=\svtrm   \scriptfont0=\frtrm   \scriptscriptfont0=\twlrm
\textfont1=\svti    \scriptfont1=\frti    \scriptscriptfont1=\twli
\textfont2=\svtsy   \scriptfont2=\frtsy   \scriptscriptfont2=\twlsy
\textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
\textfont\itfam=\svtit \scriptfont\itfam=\frtit
\textfont\slfam=\svtsl \scriptfont\slfam=\frtsl
\textfont\bffam=\svtbf \scriptfont\bffam=\frtbf
\scriptscriptfont\bffam=\frtbf
\setbox\strutbox=\hbox{\vrule height 14.5pt depth 6.5pt width 0pt}%
\def\tt{\svttt}\normalbaselines\rm}
%
\def\frtpoint{\Frtpoint}
\def\Frtpoint{\normalbaselineskip=17pt
\def\rm{\fam0\frtrm}%
\def\it{\fam\itfam\frtit}%
\def\sl{\fam\slfam\frtsl}%
\def\bf{\fam\bffam\frtbf}%
\def\smc{\frtrm}%
\def\mit{\fam 1}%
\def\cal{\fam 2}%
\textfont0=\frtrm   \scriptfont0=\twlrm   \scriptscriptfont0=\eightrm
\textfont1=\frti    \scriptfont1=\twli    \scriptscriptfont1=\eighti
\textfont2=\frtsy   \scriptfont2=\twlsy   \scriptscriptfont2=\eightsy
\textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
\textfont\itfam=\frtit \scriptfont\itfam=\twlit
\textfont\slfam=\frtsl \scriptfont\slfam=\twlsl
\textfont\bffam=\frtbf \scriptfont\bffam=\twlbf
\scriptscriptfont\bffam=\twlbf
\setbox\strutbox=\hbox{\vrule height 12pt depth 5pt width 0pt}%
\def\tt{\frttt}\normalbaselines\rm}
%
\def\twlpoint{\Twlpoint}
\def\Twlpoint{\normalbaselineskip=14pt
\def\rm{\fam0\twlrm}%
\def\it{\fam\itfam\twlit}%
\def\sl{\fam\slfam\twlsl}%
\def\bf{\fam\bffam\twlbf}%
\def\smc{\twlrm}%
\def\mit{\fam 1}%
\def\cal{\fam 2}%
\textfont0=\twlrm   \scriptfont0=\tenrm   \scriptscriptfont0=\eightrm
\textfont1=\twli    \scriptfont1=\teni    \scriptscriptfont1=\eighti
\textfont2=\twlsy   \scriptfont2=\tensy   \scriptscriptfont2=\eightsy
\textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
\textfont\itfam=\twlit \scriptfont\itfam=\tenit
\textfont\slfam=\twlsl \scriptfont\slfam=\tensl
\textfont\bffam=\twlbf \scriptfont\bffam=\tenbf
\scriptscriptfont\bffam=\tenbf
\setbox\strutbox=\hbox{\vrule height 10pt depth 4pt width 0pt}%
\def\tt{\twltt}\normalbaselines\rm}
%
\def\Tenpoint{\normalbaselineskip\tw@lv@\p@
\def\rm{\fam\z@\tenrm}%
\def\it{\fam\itfam\tenit}%
\def\sl{\fam\slfam\tensl}%
\def\bf{\fam\bffam\tenbf}%
\let\smc\tenrm
\def\mit{\fam\@ne}%
\def\cal{\fam\tw@}%
\textfont0\tenrm \scriptfont0\eightrm \scriptscriptfont0\eightrm
\textfont1\teni  \scriptfont1\eighti  \scriptscriptfont1\eighti
\textfont2\tensy \scriptfont2\eightsy \scriptscriptfont2\eightsy
\textfont3\tenex \scriptfont3\tenex   \scriptscriptfont3\tenex
\textfont\itfam\tenit \scriptfont\itfam=\eightit
\textfont\slfam\tensl \scriptfont\slfam=\eightsl
\textfont\bffam\tenbf \scriptfont\bffam\eightbf
\scriptscriptfont\bffam\eightbf
\setbox\strutbox\hbox{\vrule\@height8\h@lf\p@\@depth3\h@lf\p@\@width\z@}%
\let\tt\tentt \normalbaselines\rm}
\let\tenpoint\Tenpoint

\def\Eightpoint{\normalbaselineskip\t@n\p@
\def\rm{\fam\z@\eightrm}%
\def\it{\fam\itfam\eightit}%
\def\sl{\fam\slfam\eightsl}%
\def\bf{\fam\bffam\eightbf}%
\def\tt{\eighttt}
\def\mit{\fam\@ne}%
\def\cal{\fam\tw@}%
\textfont0\eightrm \scriptfont0\eightrm \scriptscriptfont0\eightrm
\textfont1\eighti  \scriptfont1\eighti  \scriptscriptfont1\eighti
\textfont2\eightsy \scriptfont2\eightsy \scriptscriptfont2\eightsy
\textfont3\tenex   \scriptfont3\tenex   \scriptscriptfont3\tenex
\textfont\itfam\eightit
\textfont\slfam\eightsl
\textfont\bffam\eightbf \scriptfont\bffam\eightbf
\scriptscriptfont\bffam\eightbf
\setbox\strutbox\hbox{\vrule\@height\s@v@n\p@\@depth\thr@@\p@\@width\z@}%
\normalbaselines\rm}
\def\eightpoint{\Eightpoint}
%
\def\ninepoint{\Ninepoint}
\def\Ninepoint{\normalbaselineskip=10pt
\def\rm{\fam0\ninerm}%
\def\it{\fam\itfam\nineit}%
\def\sl{\fam\slfam\ninesl}%
\def\bf{\fam\bffam\ninebf}%
\def\mit{\fam 1}%
\def\cal{\fam 2}%
\textfont0=\ninerm   \scriptfont0=\ninerm   \scriptscriptfont0=\ninerm
\textfont1=\ninei    \scriptfont1=\ninei    \scriptscriptfont1=\ninei
\textfont2=\ninesy   \scriptfont2=\ninesy   \scriptscriptfont2=\ninesy
\textfont3=\tenex   \scriptfont3=\tenex     \scriptscriptfont3=\tenex
\textfont\itfam=\nineit \scriptfont\itfam=\nineit
\textfont\slfam=\ninesl \scriptfont\slfam=\ninesl
\textfont\bffam=\ninebf \scriptfont\bffam=\ninebf
\scriptscriptfont\bffam=\ninebf
\setbox\strutbox=\hbox{\vrule height 7pt depth 3pt width 0pt}%
\def\tt{\ninettt}\normalbaselines\rm}

\def\,{\kern0.1em}

%  GENERAL FOOTNOTES

\newcount\footmarkcount

\def\resetfootnote{\global\footmarkcount\z@ }
\def\footmarknumber{\raise\smallvalue ex\hbox{%
\smalltype\rm\the\footmarkcount}}

\def\Footnote#1{\global\advance\footmarkcount\@ne
  \footnote{\footmarknumber}{\normtype\rm #1}}

% \TeX book footnote
% En cas de panique: couper en deux (une seule note autorisee)

\def\markfootnote{{\advance\footmarkcount\@ne \footmarknumber}}

\def\realfootnote#1{\global\advance\footmarkcount\@ne
  \vfootnote{{\footmarknumber}#1}}

% to enable inserting different \hsize (two columns case)
\let\footnotehsize\empty

\def\vfootnote#1{\insert\footins\bgroup\parskip\z@\eightpoint
  \interlinepenalty\interfootnotelinepenalty
  \splittopskip\ht\strutbox \advance\splittopskip\p@
  \splitmaxdepth\dp\strutbox \floatingpenalty20000
  \leftskip\z@ \rightskip\z@
  \spaceskip\z@ \xspaceskip\z@
  \smalltype\rm\footnotehsize\noindent{#1}\footstrut\futurelet\next\fo@t}

\def\footnoterule{\vskip-\thr@@\p@\hrule\@width2truein \vskip 2.6\p@}

\def\aujourdhui{\space\number\day\space%
  \ifcase\month\or janvier\or f\'evrier\or mars\or avril\or mai\or juin\or
    juillet\or ao\^ut\or septembre\or octobre\or novembre\or d\'ecembre\fi
  \space\number\year}
\def\today{\space%
  \ifcase\month\or January\or February\or March\or April\or May\or June\or
    July\or August\or September\or October\or November\or December\fi
  \space\number\day,\space\number\year}
\def\cenboxit#1{\centerline{\boxit{#1}}}
\def\Item{\medskip\item}

\def\umero{\raise 0.8ex\hbox{\kernm.05em\the\scriptfont\fam o}}
\let\titremorceau\empty
\def\title#1{\def\titremorceau{#1}}
\def\shorttitle{\title}
\def\subtitle#1{\def\subt@itremorceau{#1}}
\def\subsubtitle#1{\def\subsubt@itremorceau{#1}}
\let\headt@itremorceau\undefined
\def\headtitle#1{\def\headt@itremorceau{\TitlingFont#1}}
\def\fulltitle{\headtitle}
\let\othert@itremorceau\empty
\def\othermention#1{\def\othert@itremorceau{\medtype\rm #1}}

\let\s@hortauthor\empty
\def\shortauthor#1{\def\s@hortauthor{#1}}

\def\fullauthor#1{\def\f@ullauthor{#1}}
\def\author{\fullauthor}

\newif\ifcopyright

\def\copyrightby{}
\def\ismn{}
\def\edition{}
\def\url{www.TheAvondalePress.com}
\def\outmorceau{\shipout\vbox{\vbox to \vsize{\vss\pagecontents\vss}\line{%
\ifodd\pageno\ifnum\pageno=1\normtype\rm\ifcopyright{\smalltype\rm\rlap{\ismn}\hfil {\copyright\ \copyrightby}\hfil\llap{\edition}}\else\relax\fi\else\hss-- \number\pageno\ --\hss\fi%
\else\hss-- \number\pageno\ --\hss\fi}}%
 \global\advance\count0 by 1\relax
 \ifnum\outputpenalty>-20000 \else\dosupereject\fi}%

\output{\outmorceau}


\def\maketitle{\centerline{\ifx\headt@itremorceau\undefined
  \titremorceau\else\headt@itremorceau\fi}
\medskip
\ifx\subt@itremorceau\undefined\else
  \centerline{\medtype\rm\subt@itremorceau}
\medskip
\ifx\subsubt@itremorceau\undefined\else
  \centerline{\medtype\rm\subsubt@itremorceau}
\fi
\bigskip
\fi


\hbox to \hsize{\medtype\rm\vtop{\def\\{\hss\egroup\hbox to 0.5\hsize\bgroup\relax}\relax
                      \hbox to 0.5\hsize
                         \bgroup\othert@itremorceau\hss
                         \egroup
                      }\hss
                \vtop{\def\\{\egroup\hbox to 0.5\hsize\bgroup\relax\hss}\relax
                      \hbox to 0.5\hsize
                         \bgroup\hss\f@ullauthor
                         \egroup
                      }}
\medskip
}


\def\rectoverso#1{%
\def\outmorceau{\shipout\hbox{\null\ifodd\pageno\kern #1\relax
                                   \else\kern -#1\relax
                                   \fi
\vbox{
\vbox to \vsize{\vss\pagecontents\vss}%
\line{\normtype\rm%
%\ifnum\pageno=\firstpage\ifcopyright\rm\rlap{\ismn}\hss\copyright\ \copyrightby\hss\llap{\edition}\else\hss-- \number\pageno\ --\hss\fi%
\ifnum\pageno=\firstpage\ifcopyright\rm\ismn\hss\quad\copyright\ \copyrightby\hss\edition\else\hss-- \number\pageno\ --\hss\fi%
\else\hss-- \number\pageno\ --\hss\fi}
}}%
 \global\advance\count0 by 1\relax
 \ifnum\outputpenalty>-20000 \else\dosupereject\fi}%

\output{\outmorceau}}



\catcode`\>=\catcode@gt
\catcode`\<=\catcode@lt
\catcode`\@=\catcodeat


\normtype\rm

\def\tr#1{\zcharnote{#1}{\ppff tr}}%
\def\pince#1{\shake{#1}}%
\def\trt#1{\loffset{0.65}{\shake{#1}}\roffset{0.65}{\mordent{#1}}}  % trill with a turn
\smallmusicsize
\bigaccid
\advance\parindent by 10pt
\nobarnumbers
\geometricskipscale
\def\TPF{\off{2.5\elemskip}}
\def\CB#1{\centerbar{#1}}
\def\CN#1{\CB{\zcharnote{9}{\meterfont\lrlap{#1}}}}
\def\omit#1{}%
\def\writezbarno{$^{+}$}

\def\qqsk{\off{0.25\elemskip}}
\def\tqsk{\off{0.333\elemskip}}


\def\qpp{\pt 5\qp} % pointed rests
\def\dsp{\pt 5\ds}
\def\qsp{\pt 5\qs}
\def\hsp{\pt 5\hs}
\def\hpp{\pt 5\hpause}

\def\tql#1#2{\tbl{#1}\qb{#1}{#2}}
\def\tqu#1#2{\tbu{#1}\qb{#1}{#2}} % upper-beam problem?

\def\zhpause{\hpause\bsk}  % "non-spacing" rests
\def\qpz{\qp\bsk}  
\def\zds{\ds\bsk}
\def\zqs{\qs\bsk}
\def\zhs{\hs\bsk}
\def\zqqs{\qss\bsk}

\def\nbbqu#1#2{\nbbu{#1}\qb{#1}{#2}}
\def\nbbql#1#2{\nbbl{#1}\qb{#1}{#2}}

\def\nqql#1#2{\tbbl{#1}\tbbl{#1}\qb{#1}{#2}}
\def\nqqu#1#2{\tbbu{#1}\tbbu{#1}\qb{#1}{#2}}
\def\tqql#1#2{\tbbl{#1}\tbl{#1}\qb{#1}{#2}}
\def\tqqu#1#2{\tbbu{#1}\tbu{#1}\qb{#1}{#2}}
\def\tqqql#1#2{\tbbbl{#1}\tbl{#1}\qb{#1}{#2}}
\def\tqqqu#1#2{\tbbbu{#1}\tbu{#1}\qb{#1}{#2}}
\def\tqbl#1#2{\tbbl{#1}\qb{#1}{#2}}
\def\tqbu#1#2{\tbbu{#1}\qb{#1}{#2}}

\makeatletter

\def\zleftrightrepeat{\global\advance\barno-1 \def\barnoadd{\writezbarno}%
 \leftrightrepeat \def\barnoadd{\ifx\z@sw\@ne \writezbarno\fi}}
\def\zrightrepeat{\global\advance\barno-1 \def\barnoadd{\writezbarno}%
 \rightrepeat \def\barnoadd{\ifx\z@sw\@ne \writezbarno\fi}}
\def\zleftrepeat{\global\advance\barno-1 \def\barnoadd{\writezbarno}%
 \leftrepeat \def\barnoadd{\ifx\z@sw\@ne \writezbarno\fi}}

\def\trebleoct{\trebleclef\raise 9\internote\hbox\@to\z@{\smalltype\it\kern -1.8\Interligne 8\hss}}
\def\bassoct{\bassclef\raise 2\internote\hbox\@to\z@{\smalltype\it\kern -2.3\Interligne 8\hss}}

\def\wbarno@x{\lastbarpos\lin@pos
  \ifx\volta@set\empty
    \n@iii\barno \divide\n@iii\freqbarno\relax
    \ifnum\n@iii=\lastbarno
    \else \y@\altplancher \advance\y@\systemheight \advance\y@\raisebarno
      \raise\y@\llap{\writethebarno}\fi
  \else
    \ifx\volta@cut\empty
    \else % volta was cut, there is nothing colliding with bar number.
      \n@iii\barno \divide\n@iii\freqbarno\relax
      \ifnum\n@iii=\lastbarno
      \else \y@\altplancher \advance\y@\systemheight \advance\y@\raisebarno
        \raise\y@\llap{\writethebarno}\fi
    \fi
    \write@volta
  \fi
  \b@rrul@              %+simick
  \n@iii\barno \divide\n@iii\freqbarno\relax \lastbarno\n@iii }


\def\notesintext#1{%
  {\let\extractline\relax
   \setlines10\smallmusicsize \nobarnumbers \nostartrule
   \staffbotmarg0pt \songbottom{1}\songtop{0}\setname1{} \instrumentnumber1 \setclefsymbol1\empty \global\clef@skip0pt
   \startextract\addspace{-\afterruleskip}#1\zendextract}}

\def\breath#1{\loffset{1.5}{\zcharnote{#1}{\bf ,}}}
\def\uptext#1{\check@staff\zchar\t@n{\normtype\rm #1}\fi}
\def\upText#1{\check@staff\zchar\tw@lv@{\normtype\rm #1}\fi}
\def\Uptext#1{\check@staff\zchar\fourt@@n{\normtype\rm #1}\fi}
\def\UPtext#1{\check@staff\zchar\fiv@t@@n{\normtype\rm #1}\fi}
\def\UPText#1{\check@staff\zchar\sixt@@n{\normtype\rm #1}\fi}
\chardef\eight@@n=18
\def\UPTExt#1{\check@staff\zchar\eight@@n{\normtype\rm #1}\fi}
\chardef\tw@nty=20
\def\UPTEXt#1{\check@staff\zchar\tw@nty{\normtype\rm #1}\fi}

\font\figfont=pplr8r at 7pt  \font\figplus=plrj at 7pt 

\newcount\fig
\fig=9
\def\bc#1#2{\off{.9pt}\advance\fig by #1\lower\fig\internote%
\hbox to \z@{\figfont#2\hss}\off{-.9pt}\advance\fig by -#1}%

\def\Cont#1#2{\advance\fig by #1\lower\fig\internote%
\hbox to \z@{\kern -0.3\noteskip%
\vbox{\hrule height 1.4\lthick width #2\noteskip}\hss}%
\advance\fig by -#1}%

\def\sharpfig{\musixchar92}
\def\flatfig{\musixchar90}
\def\natfig{\musixchar94}
\def\fsmsh{\llap{\musixchar92}}
\def\fsmfl{\llap{\musixchar90}}
\def\fsmna{\llap{\musixchar94}}

\def\twopl{{\figplus 2}}
\def\fourpl{{\figplus 4}}
\def\fivepl{{\figplus 5}}
\def\sixpl{{\figplus 6}}
\def\ninepl{{\figplus 9}}

\def\metron#1#2{{\stemlength\f@ur\noteskip\t@n\p@ #1 1\ = #2}}  % original
\def\metron#1#2{{\stemlength\f@ur\noteskip\t@n\p@ #1 1\,= #2}}  % decrease spacing before =

\def\isu#1#2#3{\roffset{#3}{\isluru{#1}{#2}}}%
\def\isd#1#2#3{\roffset{#3}{\islurd{#1}{#2}}}%
\def\ts#1#2#3{\roffset{#3}{\tslur{#1}{#2}}}%
\def\qlp#1{\pt{#1}\qa{#1}}
\def\qup#1{\pt{#1}\qa{#1}}
\def\qroff#1{\roffset{0.25}{#1}}

\def\nnotes{\vnotes1.7\elemskip}
\def\SK{\sk} 
\def\QSK{\qsk} 

\input musixps 
\nohalfties
\def\pstiehgt{0.5}
\def\psslurhgt{0.5}

\makeatother

\hsize=7.275in
\vsize=9.5in  
%\hsize=8.0in
%\vsize=10.5in
\hoffset=8.5in\advance\hoffset-\hsize\divide\hoffset2\advance\hoffset-1.0in
\voffset=11in\advance\voffset-\vsize\divide\voffset2\advance\voffset-1.0in
%\pdfpageheight10.5in\pdfpagewidth8.0in
