summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/musictex/musicnft.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/musictex/musicnft.tex')
-rw-r--r--Master/texmf-dist/tex/generic/musictex/musicnft.tex938
1 files changed, 938 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/musictex/musicnft.tex b/Master/texmf-dist/tex/generic/musictex/musicnft.tex
new file mode 100644
index 00000000000..0e928c75cf9
--- /dev/null
+++ b/Master/texmf-dist/tex/generic/musictex/musicnft.tex
@@ -0,0 +1,938 @@
+%
+% This is MusicNFT from MusicTeX
+\message{Version 5.18 -- August 26th, 1996}%
+%
+% finding which class of fonts is normally used (cmxxx, dmxxx, dcxxx,...)
+\def\wordsplita#1#2#3.XX.{#1}%
+\def\wordsplitb#1#2#3.XX.{#2}%
+\rm
+\edef\fonthdg{\expandafter\wordsplita\fontname\the\font.XX.}%
+\edef\fonthdge{\expandafter\wordsplitb\fontname\the\font.XX.}%
+ %
+\font\cmmi=cmmi10 scaled \magstep1
+\font\cmbxbig=\fonthdg\fonthdge bx10 scaled \magstep2
+\font\cmbx=\fonthdg\fonthdge bx10 scaled \magstep1
+\font\cmbxsmall=\fonthdg\fonthdge bx10
+\font\cmbxtiny=\fonthdg\fonthdge bx8
+\font\cmbxmicro=\fonthdg\fonthdge bx7
+\font\moyen=\fonthdg\fonthdge bx10 scaled \magstep1
+\font\cmex=cmex10
+\font\cmsy=cmsy10 scaled \magstep1
+\font\cmr=\fonthdg\fonthdge r10 scaled \magstep1
+\font\ttyeight=\fonthdg\fonthdge tt8
+
+
+\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
+\edef\catcode@gt{\the\catcode`\>}\catcode`\>=12
+\edef\catcode@lt{\the\catcode`\<}\catcode`\<=12
+
+%
+\let\@plainwlog=\wlog
+\def\wlog#1{}%
+%
+\font\musictwenty=musikn20
+\fontdimen35\musictwenty=0pt\relax
+\font\musicsixteen=musikn16
+\font\slurntwenty=slurn20
+\font\slurnsixteen=slurn16
+\font\musicthirteen=musikn13
+\font\musiceleven=musikn11
+\font\beamtwenty=beamn20
+\fontdimen50\beamtwenty=0pt\relax
+\font\beamsixteen=beamn16
+\font\beamthirteen=beamn13
+\font\beameleven=beamn11
+%
+\newif\ifcautionacc
+\cautionaccfalse
+%
+\def\q@u{\musicnfont\char33\hss}%
+\def\h@a{\musicnfont\char34\hss}%
+\def\w@h{\musicnfont\char35\hss}%
+\def\d@iamg{\musicnfont\char0\hss}%
+\def\d@iamw{\musicnfont\char127\hss}%
+\def\s@haker{\musicnfont\char79\hss}%
+\def\t@remolord{\musicnfont\char78\hss}%
+\def\c@arrg{\musicnfont\char1\hss}%
+\def\c@arpg{\musicnfont\char2\hss}%
+\def\c@arqg{\musicnfont\char3\hss}%
+\def\w@hq{\musicnfont\char 125\hss}%
+\def\s@bv{\musicnfont\char36\hss}%
+\def\b@rv{\musicnfont\char32\hss}%
+\def\c@upchar{39}% offset to upper eighth hook
+\def\c@dnchar{44}% offset to upper eighth hook
+%
+ %
+%
+\def\musicxx{\musicnorfont}%
+\def\slurnxx{\slurnorfont}%
+\def\slurnfont{\slurnorfont}%
+%
+\def\set@normalnotesize{\def\beamfont{\beamnorfont}%
+\def\musicnfont{\musicnorfont}%
+\def\i@nterbeam{0.75\Interligne}%
+\def\b@alkthick{0.24\Interligne}}
+%
+\def\set@smallnotesize{\def\beamfont{\beamsmallfont}%
+\def\musicnfont{\musicsmallfont}%
+\def\i@nterbeam{0.6\Interligne}%
+\def\b@alkthick{0.192\Interligne}}
+%
+\def\set@tinynotesize{\def\beamfont{\beamtinyfont}%
+\def\musicnfont{\musictinyfont}%
+\def\i@nterbeam{0.48\Interligne}%
+\def\b@alkthick{0.1536\Interligne}}
+%
+\set@normalnotesize
+%
+\def\qu@raise{\z@}%
+\def\ha@raise{\z@}%
+\def\wh@raise{\z@}%
+\def\zwq#1{\getn@i{#1}\def\n@fon{\zwq}\def\n@sym{\w@hq}\g@zw}%
+\def\zsb#1{\getn@i{#1}\def\n@fon{\zsb}\def\n@sym{\s@bv}\g@zsb}% semi-breve
+\def\zbv#1{\getn@i{#1}\def\n@fon{\zbv}\def\n@sym{\b@rv}\g@zbv}% breve
+\def\g@zbv{\n@raiseq
+ \h@lines{\bv@width}\def\s@tem{\resetstem}\plap@symss\fi}%
+\def\g@zsb{\n@raiseq
+ \h@lines{\sb@width}\def\s@tem{\resetstem}\plap@symss\fi}%
+%
+\newbox\ch@box
+\newdimen\lthick
+\global\lthick=0.4pt
+%\newdimen\qn@width
+%\newdimen\hn@width
+%\newdimen\wn@width
+%\newdimen\sb@width
+%\newdimen\bv@width
+\newdimen\qd@skip
+\newdimen\hd@skip
+\newdimen\wd@skip
+%
+\newcount\musicsize
+%
+\def\musickeyfont{\ifdim\internote<0.76\Internote\musictinyfont
+\else\ifdim\internote<0.95\Internote\musicsmallfont
+ \else\musicnorfont
+ \fi
+\fi}%
+%
+\def\meterfont{\ifdim\internote<0.76\Internote\metersmallfont
+\else\ifdim\internote<0.95\Internote\meternorfont
+ \else\meterbigfont
+ \fi
+\fi}%
+%
+\def\pointfont{\ifdim\internote<0.76\Internote\metertinyfont
+\else\ifdim\internote<0.95\Internote\metersmallfont
+ \else\meternorfont
+ \fi
+\fi}%
+%
+\def\computespecifics{\ifnum\musicsize=0\relax\musicsize=20\relax\fi
+\ifnum\musicsize=20\relax
+ \def\ppff{\ppfftwenty}%
+ \def\beamnorfont{\beamtwenty}\def\musicnorfont{\musictwenty}%
+ \def\beamsmallfont{\beamsixteen}\def\musicsmallfont{\musicsixteen}%
+ \def\beamtinyfont{\beamthirteen}\def\musictinyfont{\musicthirteen}%
+ \def\meternorfont{\cmbx}\def\metersmallfont{\cmbxsmall}%
+ \def\metertinyfont{\cmbxtiny}\def\slurnorfont{\slurntwenty}%
+ \def\meterbigfont{\cmbxbig}%
+\else
+ \def\ppff{\ppffsixteen}%
+ \def\beamnorfont{\beamsixteen}\def\musicnorfont{\musicsixteen}%
+ \def\beamsmallfont{\beamthirteen}\def\musicsmallfont{\musicthirteen}%
+ \def\beamtinyfont{\beameleven}\def\musictinyfont{\musiceleven}%
+ \def\meternorfont{\cmbxsmall}\def\metersmallfont{\cmbxtiny}%
+ \def\metertinyfont{\cmbxmicro}\def\slurnorfont{\slurnsixteen}%
+ \def\meterbigfont{\cmbx}%
+\fi
+\Interligne=\musicsize pt\divide\Interligne by 4\relax
+\Internote=0.5\Interligne
+\interbeam=\i@nterbeam
+\computeqn@w}%
+%
+\def\computeqn@w{%
+\setbox\ch@box=\hbox{\w@h}\wn@width=\wd\ch@box
+\setbox\ch@box=\hbox{\s@bv}\sb@width=\wd\ch@box
+\setbox\ch@box=\hbox{\b@rv}\bv@width=\wd\ch@box
+\setbox\ch@box=\hbox{\c@arrg}\gr@width=\wd\ch@box
+\setbox\ch@box=\hbox{\h@a}\hn@width=\wd\ch@box
+\setbox\ch@box=\hbox{\q@u}\qn@width=\wd\ch@box
+\qd@skip=\qn@width\advance\qd@skip by -\hlthick
+\hd@skip=\hn@width\advance\hd@skip by -\hlthick
+\wd@skip=\wn@width\advance\wd@skip by -\hlthick
+}%
+\def\normalnotesize{\set@normalnotesize\computespecifics
+ \def\currentsize{\normalnotesize}}
+\def\smallnotesize{\set@smallnotesize\computespecifics
+ \def\currentsize{\smallnotesize}}
+\def\tinynotesize{\set@tinynotesize\computespecifics
+ \def\currentsize{\tinynotesize}}
+%
+%\check
+%
+\def\s@oupir{{\musicnfont\char"3E}}%
+%
+ %\newdimen\c@height
+\newcount\c@mult
+%\check
+\def\d@cr#1{\c@mult=#1\relax % queue de #1 croche(s) vers le haut
+\advance\c@mult by \c@upchar\d@crg}%
+\def\d@gru{\c@mult=12\relax\d@crg}% queue de croche barree vers le haut
+\def\d@crg{\setbox\ch@box=\rlap{\musicnfont\char\c@mult}\c@height=\ht\ch@box
+\global\advance\st@top by \c@height
+\global\advance\st@top by \internote
+ \ifdim\st@top>\st@bot
+ \maxst@top
+ \global\advance\st@bot by -\altportee
+ \global\advance\st@top by -\altportee
+ \kern\stem@skip\vrule height\st@top depth -\st@bot width \lthick
+ \advance\st@top by -\c@height\raise\st@top\box\ch@box
+ \kern -\lthick \kern-\stem@skip
+ \fi\resetstem}%
+%\check
+\def\p@cr#1{\c@mult=#1\relax % queue de #1 croche(s) vers le bas
+\advance\c@mult by \c@dnchar\p@crg}%
+\def\p@gru{\c@mult=13\relax\p@crg}% queue de croche barree vers la bas
+\def\p@crg{\setbox\ch@box=\rlap{\kern \hlthick\musicnfont
+ \char\c@mult}\c@height=\ht\ch@box
+\global\advance\st@bot by -\internote
+\global\advance\st@bot by -\c@height
+\ifdim\st@top>\st@bot
+ \minst@bot
+ \global\advance\st@bot by -\altportee
+ \global\advance\st@top by -\altportee
+ \raise\st@bot\box\ch@box
+ \vrule height\st@top depth -\st@bot width \lthick
+ \kern -\lthick
+\fi \resetstem}%
+%
+% grace notes (croches barrees)
+\def\grcu#1{\getn@i{#1}\def\n@sym{\q@u}\def\n@fon{\grcu}\n@raiseq
+ \h@linesqn\global\stem@skip=\qd@skip
+ \def\s@tem{\d@gru}\pl@symssq\fi}%
+\def\grcl#1{\getn@i{#1}\def\n@sym{\q@u}\def\n@fon{\grcl}\n@raiseq
+ \h@linesqn\def\s@tem{\p@gru}\pl@symssq\fi}%
+%
+%\check
+\def\s@harp{\musicnfont\char"34}\def\sh@raise{\z@}%
+\def\f@lat{\musicnfont\char"32}\def\fl@raise{\z@}%
+\def\n@at{\musicnfont\char"36}\def\na@raise{\z@}%
+\def\ds@harp{\musicnfont\char"35}%
+\def\df@lat{\musicnfont\char"33}%
+%
+\def\smalln@at{\cau@left\musicnfont\char"7C\cau@right}%
+\def\smallf@lat{\cau@left\musicnfont\char"78\cau@right}%
+\def\smalls@harp{\cau@left\musicnfont\char"7A\cau@right}%
+\def\smallds@harp{\cau@left\musicnfont\char"7B\cau@right}%
+\def\smalldf@lat{\cau@left\musicnfont\char"79\cau@right}%
+\def\cau@left{\ifcautionacc\raise-.45\Interligne
+ \hbox{\ttyeight(\kern -\lthick}\fi}
+\def\cau@right{\ifcautionacc\raise-.45\Interligne
+ \hbox{\ttyeight\kern -\lthick)\kern -.2\Interligne}\fi\cautionaccfalse}
+%
+\def\n@rpl@lap{\global\n@raise=\z@\pl@llap}%
+\def\bigsh#1{\inhgetn@i{#1}\n@rpl@lap{\s@harp}}%
+\def\smallsh#1{\inhgetn@i{#1}\n@rpl@lap{\smalls@harp}}%
+\def\csh{\cautionacctrue\smallsh}%
+\def\uppersh#1{\zcharnote{#1}{\raise3\internote
+\hbox to \qn@width{\hss\smalls@harp\hss}}}%
+%
+\def\bigdsh#1{\inhgetn@i{#1}\n@rpl@lap{\ds@harp}}%
+\def\smalldsh#1{\inhgetn@i{#1}\n@rpl@lap{\smallds@harp}}%
+\def\cdsh{\cautionacctrue\smalldsh}%
+%
+\def\bigna#1{\inhgetn@i{#1}\n@rpl@lap{\n@at}}%
+\def\smallna#1{\inhgetn@i{#1}\n@rpl@lap{\smalln@at}}%
+\def\cna{\cautionacctrue\smallna}%
+\def\upperna#1{\zcharnote{#1}{\raise3\internote
+\hbox to \qn@width{\hss\smalln@at\hss}}}%
+%
+\def\bigfl#1{\inhgetn@i{#1}\n@rpl@lap{\f@lat}}%
+\def\smallfl#1{\inhgetn@i{#1}\n@rpl@lap{\smallf@lat}}%
+\def\cfl{\cautionacctrue\smallfl}%
+\def\upperfl#1{\zcharnote{#1}{\raise3\internote
+\hbox to \qn@width{\hss\smallf@lat\hss}}}%
+%
+\def\bigdfl#1{\inhgetn@i{#1}\n@rpl@lap{\df@lat}}%
+\def\smalldfl#1{\inhgetn@i{#1}\n@rpl@lap{\smalldf@lat}}%
+\def\cdfl{\cautionacctrue\smalldfl}
+%
+\def\na#1{\ifdim\small@test\bigna{#1}\else\smallna{#1}\fi}%
+\def\fl#1{\ifdim\small@test\bigfl{#1}\else\smallfl{#1}\fi}%
+\def\sh#1{\ifdim\small@test\bigsh{#1}\else\smallsh{#1}\fi}%
+\def\dfl#1{\ifdim\small@test\bigdfl{#1}\else\smalldfl{#1}\fi}%
+\def\dsh#1{\ifdim\small@test\bigdsh{#1}\else\smalldsh{#1}\fi}%
+%
+%\check
+\def\b@adjust{\ifdim\y@ii>2.1\q@antum
+\multiply\q@antum by 2\relax\advance\b@char by 1\relax\fi
+}%
+\newcount\b@char
+\def\b@alkdefs{\b@char=0\relax
+\ifnum \b@p>0\relax\b@char=\b@p\relax\multiply\b@char by 6\relax
+ \advance\b@char by -6\relax\ifnum\b@char>54\relax\b@char=54\relax\fi\fi
+\ifnum \b@p<0\relax\b@char=-\b@p\relax\multiply\b@char by 6\relax
+ \advance\b@char by 58\relax\ifnum\b@char>118\relax\b@char=118\relax\fi\fi
+\q@antum=60pt\divide\q@antum by 32\relax\b@adjust
+\b@adjust
+\b@adjust
+\b@adjust
+\b@adjust
+\chardef\b@alk=\b@char}%
+%\check
+\def\s@lopdefs{\q@antum=60pt\divide\q@antum by 32\relax \def\s@lope{0.0}\relax
+\ifnum \b@p=1\relax\def\s@lope{0.05}\fi
+\ifnum \b@p>1\relax\b@char=\b@p\relax\multiply\b@char by 5\relax
+ \ifnum\b@char>50\relax\b@char=50\relax\fi
+ \edef\s@lope{0.\the\b@char}\fi
+\ifnum \b@p=-1\relax\def\s@lope{-0.05}\fi
+\ifnum \b@p<-1\relax\b@char=-\b@p\relax\multiply\b@char by 5\relax
+ \ifnum\b@char>50\relax\b@char=50\relax\fi
+ \edef\s@lope{-0.\the\b@char}\fi
+}%
+%\check
+\def\p@outre{% \y@ii : longueur, \b@p : pente, \y@i : altitude
+\ifnum \b@p=0\relax
+ \y@iii=\y@i\y@iv=\y@i
+ \advance\y@iii by -\b@alkthick
+ \advance\y@iv by \b@alkthick
+ \vrule height \y@iv depth -\y@iii width \y@ii
+% \raise \y@i\hbox{\vrule height \b@alkthick depth \b@alkthick
+% width \y@ii}
+\else\b@alkdefs\beamfont
+ \global\y@iv=\z@
+ \loop\ifdim\y@iv<\y@ii
+ {\y@v=\y@ii\advance\y@v by -\y@iv
+ \advance\y@v by -\q@antum
+ \y@iii=\y@i
+ \advance\y@iii by \s@lope\y@iv
+ \ifdim\y@v<\z@\advance\y@iii by \s@lope\y@v\hskip\y@v\fi
+ \raise\y@iii\hbox to \q@antum{\b@alk\hss}\global\advance\y@iv by \q@antum
+ }\repeat
+\fi
+}%
+%\check
+\def\clefdefasymbol{\hbox to 3.2\Interligne{\musickeyfont
+ \kern -0.8\internote\hss\char"49\hss}}%
+\def\smallclefdefa{\hbox to 2.8\Interligne{\musickeyfont
+ \kern -0.64\internote\hss\char"4A\hss}}%
+%\check
+\def\clefdesolsymbol{\hbox to 3.2\Interligne{\musickeyfont
+ \kern -1.2\internote\hss\char"47\hss}}%
+\def\smallclefdesol{\hbox to 2.8\Interligne{\musickeyfont
+\kern -0.96\internote\hss\char"48\hss}}%
+%\check
+\def\clefdutsymbol{\hbox to 3.2\Interligne{\musickeyfont
+ \kern -0.8\internote\hss\char"4B\hss}}%
+\def\smallclefdut{\hbox to 2.8\Interligne{\musickeyfont
+ \kern -0.64\internote\hss\char"4C\hss}}%
+\def\gclefdut{\hbox to 3.2\Interligne{\musickeyfont
+ \kern 0.4\internote\hss\char"04\hss}}%
+\def\drumclefsymbol{\hbox to 3.2\Interligne{\musickeyfont
+ \kern 0.4\internote\hss\char"4D\hss}}%
+%
+\def\allabreve{{\kern \internote\musickeyfont\char"52}}%
+\def\meterC{{\kern \internote\musickeyfont\char"53}}%
+%
+\def\d@soup{\hbox{\kern -0.3\qn@width\musicnfont\char"3F}}%
+\def\q@soup{\hbox{\kern -0.3\qn@width\musicnfont\char"40}}%
+\def\h@soup{\hbox{\kern -0.3\qn@width\musicnfont\char"41}}%
+\def\s@soup{\hbox{\kern -0.3\qn@width\musicnfont\char"42}}%
+\def\p@orgue{\hbox{\kern -0.5\hn@width\musicnfont\char"50}}%
+\def\p@urgue{\hbox{\kern -0.5\hn@width\musicnfont\char"51}}%
+\def\trille#1{\hbox to #1{\leaders\hbox{\musicnfont\char"64}\hfill}}%
+\def\Trille#1{\hbox to #1{\it tr\leaders\hbox{\musicnfont\char"64}\hfill}}%
+%
+% Gregorian notes
+%
+\def\diamg#1{\getn@i{#1}\def\n@fon{\diamg}\def\n@sym{\d@iamg}\g@diamg}%
+\def\zdiamg#1{\getn@i{#1}\def\n@fon{\diamg}\def\n@sym{\d@iamg}\rlap{\g@diamg}}%
+\def\diamw#1{\getn@i{#1}\def\n@fon{\diamw}\def\n@sym{\d@iamw}\g@diamg}%
+\def\zdiamw#1{\getn@i{#1}\def\n@fon{\diamw}\def\n@sym{\d@iamw}\rlap{\g@diamg}}%
+\def\carrg#1{\getn@i{#1}\def\n@fon{\carrg}\def\n@sym{\c@arrg}\g@diamg}%
+\def\zcarrg#1{\getn@i{#1}\def\n@fon{\carrg}\def\n@sym{\c@arrg}\rlap{\g@diamg}}%
+\def\carqg#1{\getn@i{#1}\def\n@fon{\carqg}\def\n@sym{\c@arqg}\g@diamg}%
+\def\zcarqg#1{\getn@i{#1}\def\n@fon{\carqg}\def\n@sym{\c@arqg}\rlap{\g@diamg}}%
+\def\carpg#1{\getn@i{#1}\def\n@fon{\carpg}\def\n@sym{\c@arpg}\g@diamg}%
+\def\zcarpg#1{\getn@i{#1}\def\n@fon{\carpg}\def\n@sym{\c@arpg}\rlap{\g@diamg}}%
+%
+\def\g@diamg{\advancetrue\g@diam}%
+\def\g@diam{\global\n@raise=\wh@raise\ifnum\n@i<100\relax
+ \h@lines{\gr@width}\def\s@tem{\resetstem}\pl@symssq\fi}%
+ %\check
+%%%%%%%%%%%%%%%%%%%%%%%%% notes with black diamond heads %%%%%%%%%%%%%%%%%%%%
+
+ %\check
+\def\yu{\advancetrue\yu@z}%
+\def\yup{\advancetrue\yup@z}%
+\def\yupp{\advancetrue\yupp@z}%
+\def\yuppp{\advancetrue\yuppp@z}%
+\def\yu@z#1{\getn@i{#1}\def\n@fon{\yu}\def\n@sym{\d@iamg}\g@qu}%
+\def\yup@z#1{\getn@i{#1}\def\n@fon{\yup}\def\n@sym{\d@iamgp}\g@qu}%
+\def\yupp@z#1{\getn@i{#1}\def\n@fon{\yupp}\def\n@sym{\d@iamgpp}\g@qu}%
+\def\yuppp@z#1{\getn@i{#1}\def\n@fon{\yuppp}\def\n@sym{\d@iamgppp}\g@qu}%
+\def\yl{\advancetrue\yl@z}%
+\def\ylp{\advancetrue\ylp@z}%
+\def\ylpp{\advancetrue\ylpp@z}%
+\def\ylppp{\advancetrue\ylppp@z}%
+\def\yl@z#1{\getn@i{#1}\def\n@fon{\yl}\def\n@sym{\d@iamg}\g@ql}%
+\def\ylp@z#1{\getn@i{#1}\def\n@fon{\ylp}\def\n@sym{\d@iamgp}\g@ql}%
+\def\ylpp@z#1{\getn@i{#1}\def\n@fon{\ylpp}\def\n@sym{\d@iamgpp}\g@ql}%
+\def\ylppp@z#1{\getn@i{#1}\def\n@fon{\ylppp}\def\n@sym{\d@iamgppp}\g@ql}%
+ %\check
+ %
+\def\d@iamgp{\hbox to \qn@width{\d@iamg\hss}\P@t}%
+\def\d@iamgpp{\hbox to \qn@width{\d@iamg\hss}\PP@t}%
+\def\d@iamgppp{\hbox to \qn@width{\d@iamg\hss}\PPP@t}%
+%
+\def\yh#1{\selectpoutre{#1}\yh@}%
+\def\yb#1{\selectpoutre{#1}\yb@}%
+\def\yh@#1{\getn@i{#1}\def\n@fon{\yh@}\def\n@sym{\d@iamg}\g@qh@}% % position
+\def\yb@#1{\getn@i{#1}\def\n@fon{\yb@}\def\n@sym{\d@iamg}\g@qb@} % #1 position
+%
+% x heads without stems
+\def\zy#1{\getn@i{#1}\def\n@fon{\zy}\def\n@sym{\d@iamg}\g@zq}
+\def\zyp#1{\getn@i{#1}\def\n@fon{\zyp}\def\n@sym{\d@iamgp}\g@zq}
+\def\zypp#1{\getn@i{#1}\def\n@fon{\zypp}\def\n@sym{\d@iamgpp}\g@zq}
+\def\zyppp#1{\getn@i{#1}\def\n@fon{\zyppp}\def\n@sym{\d@iamgppp}\g@zq}
+ %
+ % croches, doubles croches, triples croches, quadruple croches queue en
+ % haut et en bas pour percussion x
+ %
+\def\ycu{\advancetrue\mycu1}\def\yccu{\advancetrue\mycu2}
+\def\ycccu{\advancetrue\mycu3}\def\yccccu{\advancetrue\mycu4}%
+\def\ycl{\advancetrue\mycl1}\def\yccl{\advancetrue\mycl2}
+\def\ycccl{\advancetrue\mycl3}\def\yccccl{\advancetrue\mycl4}%
+%
+\def\yclp{\advancetrue\myclp1}\def\ycup{\advancetrue\mycup1}%
+\def\yclpp{\advancetrue\myclpp1}\def\ycupp{\advancetrue\mycupp1}%
+\def\yclppp{\advancetrue\myclppp1}\def\ycuppp{\advancetrue\mycuppp1}%
+ %
+\def\mycu#1#2{\getn@i{#2}\def\n@sym{\d@iamg}%
+\edef\n@fon{\noexpand\mycu #1}\g@cu{#1}}
+\def\mycup#1#2{\getn@i{#2}\def\n@sym{\d@iamgp}%
+\edef\n@fon{\noexpand\mycup #1}\g@cu{#1}}
+\def\mycupp#1#2{\getn@i{#2}\def\n@sym{\d@iamgpp}%
+\edef\n@fon{\noexpand\mycupp #1}\g@cu{#1}}
+\def\mycuppp#1#2{\getn@i{#2}\def\n@sym{\d@iamgppp}%
+\edef\n@fon{\noexpand\mycupp #1}\g@cu{#1}}
+ %
+\def\mycl#1#2{\getn@i{#2}\def\n@sym{\d@iamg}%
+\edef\n@fon{\noexpand\mycl #1}\g@cl{#1}}
+\def\myclp#1#2{\getn@i{#2}\def\n@sym{\d@iamgp}%
+\edef\n@fon{\noexpand\myclp #1}\g@cl{#1}}
+\def\myclpp#1#2{\getn@i{#2}\def\n@sym{\d@iamgpp}%
+\edef\n@fon{\noexpand\myclpp #1}\g@cl{#1}}
+\def\myclppp#1#2{\getn@i{#2}\def\n@sym{\d@iamgppp}%
+\edef\n@fon{\noexpand\myclppp #1}\g@cl{#1}}
+
+%%%%%%%%%%%%%%%%%%%%%%%%% notes with white diamond heads %%%%%%%%%%%%%%%%%%%%
+
+ %\check
+\def\du{\advancetrue\du@z}%
+\def\dup{\advancetrue\dup@z}%
+\def\dupp{\advancetrue\dupp@z}%
+\def\duppp{\advancetrue\duppp@z}%
+\def\du@z#1{\getn@i{#1}\def\n@fon{\du}\def\n@sym{\d@iamw}\g@qu}%
+\def\dup@z#1{\getn@i{#1}\def\n@fon{\dup}\def\n@sym{\d@iamwp}\g@qu}%
+\def\dupp@z#1{\getn@i{#1}\def\n@fon{\dupp}\def\n@sym{\d@iamwpp}\g@qu}%
+\def\duppp@z#1{\getn@i{#1}\def\n@fon{\duppp}\def\n@sym{\d@iamwppp}\g@qu}%
+\def\dl{\advancetrue\dl@z}%
+\def\dlp{\advancetrue\dlp@z}%
+\def\dlpp{\advancetrue\dlpp@z}%
+\def\dlppp{\advancetrue\dlppp@z}%
+\def\dl@z#1{\getn@i{#1}\def\n@fon{\dl}\def\n@sym{\d@iamw}\g@ql}%
+\def\dlp@z#1{\getn@i{#1}\def\n@fon{\dlp}\def\n@sym{\d@iamwp}\g@ql}%
+\def\dlpp@z#1{\getn@i{#1}\def\n@fon{\dlpp}\def\n@sym{\d@iamwpp}\g@ql}%
+\def\dlppp@z#1{\getn@i{#1}\def\n@fon{\dlppp}\def\n@sym{\d@iamwppp}\g@ql}%
+ %\check
+ %
+\def\d@iamwp{\hbox to \qn@width{\d@iamw\hss}\P@t}%
+\def\d@iamwpp{\hbox to \qn@width{\d@iamw\hss}\PP@t}%
+\def\d@iamwppp{\hbox to \qn@width{\d@iamw\hss}\PPP@t}%
+%
+\def\dh#1{\selectpoutre{#1}\dh@}%
+\def\db#1{\selectpoutre{#1}\db@}%
+\def\dh@#1{\getn@i{#1}\def\n@fon{\dh@}\def\n@sym{\d@iamw}\g@qh@}% % position
+\def\db@#1{\getn@i{#1}\def\n@fon{\db@}\def\n@sym{\d@iamw}\g@qb@} % #1 position
+%
+% x heads without stems
+\def\zd#1{\getn@i{#1}\def\n@fon{\zd}\def\n@sym{\d@iamw}\g@zq}
+\def\zdp#1{\getn@i{#1}\def\n@fon{\zdp}\def\n@sym{\d@iamwp}\g@zq}
+\def\zdpp#1{\getn@i{#1}\def\n@fon{\zdpp}\def\n@sym{\d@iamwpp}\g@zq}
+\def\zdppp#1{\getn@i{#1}\def\n@fon{\zdppp}\def\n@sym{\d@iamwppp}\g@zq}
+ %
+ % croches, doubles croches, triples croches, quadruple croches queue en
+ % haut et en bas pour percussion x
+ %
+\def\dcu{\advancetrue\mdcu1}\def\dccu{\advancetrue\mdcu2}
+\def\dcccu{\advancetrue\mdcu3}\def\dccccu{\advancetrue\mdcu4}%
+\def\dcl{\advancetrue\mdcl1}\def\dccl{\advancetrue\mdcl2}
+\def\dcccl{\advancetrue\mdcl3}\def\dccccl{\advancetrue\mdcl4}%
+%
+\def\dclp{\advancetrue\mdclp1}\def\dcup{\advancetrue\mdcup1}%
+\def\dclpp{\advancetrue\mdclpp1}\def\dcupp{\advancetrue\mdcupp1}%
+\def\dclppp{\advancetrue\mdclppp1}\def\dcuppp{\advancetrue\mdcuppp1}%
+ %
+\def\mdcu#1#2{\getn@i{#2}\def\n@sym{\d@iamw}%
+\edef\n@fon{\noexpand\mdcu #1}\g@cu{#1}}
+\def\mdcup#1#2{\getn@i{#2}\def\n@sym{\d@iamwp}%
+\edef\n@fon{\noexpand\mdcup #1}\g@cu{#1}}
+\def\mdcupp#1#2{\getn@i{#2}\def\n@sym{\d@iamwpp}%
+\edef\n@fon{\noexpand\mdcupp #1}\g@cu{#1}}
+\def\mdcuppp#1#2{\getn@i{#2}\def\n@sym{\d@iamwppp}%
+\edef\n@fon{\noexpand\mdcupp #1}\g@cu{#1}}
+ %
+\def\mdcl#1#2{\getn@i{#2}\def\n@sym{\d@iamw}%
+\edef\n@fon{\noexpand\mdcl #1}\g@cl{#1}}
+\def\mdclp#1#2{\getn@i{#2}\def\n@sym{\d@iamwp}%
+\edef\n@fon{\noexpand\mdclp #1}\g@cl{#1}}
+\def\mdclpp#1#2{\getn@i{#2}\def\n@sym{\d@iamwpp}%
+\edef\n@fon{\noexpand\mdclpp #1}\g@cl{#1}}
+\def\mdclppp#1#2{\getn@i{#2}\def\n@sym{\d@iamwppp}%
+\edef\n@fon{\noexpand\mdclppp #1}\g@cl{#1}}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% arpeges
+%
+\def\arpegesym#1{\hbox to \Interligne{\kern -1.2\Interligne
+\vbox to #1{\parindent=\z@
+\offinterlineskip\ifdim #1>4\Interligne\Arp@elem\fi\hrule
+\cleaders\arp@elem\vfill\kern -\interligne}\hss}}%
+\def\arp@elem{\vbox to \Interligne{\vss\musicnorfont\char"5A}}%
+\def\Arp@elem{\vbox to 4\Interligne{\vss\musicnorfont\char"5D}}%
+%
+\def\arpeggio#1#2{\zcharnote{#1}{\n@iii=#2\relax\advance\n@iii by 89\relax
+\musicnorfont\chardef\arp@el=\n@iii\relax\arp@el}\qsk}%
+\def\larpeggio#1#2{\lcharnote{#1}{\n@iii=#2\relax\advance\n@iii by 89\relax
+\musicnorfont\chardef\arp@el=\n@iii\relax\arp@el\kern -0.3\qn@width}\qsk}%
+%
+%
+% This skip aligns some ornaments which appear not to be centred precisely
+% on the notes
+\def\o@skp{\kern-.5\hd@skip}
+\def\mordant#1{\zcharnote{#1}{\musicnfont\char 89}}%
+\def\pince#1{\zcharnote{#1}{\musicnfont\char 87}}%
+\def\Pince#1{\zcharnote{#1}{\musicnfont\char 88}}%
+\def\Lpince#1{\zcharnote{#1}{\musicnfont\char 7}}%
+\def\Pincesw#1{\zcharnote{#1}{\musicnfont\char 11}}%
+\def\Pincenw#1{\zcharnote{#1}{\musicnfont\char 10}}%
+\def\Pincene#1{\zcharnote{#1}{\musicnfont\char 9}}%
+% \turn p makes a turn symbol at pitch p, causing no space
+% \backturn p makes a backward turn symbol at pitch p, causing no space
+% \coda p makes a coda ...
+% \segno p makes the special "S" ...
+\def\turn#1{\zcharnote{#1}{\o@skp\musicnfont\char"44}}
+\def\backturn#1{\zcharnote{#1}{\o@skp\musicnfont\char"43}}
+\def\coda#1{\zcharnote{#1}{\o@skp\musicnorfont\char"55}}
+\def\segno#1{\zcharnote{#1}{\o@skp\musicnorfont\char"56}}
+%
+\def\sforz#1{{\advance\transpose by -2\usf{#1}}}%
+\def\pz#1{{\advance\transpose by -2\upz{#1}}}%
+\def\ppz#1{\uppz{#1}}%
+\def\st#1{{\advance\transpose by -2\ust{#1}}}%
+%
+\def\usf#1{\zcharnote{#1}{\musicnfont\char 30}}%
+\def\lsf#1{\zcharnote{#1}{\musicnfont\char 31}}%
+\def\ust#1{\zcharnote{#1}{\musicnfont\char 26}}%
+\def\lst#1{\zcharnote{#1}{\musicnfont\char 27}}%
+\def\upz#1{\zcharnote{#1}{\musicnfont\char 24}}%
+\def\lpz#1{\zcharnote{#1}{\musicnfont\char 25}}%
+\def\uppz#1{\zcharnote{#1}{\musicnfont\char 28}}%
+\def\lppz#1{\zcharnote{#1}{\musicnfont\char 29}}%
+%
+% placement des accents au-dessus de poutres et non de tetes de notes
+\def\acc@balk{\global\stem@skip=\z@ %
+\y@ii=\b@z % a augmenter avec la pente
+\y@v=\locx@skip\advance\y@v by \stem@skip\advance\y@v by -\b@x
+\advance\y@ii by \s@lope\y@v
+\advance\y@ii by -\altportee
+\raise\y@ii\rlap{\kern\stem@skip\balk@accent}}%
+%\check
+\def\busf#1{\def\balk@accent{\musicnfont\char 30}\selectpoutre{#1}\acc@balk}%
+\def\blsf#1{\def\balk@accent{\musicnfont\char 31}\selectpoutre{#1}\acc@balk}%
+\def\bust#1{\def\balk@accent{\musicnfont\char 26}\selectpoutre{#1}\acc@balk}%
+\def\blst#1{\def\balk@accent{\musicnfont\char 27}\selectpoutre{#1}\acc@balk}%
+\def\bupz#1{\def\balk@accent{\musicnfont\char 24}\selectpoutre{#1}\acc@balk}%
+\def\blpz#1{\def\balk@accent{\musicnfont\char 25}\selectpoutre{#1}\acc@balk}%
+\def\buppz#1{\def\balk@accent{\musicnfont\char 28}\selectpoutre{#1}\acc@balk}%
+\def\blppz#1{\def\balk@accent{\musicnfont\char 29}\selectpoutre{#1}\acc@balk}%
+%
+% soufflets crescendo et decrescendo
+%
+\def\dimin{{\musicnorfont\char"10}}%
+\def\Dimin{{\musicnorfont\char"11}}%
+\def\DImin{{\musicnorfont\char"12}}%
+\def\DIMin{{\musicnorfont\char"13}}%
+\def\cresc{{\musicnorfont\char"14}}%
+\def\Cresc{{\musicnorfont\char"15}}%
+\def\CResc{{\musicnorfont\char"16}}%
+\def\CREsc{{\musicnorfont\char"17}}%
+%
+% colons for repeats (:| |: :||:)
+%
+%\check
+\def\w@coli{\selectinstr{\p@loop\raise\altportee
+ \hbox to \z@{\hss\musickeyfont\char 126\hss}\n@portee\repeat}}%
+%
+% long pauses
+%
+\def\PAuse{\hbox to \noteskip{\musicnorfont\char"3A\hss}\advance\locx@skip
+ by \noteskip}%
+\def\PAUSe{\hbox to \noteskip{\musicnorfont\char"3B\hss}\advance\locx@skip
+ by \noteskip}%
+\def\expause#1{\charnote{#1}{\musicnorfont\char 5\hss}}
+\def\zexpause#1{\zcharnote{#1}{\musicnorfont\char 5\hss}}
+\def\exhpause#1{\charnote{#1}{\musicnorfont\char 6\hss}}
+\def\zexhpause#1{\zcharnote{#1}{\musicnorfont\char 6\hss}}
+%
+% special song system left begins
+%
+\def\type@songsymbols{\raise\lowersongalt\llap{\musicnorfont\char 15}%
+\advance\lowersongalt by \uppersongalt
+\advance\lowersongalt by -\hlthick
+\raise\lowersongalt\llap{\musicnorfont\char 14}}
+%
+%
+% horizontal upper slur offset by #2 noteheads, total width #1
+%
+\def\h@uslur#1#2{\y@v=#1\relax\advance\y@v by -#2\hn@width
+\global\setbox\ch@box=\hbox{\slurnorfont\char31}% maximum of one part slurs
+\ifdim\wd\ch@box>\y@v
+ \global\n@iii=0\relax
+ \loop\global\setbox\ch@box=\hbox{\slurnorfont\char\n@iii}%
+ \ifdim\wd\ch@box<\y@v\global\advance\n@iii by 1\relax
+ \repeat
+ \hbox to #1{\kern #2\hn@width\hss\slurnorfont\char\n@iii\hss}%
+\else
+ \global\n@iii=79\relax
+ \loop\global\setbox\ch@box=\hbox{\slurnorfont\char\n@iii}%
+ \ifdim 2\wd\ch@box>\y@v\global\advance\n@iii by -1\relax
+ \repeat
+ \hbox to #1{\kern #2\hn@width\y@iv=\ht\ch@box\y@iii=-\ht\ch@box
+ \advance\y@iii by \t@y
+ \slurnorfont\char\n@iii
+ \leaders\hrule height \y@iv depth \y@iii\hfill
+ \advance\n@iii by 16\relax \char\n@iii}%
+\fi}
+%
+% horizontal lower slur offset by #2 noteheads, total width #1
+%
+\def\h@dslur#1#2{\y@v=#1\relax\advance\y@v by -#2\hn@width
+\global\setbox\ch@box=\hbox{\slurnorfont\char31}% maximum of one part slurs
+\ifdim\wd\ch@box>\y@v
+ \global\n@iii=32\relax
+ \loop\global\setbox\ch@box=\hbox{\slurnorfont\char\n@iii}%
+ \ifdim\wd\ch@box<\y@v\global\advance\n@iii by 1\relax
+ \repeat
+ \hbox to #1{\kern #2\hn@width\hss\slurnorfont\char\n@iii\hss}%
+\else
+ \global\n@iii=111\relax
+ \loop\global\setbox\ch@box=\hbox{\slurnorfont\char\n@iii}%
+ \ifdim 2\wd\ch@box>\y@v\global\advance\n@iii by -1\relax
+ \repeat
+ \hbox to #1{\kern #2\hn@width\y@iv=\dp\ch@box\y@iii=-\dp\ch@box
+ \advance\y@iii by \t@y
+ \slurnorfont\char\n@iii
+ \leaders\hrule height \y@iii depth \y@iv\hfill
+ \advance\n@iii by 16\relax \char\n@iii}%
+\fi}
+%
+% sames without offsets
+%
+\def\hdslur#1{\h@dslur {#1}0}
+\def\huslur#1{\h@uslur {#1}0}
+%
+% noter un debut de tenue
+%
+\def\ITenu#1{\selecttenue{#1}\I@tenu{70}}%
+\def\Ilegu#1#2{\selecttenue{#1}{\advance\locx@skip by -1.5\qn@width
+\I@tenu{70}{#2}}}%
+\def\Itenu#1{\selecttenue{#1}\I@tenu{66}}%
+\def\ilegu#1#2{\selecttenue{#1}{\advance\locx@skip by -1.5\qn@width
+\I@tenu{66}{#2}}}%
+\def\ITenl#1{\selecttenue{#1}\I@tenl{102}}%
+\def\Ilegl#1#2{\selecttenue{#1}\advance\locx@skip by -1.5\qn@width
+\I@tenl{102}{#2}\advance\locx@skip by 1.5\qn@width}%
+\def\Itenl#1{\selecttenue{#1}\I@tenl{98}}%
+\def\ilegl#1#2{\selecttenue{#1}{\advance\locx@skip by -1.5\qn@width
+\I@tenl{98}{#2}}}%
+%
+\def\I@tenall{\check@tenvoid\global\t@s=1\relax % etat en cours
+ \global\t@x=\locx@skip
+ \global\advance\t@x by 0.8\qd@skip
+ \global\t@y= 0.20\Interligne
+ \pl@base\global\t@z=\y@i\global\advance\t@z by\altportee
+ \setbox\ch@box=\hbox{\L@slur}}%
+%
+\def\I@tenu#1#2{\global\t@p=1\relax % sens=1
+ \global\t@w=#1\relax
+ \inhgetn@i{#2}%
+ \I@tenall
+ \global\advance\t@z by \ht\ch@box
+ \global\advance\t@z by 0.24\Interligne
+ \global\advance\t@z by -\t@y
+ \up@tenbox}%
+%
+\def\I@tenl#1#2{\global\t@p=-1\relax % sens= -1
+ \global\t@w=#1\relax
+ \inhgetn@i{#2}%
+ \I@tenall
+ \global\advance\t@z by -\dp\ch@box
+ \global\advance\t@z by -0.24\Interligne
+ \up@tenbox}%
+
+\def\Invertslur#1{\selecttenue{#1}\global\t@p=-\t@p
+\ifnum\t@w>63\relax
+ \ifnum\t@w<96\global\advance\t@w by 32\relax
+ \else\global\advance\t@w by -32\fi
+\fi}
+
+
+%
+%\check
+%
+\def\Tten{\tten}%
+\def\Tleg#1{\rlap{\qsk\tleg#1}}%
+%
+\def\t@ten{\check@tenopen\y@i=\t@z\advance\y@i by -\altportee
+\y@ii=\locx@skip\advance\y@ii by -\t@x
+\ifnum\t@w=0\relax\else\advance\y@ii by 0.4\qd@skip\fi
+\ifnum\t@p>0\relax
+ \ifnum\t@s=2\relax
+ \raise\y@i\llap{\ifnum\t@w=0\relax
+ \up@rleg\else
+ \Up@rleg\kern -0.2\qd@skip\fi}%
+ \else
+ \raise\y@i\llap{\ifnum\t@w=0\relax
+ \up@leg\else
+ \Up@leg\kern -0.2\qd@skip\fi}%
+ \fi
+\else
+ \ifnum\t@s=2\relax
+ \raise\y@i\llap{\ifnum\t@w=0\relax
+ \lo@rleg\else
+ \Lo@rleg\kern -0.2\qd@skip\fi}%
+ \else
+ \raise\y@i\llap{\ifnum\t@w=0\relax
+ \lo@leg\else
+ \Lo@leg\kern -0.2\qd@skip\fi}%
+ \fi
+\fi
+\global\t@w=0\relax
+\global\t@s=0\relax
+\@uptenubox}%
+%
+%
+\def\L@slur{\slurnorfont\char\t@w}%
+\def\R@slur{\global\advance\t@w by 16\slurnorfont\char\t@w}%
+\newdimen\slur@off
+\newdimen\slur@maxlen
+%
+\def\leg@hrule{\leaders\hrule height \t@y\hfill}%
+%
+% complete slur of length #1 (up and down)
+\def\Up@leg{% longueur \y@ii
+\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=\ht\ch@box
+ \advance\slur@off by -\t@y
+ \ifdim \y@ii>2\wd\ch@box
+ \raise -\slur@off\hbox{\L@slur}\leg@hrule\raise -\slur@off\hbox{\R@slur}%
+ \else
+ \raise -\slur@off\hbox{\huslur{\y@ii}}%
+ \fi}}%
+%
+\def\Lo@leg{% longueur \y@ii
+\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=-\dp\ch@box
+ \advance\slur@off by -0.1pt
+ \ifdim \y@ii>2\wd\ch@box
+ \raise -\slur@off\hbox{\L@slur}\leg@hrule\raise -\slur@off\hbox{\R@slur}%
+ \else
+ \raise -\slur@off\hbox{\hdslur{\y@ii}}%
+ \fi}}%
+%
+% slur termination of length #1 (up and down)
+\def\Up@rleg{% longueur \y@ii
+\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=\ht\ch@box %
+ \advance\slur@off by -\t@y
+ \ifdim \y@ii>\wd\ch@box\leg@hrule
+ \else\hss\fi \raise -\slur@off\hbox{\R@slur}}}%
+%
+\def\Lo@rleg{% longueur \y@ii
+\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=-\dp\ch@box %
+ \advance\slur@off by -0.1pt
+ \ifdim \y@ii>\wd\ch@box\leg@hrule
+ \else\hss\fi \raise -\slur@off\hbox{\R@slur}}}%
+%
+%\check
+%
+% slur beginning (left) (up and down)
+\def\Up@les{% longueur \y@ii
+\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=\ht\ch@box
+ \advance\slur@off by -\t@y
+ \UpLo@les}}%
+%
+%\check
+%
+\def\Lo@les{% longueur \y@ii
+\hbox to \y@ii{\setbox\ch@box=\hbox{\L@slur}\slur@off=-\dp\ch@box
+ \advance\slur@off by -0.1pt
+ \UpLo@les}}%
+%
+%\check
+%
+\def\UpLo@les{\raise -\slur@off\hbox{\L@slur}%
+ \advance\y@ii by -\wd\ch@box
+ \ifdim \y@ii>\z@\leg@hrule
+ \else\hss
+% \ifdim\y@ii<-.8\p@ \vrule height 1cm\fi
+ \fi}%
+%\check
+%
+\def\c@ten{%\rlap{\vrule height 1cm}
+ \y@ii=\x@skip\advance\y@ii by -\t@x
+ \global\t@x=-.8\p@ %<--
+ \ifnum\t@s=1\relax
+ \ifnum\t@w=0\relax
+ \ifnum\t@p>0\relax
+ \raise\t@z\llap{\up@les}\else
+ \raise\t@z\llap{\lo@les}\fi
+ \else
+ \ifnum\t@p>0\relax
+ \raise\t@z\llap{\Up@les}\else
+ \raise\t@z\llap{\Lo@les}\fi
+ \fi
+ \else
+ \ifnum\t@s=2\relax
+ \slur@off=\t@z
+ \advance\slur@off by \t@y
+% \advance\slur@off by 3\p@
+ \kern -\y@ii\vrule height \slur@off depth -\t@z width \y@ii
+ \fi
+ \fi
+ \global\t@s=2\relax
+}%
+%
+\def\n@skmb{\nobreak\global\slur@maxlen=\z@
+% compute the maximum length of slurs to be handled
+ \ten@loop
+ \setbox\ch@box=\hbox{\ifnum\t@w=0\relax\lu@slur
+ \else\L@slur\fi}\ifdim\slur@maxlen<\wd\ch@box
+ \global\slur@maxlen=\wd\ch@box\fi
+ \global\advance\n@l by 1\relax
+ \repeat
+% compute the maximum excess length of beginning slurs
+ \global\slur@off=\z@
+ \ten@loop
+ \y@ii=\x@skip\advance\y@ii by \n@skip\advance\y@ii by -\t@x
+ \advance\y@ii by -\slur@maxlen
+ % \y@ii is the length that will be given to \c@ten for that slur/tie
+ % assuming \slur@maxlen left offset...
+ \ifnum\t@s=1\relax
+ \setbox\ch@box=\hbox{\ifnum\t@w=0\relax\lu@slur\else\L@slur\fi}%
+ {\advance\y@ii by -\wd\ch@box
+ \ifdim\y@ii<\slur@off \global\slur@off=\y@ii\fi}%
+ \fi
+ \global\advance\n@l by 1\relax
+ \repeat
+ \global\advance\slur@maxlen by \slur@off
+%
+ \nobreak\global\advance\n@skip by -\slur@maxlen}%
+\def\skip@b{\hskip \slur@maxlen
+ \global\advance\x@skip by\slur@maxlen}% %
+
+ %
+%
+%\check
+%
+% symboles slurn20 des liaisons et tenues
+%
+\newcount\t@wi
+\newcount\t@wii
+\newcount\t@wiii
+\newcount\t@wiv
+\newcount\t@wv
+\newcount\t@wvi
+%
+\let\wlog=\@plainwlog
+%
+\def\k@ii{\fontdimen 8\musictwenty}
+\def\k@iii{\fontdimen 9\musictwenty}
+\def\k@iiii{\fontdimen 10\musictwenty}
+\def\k@iiv{\fontdimen 11\musictwenty}
+\def\k@iv{\fontdimen 12\musictwenty}
+\def\k@ivi{\fontdimen 13\musictwenty}
+\def\k@ivii{\fontdimen 14\musictwenty}
+\def\k@iviii{\fontdimen 15\musictwenty}
+\def\k@iix{\fontdimen 16\musictwenty}
+%
+\def\internotei{\fontdimen 17\musictwenty}
+\def\internoteii{\fontdimen 18\musictwenty}
+\def\internoteiii{\fontdimen 19\musictwenty}
+\def\internoteiv{\fontdimen 20\musictwenty}
+\def\internotev{\fontdimen 21\musictwenty}
+\def\internotevi{\fontdimen 22\musictwenty}
+\def\internotevii{\fontdimen 23\musictwenty}
+\def\internoteviii{\fontdimen 24\musictwenty}
+\def\internoteix{\fontdimen 25\musictwenty}
+\def\c@height{\fontdimen 26\musictwenty}
+%
+\def\qn@width{\fontdimen 27\musictwenty}
+\def\hn@width{\fontdimen 28\musictwenty}
+\def\wn@width{\fontdimen 29\musictwenty}
+\def\sb@width{\fontdimen 30\musictwenty}
+\def\bv@width{\fontdimen 31\musictwenty}
+\def\gr@width{\fontdimen 32\musictwenty}
+%
+\def\clef@skip{\fontdimen 28\beamtwenty}
+\def\nullthick{\fontdimen 29\beamtwenty}
+\def\bbbb@xi{\fontdimen 30\beamtwenty}
+\def\bbbb@xii{\fontdimen 31\beamtwenty}
+\def\bbbb@xiii{\fontdimen 32\beamtwenty}
+\def\bbbb@xiv{\fontdimen 33\beamtwenty}
+\def\bbbb@xv{\fontdimen 34\beamtwenty}
+\def\bbbb@xvi{\fontdimen 35\beamtwenty}
+\def\bbbb@xvii{\fontdimen 36\beamtwenty}
+\def\bbbb@xviii{\fontdimen 37\beamtwenty}
+\def\bbbb@xix{\fontdimen 38\beamtwenty}
+\def\bbbb@xx{\fontdimen 39\beamtwenty}
+%
+\def\bbbbb@xi{\fontdimen 40\beamtwenty}
+\def\bbbbb@xii{\fontdimen 41\beamtwenty}
+\def\bbbbb@xiii{\fontdimen 42\beamtwenty}
+\def\bbbbb@xiv{\fontdimen 43\beamtwenty}
+\def\bbbbb@xv{\fontdimen 44\beamtwenty}
+\def\bbbbb@xvi{\fontdimen 45\beamtwenty}
+\def\bbbbb@xvii{\fontdimen 46\beamtwenty}
+\def\bbbbb@xviii{\fontdimen 47\beamtwenty}
+\def\bbbbb@xix{\fontdimen 48\beamtwenty}
+\def\bbbbb@xx{\fontdimen 49\beamtwenty}
+
+% this macro sets the new big (piano) braces (due to Andreas Egler)
+% !!! Attention !!!
+% there is no checking of
+% too small or large dimensions
+%
+\font\musext=musicbra
+\newcount\selbrace
+\def\mult@portee{\y@ii=\nbportees\interportee
+ \advance\y@ii by -\Interportee
+ \advance\y@ii by \nbportees\lthick
+ \advance\y@ii by -2\lthick
+%
+ \selbrace=\y@ii\relax\select@brace%
+ \divide\y@ii by 2\raise\y@\llap{%
+ \raise\y@ii\llap{\musext\char\selbrace%
+ \kern.5\Interligne}}}%
+%
+\def\select@brace{\divide\selbrace by 65536%
+\advance\selbrace by -40\divide\selbrace by 2}%
+% dim to count means 1pt -> 65536 sp
+% 40 pt is the length of the smallest brace
+% the next brace is 2pt larger
+
+
+\catcode`\>=\catcode@gt
+\catcode`\<=\catcode@lt
+\catcode`\@=\catcodeat
+