\immediate\write10{MusiXCHOir 0.36\space<1 March 1995>}%

\ifx\undefined\braceheight \else \endinput \fi

\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
\catcodesmusic

% big parentheses for e.g. multiline text

\newskip\braceheight \braceheight=4\Interligne\relax

\def\biglbrace{\let\@Ti\llap \let\@Tii\{ \C@br}
\def\bigrbrace{\let\@Ti\rlap \let\@Tii\} \C@br}
\def\C@br{\C@tx{\@Ti{$\left\@Tii\vbox\@to\braceheight{}\right.\n@space$}\vss}}

% multiline text

\def\@kti{\kern\thr@@\Internote\strut}
\def\@kmi{\kernm\Internote\strut}

\def\Dtx#1|#2*{\C@tx{\lrlap{\@kti#1}\lrlap{\@kti#2}\vss}}
\def\Drtx#1|#2*{\C@tx{\rlap{\@kmi#1}\rlap{\@kmi#2}\vss}}

\def\Ttx#1|#2|#3*{\C@tx{\lrlap{\@kti#1}\lrlap{\@kti#2}\lrlap{\@kti#3}\vss}}
\def\Trtx#1|#2|#3*{\C@tx{\rlap{\@kmi#1}\rlap{\@kmi#2}\rlap{\@kmi#3}\vss}}

\def\Qtx#1|#2|#3|#4*{\C@tx{\lrlap{\@kti#1}\lrlap{\@kti#2}%
  \lrlap{\@kti#3}\lrlap{\@kti#4}\vss}}
\def\Qrtx#1|#2|#3|#4*{\C@tx{\rlap{\@kmi#1}\rlap{\@kmi#2}\rlap{\@kmi#3}%
  \rlap{\@kmi#4}\vss}}

\def\tx#1*{\C@tx{\lrlap{\@kti#1}\vss}}
\def\rtx#1*{\C@tx{\rlap{\@kmi#1}\vss}}

% longation rule

\newskip\@ihf
\def\thf{\getcurpos\advance\y@v-\@ihf \advance\y@v-\tw@\Interligne
  \llap{\vrule\@width\y@v\@height\lthick\kern\Interligne}}%

\def\ixhf#1{\setbox\ch@box\hbox{#1}\getcurpos \advance\y@v\h@lf\wd\ch@box
  \advance\y@v\Interligne \global\@ihf\y@v \box\ch@box}

\def\ihf#1{\setbox\ch@box\hbox{#1}\getcurpos \advance\y@v\wd\ch@box
  \global\@ihf\y@v \box\ch@box}

\endcatcodesmusic
\catcode`\@=\catcodeat
\endinput