summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/musictex/musictex.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/musictex/musictex.tex')
-rw-r--r--Master/texmf-dist/tex/generic/musictex/musictex.tex2440
1 files changed, 0 insertions, 2440 deletions
diff --git a/Master/texmf-dist/tex/generic/musictex/musictex.tex b/Master/texmf-dist/tex/generic/musictex/musictex.tex
deleted file mode 100644
index d384e72438a..00000000000
--- a/Master/texmf-dist/tex/generic/musictex/musictex.tex
+++ /dev/null
@@ -1,2440 +0,0 @@
-%
- % THIS is MusicTeX
-\def\mcversion{5.18}
-\message{Version \mcversion\space -- August 26th, 1996}%
-
-\edef\catcodeat{\the\catcode`\@}\catcode`\@=11
-
-\newif\ifcatcodesmusic
-
-\def\catcodesmusic{\ifcatcodesmusic\relax
- \else
- \edef\catcode@gt{\the\catcode`\>}\catcode`\>=12%
- \edef\catcode@lt{\the\catcode`\<}\catcode`\<=12%
- \edef\catcode@vert{\the\catcode`\|}\catcode`\|=13%
- \edef\catcode@and{\the\catcode`\&}\catcode`\&=13%
- \edef\catcode@excl{\the\catcode`\!}\catcode`\!=12%
- \edef\catcode@star{\the\catcode`\*}\catcode`\*=12%
- \edef\catcode@pt{\the\catcode`\.}\catcode`\.=12%
- \edef\catcode@sc{\the\catcode`\:}\catcode`\:=12%
- \fi\catcodesmusictrue}
-
- \catcodesmusic
-
- % PARAMETERS DIFFERENT THAN IN PLAIN
- %
-\normallineskiplimit=\p@
-\parindent 10mm
- %
- % EXTRA FONTS NEEDED
- %
-\font\enorme=\fonthdg\fonthdge bx12 scaled \magstep4
-\font\moyen=\fonthdg\fonthdge bx12 scaled \magstep1
-\font\tentt=\fonthdg\fonthdge tt10
-\font\ppffsixteen=\fonthdg\fonthdge bxti10
-\font\ppfftwenty=\fonthdg\fonthdge bxti10 scaled \magstep1
- %
-\tolerance=10000\relax
- % procedures speciales D. taupin
- % **** \hsize 16cm \vsize 24cm
- %
-\let\@plainwlog=\wlog
-\def\wlog#1{}%
- %
- %\check
- %
-\raggedbottom
-\def\p@t{\kern 1.5pt\pointfont\char"2E}%
-\def\P@t{\pt@raise\hbox{\p@t}}%
-\def\PP@t{\pt@raise\hbox{\p@t\char"2E}}%
-\def\PPP@t{\pt@raise\hbox{\p@t\char"2E\char"2E}}%
- %
- %\check
- %
-\def\f@tok#1#2\af@tok{#1}%
-\def\s@tok#1#2\af@tok{#2}%
- %
-\def\gl@au#1{\ifnum #1<0\relax\global\advance #1 by -1\relax\fi
- \ifnum #1>0\relax\global\advance #1 by 1\relax\fi}%
-\def\gl@de#1{\ifnum #1<0\relax\global\advance #1 by 1\relax\fi
- \ifnum #1>0\relax\global\advance #1 by -1\relax\fi}%
- %
- %
- % Amount of skip needed at bar lines
-\newskip\tempsskip
-\newdimen\brace@w
-\newdimen\afterruleskip
-\newdimen\pt@up % offset point de notes pointees
-\newdimen\noteskip
-\newdimen\elemskip
-\newdimen\q@antum
-\newdimen\n@raise
-\newdimen\n@width
-\newdimen\stem@skip
-\newdimen\interligne % entre les lignes
- %%%% \newdimen\nullthick % pour les parties sans portees (paroles)
-\newdimen\staffbotmarg % marge au-dessous des portees
-\newdimen\stafftopmarg % au-dessus des portees
-\newdimen\Internote % la moitie de \Interligne
-\def\internote{\Internote}%
-\newdimen\interbeam % distance entre poutres
-\newdimen\Interligne % de la base d'une ligne a l'autre
-\newdimen\interportee % distance between staffs of the same instrument (incl)
-\newdimen\Interportee % distance between staffs of the same instrument (excl)
-\newdimen\interinstrument % distance between instruments (added to \interportee)
-\newdimen\systemheight
- %
-\newdimen\altplancher
-\newdimen\altportee
-\newdimen\line@width
-\newdimen\x@skip
-\newdimen\locx@skip
-\newdimen\st@bot % note stem bottom
-\newdimen\st@top % note stem top
- %
- % positions x et z de debut des tenues
-\newdimen\t@xi\newdimen\t@zi
-\newdimen\t@xii\newdimen\t@zii
-\newdimen\t@xiii\newdimen\t@ziii
-\newdimen\t@xiv\newdimen\t@ziv
-\newdimen\t@xv\newdimen\t@zv
-\newdimen\t@xvi\newdimen\t@zvi
- %
-\newdimen\t@y
- %
- % signes des tenues ( \t@p: entier de -1 a +1 )
- % etat des tenues ( \t@s: 0= inactive, 1= actif, 2= continuation )
- %
-\newcount\t@pi\newcount\t@si
-\newcount\t@pii\newcount\t@sii
-\newcount\t@piii\newcount\t@siii
-\newcount\t@piv\newcount\t@siv
-\newcount\t@pv\newcount\t@sv
-\newcount\t@pvi\newcount\t@svi
- %
- % positions x et z de debut des poutres
-\newdimen\b@xi\newdimen\b@zi
-\newdimen\b@xii\newdimen\b@zii
-\newdimen\b@xiii\newdimen\b@ziii
-\newdimen\b@xiv\newdimen\b@ziv
-\newdimen\b@xv\newdimen\b@zv
-\newdimen\b@xvi\newdimen\b@zvi
- %
-\newdimen\bb@xi\newdimen\bb@zi
-\newdimen\bb@xii\newdimen\bb@zii
-\newdimen\bb@xiii\newdimen\bb@ziii
-\newdimen\bb@xiv\newdimen\bb@ziv
-\newdimen\bb@xv\newdimen\bb@zv
-\newdimen\bb@xvi\newdimen\bb@zvi
- %
-\newdimen\bbb@xi\newdimen\bbb@zi
-\newdimen\bbb@xii\newdimen\bbb@zii
-\newdimen\bbb@xiii\newdimen\bbb@ziii
-\newdimen\bbb@xiv\newdimen\bbb@ziv
-\newdimen\bbb@xv\newdimen\bbb@zv
-\newdimen\bbb@xvi\newdimen\bbb@zvi
- %
-\newdimen\bbbb@zi
-\newdimen\bbbb@zii
-\newdimen\bbbb@ziii
-\newdimen\bbbb@ziv
-\newdimen\bbbb@zv
-\newdimen\bbbb@zvi
- %
-\newdimen\bbbbb@zi
-\newdimen\bbbbb@zii
-\newdimen\bbbbb@ziii
-\newdimen\bbbbb@ziv
-\newdimen\bbbbb@zv
-\newdimen\bbbbb@zvi
- %
- % pentes des poutres ( entier de -3 a +3 )
- % multiplicite des poutres ( de -5 a +5 . 0= inactive )
- %
-\newcount\b@pi\newcount\b@ni
-\newcount\b@pii\newcount\b@nii
-\newcount\b@piii\newcount\b@niii
-\newcount\b@piv\newcount\b@niv
-\newcount\b@pv\newcount\b@nv
-\newcount\b@pvi\newcount\b@nvi
- %
-\newif\ifraggedlines
- %
-\newcount\barno
-\newcount\lastbarno
-\newcount\notes@open
-\def\check@nopen{\ifnum\notes@open>0\relax\enotes\errmessage{ missing
- \noexpand\enotes\ mesure \the\barno}\fi}%
- %
- % altitudes des portees de chaque instrument
- %
-\newcount\ut@ref
-\newcount\noportee
-\newcount\noinstrument
- %
-\newcount\nbporteesi
-\newcount\nbporteesii
-\newcount\nbporteesiii
-\newcount\nbporteesiv
-\newcount\nbporteesv
-\newcount\nbporteesvi
- %
-\newcount\signi
-\newcount\signii
-\newcount\signiii
-\newcount\signiv
-\newcount\signv
-\newcount\signvi
- %
-\newif\ifadvance\advancetrue
-\newcount\transpose
-\newcount\normaltranspose
-\newcount\o@signi
-\newcount\o@signii
-\newcount\o@signiii
-\newcount\o@signiv
-\newcount\o@signv
-\newcount\o@signvi
- %
-\newtoks\cleftoksi
-\newtoks\cleftoksii
-\newtoks\cleftoksiii
-\newtoks\cleftoksiv
-\newtoks\cleftoksv
-\newtoks\cleftoksvi
- %
-\newtoks\o@cksi
-\newtoks\o@cksii
-\newtoks\o@cksiii
-\newtoks\o@cksiv
-\newtoks\o@cksv
-\newtoks\o@cksvi
- %
-\newtoks\metertoksi
-\newtoks\metertoksii
-\newtoks\metertoksiii
-\newtoks\metertoksiv
-\newtoks\metertoksv
-\newtoks\metertoksvi
- %
-\global\nbporteesi=1%
-\global\nbporteesii=1%
-\global\nbporteesiii=1%
-\global\nbporteesiv=1%
-\global\nbporteesv=1%
-\global\nbporteesvi=1%
-\global\cleftoksi={{0}{0}{0}{0}}%
-\global\cleftoksii={{0}{0}{0}{0}}%
-\global\cleftoksiii={{0}{0}{0}{0}}%
-\global\cleftoksiv={{0}{0}{0}{0}}%
-\global\cleftoksv={{0}{0}{0}{0}}%
-\global\cleftoksvi={{0}{0}{0}{0}}%
- %
- %\check
- %
-\def\n@advance{\global\advance\noinstrument by 1\relax}%
-\def\n@loop{\global\noinstrument=0\relax\loop
- \ifnum\noinstrument<\nbinstruments\relax\n@advance
- \selectinstr}%
-\def\m@loop{\global\noinstrument=0\relax\loop
- \ifnum\noinstrument<\maxinstruments\relax\n@advance
- \selectinstr}%
- %
-\def\savemeters{\savemeter}%
-\def\savemeter{\m@loop\global\metertoks={{}{}{}{}}\repeat}%
- %\check
-\def\maxinstruments{6}%
-
-\def\setclef#1{\noinstrument #1\relax\selectinstr \cleftoks}
-\let\setclefs\setclef
-
-\def\setstaffs#1{\noinstrument #1\relax\selectinstr \nbportees}
-
-\def\setinterinstrument#1#2{\noinstrument #1\relax
- \expandafter\def\csname interinstrument\romannumeral\noinstrument\endcsname{#2}}
-
- %
-\def\selectinstr{%
-\xdef\altitude{\csname k@i\romannumeral\noinstrument\endcsname}%
-\xdef\nbportees{\csname nbportees\romannumeral\noinstrument\endcsname}%
-\xdef\staffspacing{\csname staffspacing\romannumeral\noinstrument\endcsname}%
-\xdef\stafflinesnb{\csname stafflinesnb\romannumeral\noinstrument\endcsname}%
-\xdef\clefdut{\csname clefdut\romannumeral\noinstrument\endcsname}%
-\xdef\clefdefa{\csname clefdefa\romannumeral\noinstrument\endcsname}%
-\xdef\clefdesol{\csname clefdesol\romannumeral\noinstrument\endcsname}%
-\xdef\internote{\csname internote\romannumeral\noinstrument\endcsname}%
-\xdef\sign{\csname sign\romannumeral\noinstrument\endcsname}%
-\xdef\o@sign{\csname o@sign\romannumeral\noinstrument\endcsname}%
-\xdef\cleftoks{\csname cleftoks\romannumeral\noinstrument\endcsname}%
-\xdef\metertoks{\csname metertoks\romannumeral\noinstrument\endcsname}%
-\xdef\o@cks{\csname o@cks\romannumeral\noinstrument\endcsname}%
-\interportee=\interfacteur\internote
-\interportee=2\interportee
-\Interportee=\interportee
-\advance\Interportee by -\stafflinesnb\internote
-\advance\Interportee by -\stafflinesnb\internote
-\advance\Interportee by 2\internote
-}
- %\check
- %
- % compteurs de travail
- %
-\newcount\n@i
-\newcount\n@ii
-\newcount\n@iii
- %
- % registres de travail
- %
-\newbox\toks@box
-\newbox\w@rkbox
-\newbox\n@otebox
- %
- %%%%\newdimen\clef@skip
-\newdimen\sign@skip
- %
-\newdimen\y@
-\newdimen\y@i
-\newdimen\y@ii
-\newdimen\y@iii
-\newdimen\y@iv
-\newdimen\y@v
- %
-\newtoks\arg@suite
-\def\hlthick{0.5\lthick}
-\def\vdlthick{\vrule depth \hlthick}
- %
- % fabrique un jeu complet (ou systeme complet de portees)
- % en fonction de \nbinstruments
-\def\null@portee{\global\advance\y@ by \nullthick
- \ifdim\systemheight>\p@\global\advance\systemheight by \nullthick
- \else
- \global\advance\altplancher by \nullthick
- \fi
-}%
- %
- %\check
- %
-\ifx\mult@portee\undefined
- \def\mult@portee{\y@ii=\nbportees\interportee
- \advance\y@ii by -\Interportee
- \advance\y@ii by \nbportees\lthick
- \advance\y@ii by -\lthick
- \raise\y@\llap{\cmex\raise 8\p@\rlap{\char'072}\raise\y@ii\rlap{\char
-'070}\divide\y@ii by 2\relax{\advance\y@ii by 8\p@\raise\y@ii\rlap{\char
-'074}}\y@v=\y@ii\relax\advance\y@v by -5\p@
- \kern 3.8\p@
- \vrule depth -5\p@ height \y@v width 1.2\p@ \kern -1.2\p@
- \advance\y@v by \y@ii
- \advance\y@ii by 5\p@
- \vrule depth -\y@ii height \y@v width 1.2\p@
- \kern 2.5\p@}}%
-\fi % end \ifx \mult@portee
- %
- %\check
- %
-\def\n@portee{\global\advance\noportee by 1\relax}%
-\def\p@loop{\global\noportee=0\relax
- \loop\ifnum\noportee<\nbportees\relax\alt@comp}%
- %
- %\check
- %
-\def\alt@comp{\altportee=\altitude
- \advance\altportee by \noportee\interportee}%
- %
-\def\lowersonginstrum{99} % to be used to make heavy bars at staff left
-\def\uppersonginstrum{0} % to be used to make heavy bars at staff left
-\newdimen\lowersongalt
-\newdimen\uppersongalt
- %
-\def\portees{\rlap{\global\y@=\staffbotmarg
- %
-\lowersongalt=\z@
-\uppersongalt=\z@
-\global\systemheight=\z@
-\global\altplancher=\y@
-\n@loop
- %
- \global\noportee=0\relax
- \global\altitude=\y@
- \ifnum\noinstrument=\lowersonginstrum\relax
- \lowersongalt=\altitude
- \fi
- %
- \ifnum\nbportees=0\relax
- \null@portee
- \else
- \ifnum\nbportees>1\relax
- \mult@portee
- \fi
- {\loop \raise\y@\portee
- \n@portee \global\advance\y@ by \interportee
- \global\advance\systemheight by \interportee
- \ifnum\noportee<\nbportees
- \repeat}\fi % fin du \else pour 0 portees=chant
- \ifnum\noinstrument=\uppersonginstrum\relax\uppersongalt=\y@
- \advance\uppersongalt by -\Interportee
- \advance\uppersongalt by \hlthick
- \fi
- \ifnum\noinstrument<\nbinstruments
- \xdef\interinstrum{\csname interinstrument\romannumeral\noinstrument
- \endcsname}%
- \expandafter\ifx\interinstrum\relax\xdef\interinstrum{\interinstrument}\fi
- \global\advance\systemheight by \interinstrum
- \global\advance\y@ by \interinstrum
- \fi
-\repeat
-\global\advance\systemheight by -\Interportee
-\global\advance\systemheight by \hlthick
- %
-\raise\altplancher\rlap{\vdlthick height \systemheight}%
-\ifnum\uppersonginstrum>\lowersonginstrum\relax
- \advance\uppersongalt by -\lowersongalt
- \raise\lowersongalt
- \llap{\vdlthick height \uppersongalt width 0.6\Interligne
- \kern 0.3\Interligne
- \vdlthick height \uppersongalt width \lthick}\type@songsymbols
-\fi
-{\advance\stafftopmarg by \staffbotmarg
-\raise \stafftopmarg\hbox{\vdlthick height \systemheight width \z@}}}}%
- %
- %\check
- % portee simple
-\def\staffline{\kern\internote\kern\internote\kern -\lthick
-\hrule width \line@width height \hlthick depth \hlthick
-}
-\def\portee{\rlap{\vbox to \z@ {\vss
-\ifnum\stafflinesnb>5\staffline\fi
-\ifnum\stafflinesnb>4\staffline\fi
-\ifnum\stafflinesnb>3\staffline\fi
-\ifnum\stafflinesnb>2\staffline\fi
-\ifnum\stafflinesnb>1\staffline\fi
-\ifnum\stafflinesnb>0\staffline\fi\kern -\hlthick
-}}}%
- %\check
- %
- % initialisations des dimensions etc...
- %
- %*************** definition des titres des instruments
- % ***********************
- %
-\def\instrumenti{}%
-\def\instrumentii{}%
-\def\instrumentiii{}%
-\def\instrumentiv{}%
-\def\instrumentv{}%
-\def\instrumentvi{}%
- %\check
- %
-\def\maxlegatenuti{6}%
-\def\ten@loop{\global\n@l=0\relax\loop\ifnum\n@l<\maxlegatenuti\relax
- \selecttenue{\n@l}}%
- %
-\def\resettens{\resetlegs}%
-\newcount\n@l
-\def\resetlegs{\global\setbox\@tenubox
- \hbox{\kern\tenboxwidth}\ten@loop \global\t@p=0\relax \global\t@s=0\relax
- \global\advance\n@l by 1\relax
- \repeat}%
- %
- %\check
- %
-\def\piece@begina{\barno=1\relax\global\barsinline=0\relax
-\frenchspacing\ifnum1>\nbinstruments\errmessage{\noexpand\nbinstruments
- not defined !}\fi
-\def\barvrule{\thinvrule}\resetlegs
-\savesignature\computewidths}%
- %
-\def\debutmorceau{\catcodesmusic\leavevmode\piece@begina
-\advance\line@width by -\parindent
-\portees\instrumentnames
-\advance\line@width by \parindent
-\tempsskip=2pt plus \gluemaxskip minus 2pt
-\zglueskip=0pt plus \gluemaxskip minus .5pt%
-\piece@beginb\setnormalhyphen}%
- %
-\def\piece@beginb{\writeclefs\everystaff
-\writesignatures\writemeters
-\save@all\currenthyphenpenalty}%
- %
-\def\save@all{\saveclefs\savesignature\savemeters}%
- %
-\def\debutextrait{\catcodesmusic\piece@begina
-\setbox\w@rkbox=\hbox{\portees}% to compute heights
-\setbox\w@rkbox=\hbox\bgroup
-\def\barre{\xbarre}\piece@beginb}%
- %\check
-\def\zfinextrait{\def\suspmorceau{\zsuspmorceau}\finextrait}
-\def\finextrait{\def\z@suspend{}\suspmorceau\egroup
-\line@width=\wd\w@rkbox
-\centerline{\instrumentnames\portees\unhbox\w@rkbox}\endcatcodesmusic}%
- %
- % saving penalties to be able to restore them at the end of music
- %
-\def\savepenalties{\edef\restorepenalties{%
-\noexpand\linepenalty=\the\linepenalty\noexpand\relax
-\noexpand\interlinepenalty=\the\interlinepenalty\noexpand\relax
-\noexpand\hyphenpenalty=\the\hyphenpenalty\noexpand\relax
-\noexpand\exhyphenpenalty=\the\exhyphenpenalty\noexpand\relax
-\noexpand\finalhyphendemerits=\the\finalhyphendemerits\noexpand\relax
-\noexpand\doublehyphendemerits=\the\doublehyphendemerits\noexpand\relax
-\noexpand\adjdemerits=\the\adjdemerits\noexpand\relax
-\noexpand\pretolerance=\the\pretolerance\noexpand\relax
-}}%
- %\check
-\def\computewidths{\computespecifics
-\interportee=\interfacteur\Interligne
-\Interportee=\interportee\advance\Interportee by -8\internote
-\ifdim\stafftopmarg<\p@ \stafftopmarg=\topfacteur\Interligne\fi
-\ifdim\staffbotmarg<\p@ \staffbotmarg=\bottomfacteur\Interligne\fi
-\global\interligne=\Interligne
-\global\Internote=0.5\Interligne
- %
-\ifx\internotei\undefined\relax\else
- \n@loop
- % decide staffspacing
- \expandafter\ifx\staffspacing \undefined\global\internote=\Internote
- \else
- \expandafter\ifx\staffspacing \relax\global\internote=\Internote
- \else\global\internote=\staffspacing\Internote
- \fi\fi
- \repeat
-\fi
- %
-\ifdim\nullthick<\p@ \global\nullthick=4\Interligne\fi
-\global\advance\interligne by -\lthick
- %
-\afterruleskip=\stdafterruleskip
-\global\line@width=\hsize}%
- %
-\def\stdafterruleskip{4\Internote}%
- %
- %\check
- %
-\def\n@alaligne{\n@suspmorceau\lreprmorceau}%
-\def\n@zalaligne{\n@zsuspmorceau\lreprmorceau}%
-\def\lreprmorceau{\reprmorceau}%
-\def\n@suspmorceau{\check@nopen\gluebrule\newbar\z@suspend}%
-\def\n@Suspmorceau{\n@suspmorceau}
-\def\n@zsuspmorceau{\check@nopen\termskip\z@suspend}%
-\def\z@suspend{\ifraggedlines\else\hfilneg\ \fi
- \adv@bottom\par\removelastskip\endcatcodesmusic}%
-\def\alapage{\suspmorceau\preprmorceau}%
-\def\zalapage{\zsuspmorceau\preprmorceau}%
-\def\preprmorceau{\eject\global\linesinpage=0\relax\reprmorceau}%
-\def\reprmorceau{\catcodesmusic\atnextline\computewidths\noindent\leavevmode
-\global\barsinline=0\relax{\advance\linesinpage by 1\relax\message{Line \the
-\linesinpage:}}\relax
-\adv@bottom\portees\writeclefs\kern 0.5\Interligne\wbarno@x
-\kern -0.5\Interligne\everystaff
-\writesignatures\writemeters\zgluearule
-\save@all\currenthyphenpenalty\def\atnextline{}}%
- %
-\def\everystaff{}\def\atnextline{}%
- %\check
- %
-\def\resetsignatures{\generalsignature{0}\savesignature}%
- %
-\def\savesignature{\m@loop\o@sign=\sign\repeat}%
- %\check
-\def\saveclefs{\m@loop\global\o@cks=\cleftoks\repeat}
- %\check
- %
- % definitions en fonction du numero de l'instriment
- %
-\newskip\zglueskip
- %
-\def\meterfrac#1#2{\setbox\w@rkbox=\vbox{\hbox{\ \meterfont
- #1}\hbox{\ \meterfont #2}}%
-\vbox to 8\internote{\offinterlineskip\vss\hbox to \wd\w@rkbox{\hss
-\meterfont #1\hss}\vss
-\vss\hbox to \wd\w@rkbox{\hss\meterfont #2\hss}\vss}}%
- %\check
-\newtoks\t@gene
-\def\generalmeter#1{\t@gene={{#1}{#1}{#1}{#1}}\m@loop
-\global\metertoks=\t@gene\repeat}%
- %\check
-\def\signaturegenerale{\generalsignature}%
-\def\generalsignature#1{\m@loop\sign=#1\relax\repeat}%
- %
- % compteurs de travail
- %
- % a completer pour fermer les poutres
-\def\zglu{\zglue}%
-\def\zglue{\nobreak\@tenleader{\zglueskip}\nobreak}%
- %
-\def\n@skmb{\nobreak\global\advance\n@skip by -\brace@w}%
- %
-\def\temps{\n@skmb\termskip\nobreak\zglu\nobreak\skip@b}%
-\def\changesignatures{\changesignature}%
-\def\changesignature{\n@skmb\termskip\nobreak\zglu\nobreak
- \skip@b\writenewsignatures}%
-\def\z@barre{\n@skmb\termskip\nobreak\skip@b\-\hskip\zglueskip\nobreak}%
-
-\def\xz@barre{\temps}%
- %
-\def\newbar{\barvrule\def\barvrule{\thinvrule}\message{bar \the\barno}%
-\global\advance\barno by 1\relax}%
- %
-\def\w@barno{\global\n@iii=\barno\global\divide\n@iii by \freqbarno\relax
-\ifnum\n@iii=\lastbarno\relax
-\else{\y@i=\altplancher\advance\y@i by \systemheight
-\advance\y@i by 2\internote\raise\y@i\llap{\it \number\barno
- \kern -6\p@}}\fi\global\lastbarno=\n@iii
-}%
-\newif\ifprimavolta
-\newif\ifsecondavolta
-\def\freqbarno{1}\def\wbarno{\w@barno}
-\def\wbarno@x{\ifprimavolta\make@prima 1\else
- \ifsecondavolta\make@prima 2\else
- \wbarno
- \fi\fi
- \primavoltafalse\secondavoltafalse
- \global\n@iii=\barno\global\divide\n@iii by \freqbarno\relax
- \global\lastbarno=\n@iii}
-%
- \def\Setprimavolta#1#2{\primavoltatrue\def\up@volta{#1}\def\lg@volta{#2}}
- \def\setprimavolta{\Setprimavolta{2\Interligne}{1cm}}
-
- \def\Setsecondavolta#1#2{\secondavoltatrue\def\up@volta{#1}\def\lg@volta{#2}}
- \def\setsecondavolta{\Setsecondavolta{2\Interligne}{1cm}}
-
-\def\make@prima#1{{\y@i=\altplancher\advance\y@i by \systemheight
-\advance\y@i by \up@volta
- \raise\y@i\rlap{\vrule height 2\Interligne\rm\ #1.}\advance\y@i 2\Interligne
- \raise\y@i\rlap{\vrule height \z@ depth \lthick width \lg@volta}%
- }}
-\def\up@volta{2\Interligne}\def\lg@volta{1cm}
- %
- % discretionary line breaking
- %
-\def\noautolines{\def\barre{\n@barre}\def\zbarre{\z@barre}%
-\def\alaligne{\c@ountline\n@alaligne}\def\zalaligne{\n@zalaligne}%
-\def\suspmorceau{\c@ountline\n@suspmorceau}\def\zsuspmorceau{\c@ountline\n@zsuspmorceau}%
-\def\Suspmorceau{\n@Suspmorceau}
-\def\currenthyphenpenalty{\setnohyphenpenalty}%
-\def\updatecontext{\n@updatecon}%
-\def\leftrepeat{\n@leftrepeat}%
-\def\leftrightrepeat{\n@leftrightrepeat}%
-\setnohyphenpenalty}%
- %
-\def\setnohyphenpenalty{\linepenalty=500\pretolerance=-1%
-\finalhyphendemerits=-10\hyphenpenalty=-10%
-\exhyphenpenalty=0\doublehyphendemerits=0%
-\adjdemerits=0\interlinepenalty=0}%
- %
-\def\sethyphenpenalty{\linepenalty=500\pretolerance=-1%
-\finalhyphendemerits=1000\hyphenpenalty=1000%
-\exhyphenpenalty=0\doublehyphendemerits=0%
-\adjdemerits=0\interlinepenalty=1000}%
- %
-\newcount\barsinline
-\newcount\linesinpage
-\newcount\maxbarsinline
-\newcount\maxlinesinpage
-\def\c@ountbar{\global\advance\barsinline by 1\relax}%
-\def\c@ountline{\global\advance\linesinpage by 1\relax}%
- %
-\def\autolines#1#2#3{% #1 nombre d'elemskip par mesure,
- % #2 nombre de mesures par ligne,
- % #3 nb lignes par page
-\global\maxbarsinline=#2\relax
-\global\maxlinesinpage=#3\relax
-\global\elemskip=\line@width\global\advance\elemskip by -10\Internote
-\global\divide\elemskip by \maxbarsinline\relax
-\global\advance\elemskip by -6\Internote\global\divide\elemskip by #1\relax
-\def\barre{\t@barre}\def\updatecontext{\t@updatecon}\def\zbarre{\t@zbarre}%
-\def\alaligne{\t@alaligne}\def\zalaligne{\t@zalaligne}%
-\def\suspmorceau{\t@suspmorceau}\def\zsuspmorceau{\t@zsuspmorceau}%
-\def\Suspmorceau{\t@Suspmorceau}%
-\def\leftrepeat{\t@leftrepeat}%
-\def\leftrightrepeat{\t@leftrightrepeat}%
-\def\currenthyphpenalsty{\sethyphenpenalty}\sethyphenpenalty}%
- %
-\def\t@barre{\c@ountbar
-\ifnum\barsinline<\maxbarsinline\relax\x@barre
-\else\t@alaligne
-\fi}%
-\def\t@zbarre{\c@ountbar
-\ifnum\barsinline<\maxbarsinline\relax\xz@barre
-\else\t@zalaligne
-\fi}%
- %
-\def\t@alaligne{\c@ountline
-\ifnum\linesinpage<\maxlinesinpage\relax\n@alaligne
-\else\alapage
-\fi}
- %
-\def\t@suspmorceau{\c@ountline\n@suspmorceau
-\ifnum\linesinpage<\maxlinesinpage\relax
-\else\eject\global\linesinpage=0\relax
-\fi}
- %
-\def\t@zalaligne{\c@ountline
-\ifnum\linesinpage<\maxlinesinpage\relax\n@zalaligne
-\else\zalapage
-\fi}%
- %
-\def\t@zsuspmorceau{\c@ountline\n@zsuspmorceau
-\ifnum\linesinpage<\maxlinesinpage\relax
-\else\eject\global\linesinpage=0\relax
-\fi}%
- %
-\def\t@Suspmorceau{\setdoubleBAR\t@suspmorceau}
- %
- %
-\def\tz@barre{\c@ountbar
-\ifnum\barsinline<\maxbarsinline\relax\z@barre
-\else
- \c@ountline
- \ifnum\linesinpage<\maxlinesinpage\relax\zalaligne
- \global\advance\linesinpage by -1\relax % car \alaligne aura aussi augmente
- \else\zalapage
-\fi\fi}%
- %
-\def\t@updatecon{\c@ountbar
- \ifnum\barsinline<\maxbarsinline\relax\x@updatecon
-\else
- \c@ountline
- \ifnum\linesinpage<\maxlinesinpage\l@updatecon
- \else\p@updatecon
-\fi\fi}%
- %\check
- %
-\noautolines
- %
-\def\n@barre{\gluebrule\newbar\gluearule}% barre de mesure
-\def\xbarre{\c@ountbar\x@barre}
-\def\xbeambarre{\notes\charnote0{\hss\altplancher=\z@\newbar\wbarno@x}\enotes}
-\def\x@barre{\gluebrule\newbar\zgluearule}% barre de mesure
- % sans possibilite de saut
- %
-\def\d@oubleBAR{\thinvrule\nobreak\hskip
-0.6\Internote\global\advance\x@skip0.6\Internote
-\nobreak\thickvrule}%
- %
-\def\addspace#1{\kern#1\global\advance\x@skip#1}
- %
-\def\d@oublebar{\thinvrule\nobreak\hskip 0.8\Internote
-\global\advance\x@skip0.8\Internote
-\nobreak\thinvrule}%
- %
-\def\r@ightrepeat{\hbox{\w@colons\d@oubleBAR}\global\advance\x@skip
- 7.12\Internote}
-\def\l@eftrepeat{\hbox{\thickvrule\kern 0.6\Internote\thinvrule\w@colons
-}\global\advance\x@skip7.12\Internote}
-\def\l@eftrightrepeat{\hbox{\w@colons\thickvrule
- \kern 0.6\Internote\thickvrule\w@colons}\global\advance\x@skip
- 6.2\Internote}
- %
- %\check
- %
-\def\leftrightrepeatsymbol{\gluebrule\l@eftrightrepeat\glueaftersymbol}
-\def\glueaftersymbol{{\def\wbarno{}\afterruleskip=\Internote\zgluearule}}%
-\def\leftrepeatsymbol{\gluebrule\l@eftrepeat\glueaftersymbol}%
-\def\rightrepeatsymbol{\gluebrule\r@ightrepeat\glueaftersymbol}%
- %
- %\check
- %
-\def\doublebarre{\setdoublebar\barre}% double barre de mesure
-\def\setdoublebar{\def\barvrule{\d@oublebar}}%
-\def\setemptybar{\def\barvrule{\relax}}%
-\def\setdoubleBAR{\def\barvrule{\d@oubleBAR}}%
-\def\rightrepeat{\setrightrepeat\barre}%
-\def\finrightrepeat{\setrightrepeat\suspmorceau}%
- %
-\def\setrightrepeat{\def\barvrule{\r@ightrepeat}}%
-\def\setleftrepeat{\def\barvrule{\l@eftrepeat}}%
-\def\setleftrightrepeat{\def\barvrule{\l@eftrightrepeat}}%
- %
-\def\think@vrule@f#1{\raise\altplancher\hbox{\vdlthick height\systemheight width
- #1}\global\advance\x@skip by #1}%
-
-\def\stdbarrules{\def\think@vrule{\think@vrule@f}} % standard v rules over all instruments
-\stdbarrules
-
-\def\sepbarrules{\def\think@vrule{\think@vrule@s}} % standard v rules over all instruments
- %
-\def\think@vrule@s#1{\n@loop \selectinstr
- \y@v=\nbportees\interportee \advance\y@v -\Interportee \advance\y@v \lthick
- \raise\altitude \hbox to \z@{\vdlthick width #1 height
- \y@v\hss}\repeat
- \global\advance\x@skip by #1\kern #1} % separated vrules par instrum
-
- %\check
-\def\vrule@inst#1{\selectinstr{\p@loop\raise\altportee
- \hbox to \z@{\vrule width #1 height 8\internote\hss}\n@portee\repeat}}%
- %
- %
-\def\thinvrule{\think@vrule{\lthick}}%
-\def\thickvrule{\think@vrule{1.2\Internote}}%
- %
-\def\finmorceau{\setdoubleBAR\finpartition}%
-\def\zfinmorceau{\setemptybar\finpartition}%
-\def\finpartition{\n@suspmorceau}%
- %\check
- %
-\def\c@other{}% void, but possibly changed by lines.tex... and others
-\def\gluearule{\-\zgluearule}%
-\def\zgluearule{\nobreak\wbarno@x\ygluearule}%
-\def\ygluearule{\nobreak\kern\afterruleskip\nobreak
- \global\advance\x@skip\afterruleskip\global\n@skip=\z@}%
- % terminate skips and continue slurs and ties if any
-\def\termskip{\upd@sk
- \ten@loop\ifnum\t@s=0\relax
- \else\c@ten
- \fi
- \global\advance\n@l by 1\relax
- \repeat\nobreak
- \c@other\nobreak
-\global\n@skip=\z@\global\x@skip=\z@}%
- %
-\def\gluebrule{\nobreak\termskip\@tenleader{\tempsskip}\nobreak}%
- %
-\def\writesignatures{\global\sign@skip=\z@
-\w@ritesigns
-\global\advance\sign@skip by 0.4\Internote \nobreak\hskip\sign@skip
-}%
-\def\Writesignatures{\global\sign@skip=\z@
-\w@ritesigns
-\nobreak\advance\sign@skip by 1.2\Internote\kern\sign@skip\nobreak}%
- %
-\def\w@ritesigns{\n@loop\writesigni\repeat}%
- %
- %\check
-\def\instrumentnames{\n@loop\writeinsname\repeat}%
- %
- %\check
-\def\writenewsignatures{\global\sign@skip=\z@
- \n@loop\writenewsigni\repeat
- \nobreak\ifdim\sign@skip>0.1pt\global\advance\sign@skip by 1.2\Internote
- \nobreak\global\n@skip=\sign@skip\termskip
- \fi
- \nobreak}%
- %
- %\check
- %
- % normal hyphenation process when \noautolines
- %
-\def\setnormalhyphen{\edef\-{\noexpand\discretionary{}%
- %\check 2
-{\noexpand\hbox{\noexpand\portees\noexpand\writeclefs
-\noexpand\everystaff}%
-\noexpand\hbox{\noexpand\writesignatures}%
-}%
- %\check 2
-{}}}% fin du def \setnormalhyphen
- %\check
- % ecrire toutes les indications de mesure sur toutes les portees
-\def\writemeters{\global\n@skip=\z@
-\n@loop\writemeteri\repeat\nobreak
-\ifdim\n@skip>\z@\advance\n@skip by 1.2\Internote
- \global\n@skip=\n@skip\termskip
-\fi\nobreak}%
- %
- %\check
-\def\writemeteri{\nobreak\selectinstr{\p@loop
- \edef\w@call{\noexpand\writemeterp{\noexpand\noportee}\the\metertoks}\relax
- \setbox\toks@box=\hbox{\w@call{}{}{}{}}\relax
- \ifdim\n@skip<\wd\toks@box\global\n@skip=\wd\toks@box\fi
- \raise\altportee\rlap {\box\toks@box}\n@portee
- \repeat}}%
- %\check
-\def\writeclefs{% ecrire toutes les clefs sur toutes les portees
-\global\clef@skip=\z@
-\w@riteclefs
-\kern\clef@skip}%
- %
-\def\w@riteclefs{\n@loop\writeclefi\repeat}%
- %
- %\check
-\def\writenewclefs{% ecrire toutes les nouvelles clefs sur toutes les
- % portees
-\global\clef@skip=\z@
-\w@ritenewclefi
-\kern\clef@skip\global\advance\x@skip\clef@skip\nobreak}%
- %
- %\check
-\def\zwritenewclefs{% ecrire toutes les nouvelles clefs sur toutes les
- % portees, a gauche et sans espacement
-\global\clef@skip=\z@
-\setbox\w@rkbox\hbox{\w@ritenewclefi}\kern -\clef@skip\box\w@rkbox
-\kern\clef@skip\nobreak}%
- %
-\def\w@ritenewclefi{\n@loop\writenewclefi\repeat}%
- %
- %\check
-\def\writesigni{\selectinstr\def\o@test{999}\w@ritenewsigni}%
-\def\writenewsigni{\selectinstr\def\o@test{\o@sign}\w@ritenewsigni}%
-\def\w@ritenewsigni{{\p@loop
- \n@portee
- \ifnum\o@test=\sign\relax\else
- \edef\get@ref{\noexpand\get@refs\the\cleftoks{}{}{}{}}%
- \setbox\toks@box=\hbox{\kern 0.4\Internote\get@ref\compnwsign
- \kern 0.4\Internote}%
- \ifdim\sign@skip<\wd\toks@box \global\sign@skip=\wd\toks@box\fi
- \raise\altportee\rlap{\box\toks@box}%
- \fi
-\repeat}%
-}%
- %\check
-\def\writeinsname{\selectinstr
-\xdef\instrument{\csname instrument\romannumeral
-\noinstrument\endcsname}%
-\altportee=\altitude
-\ifnum\nbportees>0\relax\advance\altportee by \nbportees\interportee
- \advance\altportee by -\Interportee
- \advance\altportee by \altitude\divide\altportee by 2\relax
-\fi
- \setbox\n@otebox=\llap{\vbox{\hsize=\parindent\advance\hsize by
- -0.8\Internote \centerline{\instrument}}\
- \kern 2\p@}\advance\altportee by -0.5\ht\n@otebox
- \raise\altportee\box\n@otebox
-}%
- %\check
-\def\get@refs#1#2#3#4{% #1-#4: cle correspondante 0=sol, 6=fa, 1-4=ut .
-\ifcase\noportee\relax\global\ut@ref=0\relax
-\or\global\ut@ref=#1\relax
-\or\global\ut@ref=#2\relax
-\or\global\ut@ref=#3\relax
-\or\global\ut@ref=#4\relax
-\fi}
-\def\compnwsign{\ifnum\o@sign=0\relax
- \else\ifnum\sign=0\relax
- \else\kern 0.4\Internote
- \fi
- \fi
- \ifnum\o@sign<0\relax\w@flats\w@sharps
- \else\w@sharps\w@flats
- \fi}%
- %
- %\check
-\def\w@flats{%
-\ifnum\sign<0\relax\s@bemol{6}\else\ifnum\o@sign<0\relax\s@becarre{6}\fi\fi
-\ifnum\sign<-1\relax\s@bemol{9}\else\ifnum\o@sign<-1\relax\s@becarre{9}\fi
-\fi
-\ifnum\sign<-2\relax\s@bemol{5}\else\ifnum\o@sign<-2\relax\s@becarre{5}\fi
-\fi
-\ifnum\sign<-3\relax\s@bemol{8}\else\ifnum\o@sign<-3\relax\s@becarre{8}\fi
-\fi
-\ifnum\sign<-4\relax\s@bemol{4}\else\ifnum\o@sign<-4\relax\s@becarre{4}\fi
-\fi
-\ifnum\sign<-5\relax\s@bemol{7}\else\ifnum\o@sign<-5\relax\s@becarre{7}\fi
-\fi
-\ifnum\sign<-6\relax\s@bemol{3}\else\ifnum\o@sign<-6\relax\s@becarre{3}\fi
-\fi
-}%
- %\check
-\def\w@sharps{%
-\ifnum\sign>0\relax\s@dieze{10}\else\ifnum\o@sign>0\relax\s@becarre{10}\fi
-\fi
-\ifnum\sign>1\relax\s@dieze{7}\else\ifnum\o@sign>1\relax\s@becarre{7}\fi\fi
-\ifnum\sign>2\relax\s@dieze{11}\else\ifnum\o@sign>2\relax\s@becarre{11}\fi
-\fi
-\ifnum\sign>3\relax\s@dieze{8}\else\ifnum\o@sign>3\relax\s@becarre{8}\fi\fi
-\ifnum\sign>4\relax\s@dieze{5}\else\ifnum\o@sign>4\relax\s@becarre{5}\fi\fi
-\ifnum\sign>5\relax\s@dieze{9}\else\ifnum\o@sign>5\relax\s@becarre{9}\fi\fi
-\ifnum\sign>6\relax\s@dieze{6}\else\ifnum\o@sign>6\relax\s@becarre{6}\fi\fi
-}%
- %\check
-\def\s@bemol#1{\global\n@iii=#1\relax
- \p@bedieze\global\advance\y@iii by \fl@raise\raise\y@iii\hbox to
- 2.08\internote{\def\musicnfont{\musickeyfont}\hss\f@lat\hss}%
-}%
-\def\s@becarre#1{\global\n@iii=#1\relax
- \p@bedieze\global\advance\y@iii by \na@raise\raise\y@iii\hbox to
- 2.08\internote{\def\musicnfont{\musickeyfont}\hss\n@at\hss}%
-}%
-\def\s@dieze#1{\global\n@iii=#1\relax
- \p@bedieze\global\advance\y@iii by \sh@raise\raise\y@iii\hbox to
- 2.16\internote{\def\musicnfont{\musickeyfont}\hss\s@harp\hss}%
-}%
- %
-\def\p@bedieze{\global\advance\n@iii by \ut@ref\relax
- \global\advance\n@iii by \ut@ref\relax
- % cas de la cle de fa
- \ifnum\ut@ref=6\global\advance\n@iii by -14\relax\else
- \ifnum\ut@ref>0\global\advance\n@iii by -7\relax\fi\fi
- \ifnum\n@iii<1\relax\global\advance\n@iii by 7\relax\fi
- \ifnum\n@iii<1\relax\global\advance\n@iii by 7\relax\fi
- \ifnum\n@iii>11\relax\global\advance\n@iii by -7\relax\fi
- \ifnum\n@iii>11\relax\global\advance\n@iii by -7\relax\fi
- \global\y@iii=\n@iii\internote
- \global\advance\y@iii by -2\internote
-}
- %\check
- %
- %\check
- %
-\def\writeclefp#1#2#3#4#5{%
-\n@i=#1\relax
-\ifcase\n@i\singleclef{#2}%
-\or\singleclef{#3}\or\singleclef{#4}\or\singleclef{#5}\fi
-}%
- %
- %\check
-\def\writemeterp#1#2#3#4#5{%
-\n@i=#1\relax
-\ifcase\n@i\hbox{#2}\or\hbox{#3}\or\hbox{#4}\or\hbox{#5}\fi
-}%
- %
- %\check
-\def\writenewclefp#1#2#3#4#5#6#7#8#9{%
-\n@i=#1\relax
-\ifcase\n@i\newsingleclef{#2}{#6}%
-\or\newsingleclef{#3}{#7}\or\newsingleclef{#4}{#8}\or
-\newsingleclef{#5}{#9}\fi
-}%
- %\check
- %
-\def\singleclef#1{%
-\global\n@iii=#1\relax
-\charclef
-}%
- %\check
- %
-\def\Clefdut{\global\advance\n@iii by -3\relax\raise\n@iii\Interligne\clefdut}%
-\def\Clefdefa{\global\advance\n@iii by -6\relax
-\raise\n@iii\Interligne\clefdefa}
- %
-\def\charclef{%
-\ifdim\clef@skip<4.8\Internote\global\clef@skip=4.8\Internote\fi
-\ifcase\n@iii\relax\clefdesol\relax
-\or{\Clefdut}%
-\or{\Clefdut}%
-\or{\Clefdut}%
-\or{\Clefdut}%
-\or{\Clefdefa}%
-\or{\Clefdefa}%
-\fi}%
- %\check
- %
-\def\smallClefdut{\global\advance\n@iii by -3\relax\raise\n@iii
-\Interligne\smallclefdut}%
-\def\smallClefdefa{\global\advance\n@iii by -6\relax\raise\n@iii
-\Interligne\smallclefdefa}%
-\def\smallcharclef{%
-\ifdim\clef@skip<4.8\Internote\global\clef@skip=4.8\Internote\fi
-\ifcase\n@iii\relax\smallclefdesol\relax
-\or{\smallClefdut}%
-\or{\smallClefdut}%
-\or{\smallClefdut}%
-\or{\smallClefdut}%
-\or{\smallClefdefa}%
-\or{\smallClefdefa}%
-\fi}%
- %\check
-\def\newsingleclef#1#2{%
-\global\n@iii=#1\relax
-\n@ii=#2\relax
-\ifnum\n@ii=\n@iii\relax\else\smallcharclef
-\fi}%
- %\check
-\def\writeclefi{\selectinstr
-{\p@loop
- \edef\w@call{\noexpand\writeclefp{\noexpand\noportee}\the\cleftoks}%
- \setbox\toks@box=\hbox{\w@call{}{}{}{}}%
- \ifdim\clef@skip<\wd\toks@box \global\clef@skip=\wd\toks@box\fi
- \raise\altportee\rlap{\box\toks@box}\n@portee
- \repeat}%
-}%
- %\check
-\def\writenewclefi{\selectinstr{\p@loop
- \edef\w@call{\noexpand\writenewclefp{\noexpand\noportee}\the\cleftoks\the
-\o@cks}%
-\setbox\toks@box=\hbox{\w@call{}{}{}{}}%
-\ifdim\clef@skip<\wd\toks@box \global\clef@skip=\wd\toks@box\fi
- \raise\altportee\rlap{\box\toks@box}\n@portee\repeat}%
-}%
- %\check
- % minuscule: une seule barre
- % majuscule: double barre
-\def\changecontexte{\changecontext}%
-\def\Changecontexte{\Changecontext}%
- %
-\def\changecontext{\gluebrule\newbar\nobreak\updatecontext}%
-\def\pchangecontext{\gluebrule\newbar\nobreak\p@updatecon}%
-\def\lchangecontext{\gluebrule\newbar\nobreak\l@updatecon}%
- %\check
-\def\Changecontext{\setdoublebar\changecontext}%
-\def\pChangecontext{\setdoublebar\pchangecontext}%
-\def\lChangecontext{\setdoublebar\lchangecontext}%
- %
- % write colons on all staffs (a part of [left][right]repeat symbols
- %
-\def\wrcolons{\w@colons}%
-\def\w@colons{\nobreak\hskip 0.8\Internote\nobreak
- \n@loop \w@coli\repeat
- \nobreak\hskip 0.8\Internote\nobreak}%
- %
- %\check
- %
-\def\n@updatecon{% imprime tout ce qui est nouveau
-\nobreak\writenewclefs
-\nobreak\writenewsignatures\nobreak\setnormalhyphen\-\writemeters\zgluearule
-\save@all}%
- %
-\def\x@updatecon{% imprime tout ce qui est nouveau
-\nobreak\writenewclefs\nobreak\wbarno@x
-\nobreak\writenewsignatures\nobreak\writemeters\ygluearule
-\save@all}%
- %
-\def\l@updatecon{\nobreak\writenewclefs\nobreak\writenewsignatures
-\z@suspend\reprmorceau}%
- %
-\def\p@updatecon{\nobreak\writenewclefs\nobreak\writenewsignatures
-\z@suspend\preprmorceau}%
- %
- %\check
- %
-\def\n@leftrepeat{\gluebrule
-\nobreak\writenewclefs
-\discretionary{\newbar}%
- %\check 1
-{\hbox{\portees\writeclefs\everystaff\Writesignatures}%
-\l@eftrepeat\hbox{\writemeters}}%
- %\check 1
-{\l@eftrepeat}\nobreak\writemeters\zgluearule
-\save@all\setnormalhyphen}%
- %
- %\check
- %
-\def\n@leftrightrepeat{\gluebrule
-\nobreak\writenewclefs
- %
-\discretionary{\setrightrepeat\newbar}%
- %\check 1
-{\hbox{\portees\writeclefs\everystaff\Writesignatures
-\l@eftrepeat\writemeters}}%
- %\check 1
-{\l@eftrightrepeat}\nobreak\writemeters\zgluearule
-\save@all\setnormalhyphen}%
- %
-\def\t@leftrepeat{\c@ountbar
- \ifnum\barsinline<\maxbarsinline\relax\setleftrepeat\x@barre
-\else
- \c@ountline
- \ifnum\linesinpage<\maxlinesinpage\l@leftrepeat
- \else\p@leftrepeat
-\fi\fi}%
- %
- %\check
- %
-\def\t@leftrightrepeat{\c@ountbar
- \ifnum\barsinline<\maxbarsinline\relax\setleftrightrepeat\x@barre
-\else
- \c@ountline
- \ifnum\linesinpage<\maxlinesinpage\l@leftrightrepeat
- \else\p@leftrightrepeat
-\fi\fi}%
- %
- %\check
- %
-\def\l@leftrepeat{\suspmorceau
- \reprmorceau\l@eftrepeat}%
- %
-\def\p@leftrepeat{\suspmorceau
- \preprmorceau\l@eftrepeat}%
- %
- %\check
- %
-\def\l@leftrightrepeat{\setrightrepeat\suspmorceau
- \reprmorceau\l@eftrepeat}%
- %
-\def\p@leftrightrepeat{\setrightrepeat\suspmorceau
- \preprmorceau\l@eftrepeat}%
- %
-\def\Changeclef{\Changeclefs}\def\Changeclefs{%
-\gluebrule\thinvrule\nobreak\hskip 1.2\Internote\nobreak\newbar
-\nobreak\writenewclefs\saveclefs}%
- %\check
-\def\changeclefs{\termskip\writenewclefs\saveclefs}%
-\def\zchangeclefs{\termskip\zwritenewclefs\saveclefs}%
- %\check
- %**************************************************************************
- % les notes proprement dites
- %**************************************************************************
-\def\vnotes#1\elemskip{\noteskip=#1\elemskip \n@otes}%
-\def\hardnotes#1\notes{\noteskip=#1\relax \n@otes}
-\def\znotes{\noteskip=\z@\n@otes}%
-\def\multnoteskip#1{\noteskip=#1\noteskip\relax}%
-\def\scalenoteskip{1.0}%
- %
- %\check
- %
-\def\enotes{\e@notes}%
- %
-\newdimen\n@skip
-\def\skip@n{\hskip \n@skip}%
-\def\skip@b{\hskip \brace@w\global\advance\x@skip by\brace@w}%
- %
-\def\upd@sk{\nobreak\skip@n\global\advance\x@skip by\n@skip\nobreak}%
- %
-\def\nextstaff{\endstaff\beginstaff}%
-\def\nextinstrument{\endinstrument\begininstrument}%
- %
-\def\n@otes{\def|{\nextstaff}\def&{\nextinstrument}\normaltranspose=\transpose
-\multnoteskip{\scalenoteskip}\check@nopen
-\global\advance\notes@open by 1\relax\upd@sk
-\def\rq{\rq@}\def\lq{\lq@}\def\ds{\demisoupir}\relax
-\locx@skip=\x@skip
-\global\n@skip=\noteskip
-\global\noinstrument=0\relax
-\begininstrument}%
- %
- %\check
-\def\begininstrument{\global\advance\noinstrument by 1\relax
-\selectinstr\resetstem
-\ifdim\internote<0.76\Internote\csname set@tinynotesize\endcsname
- \computespecifics
-\else\ifdim\internote<0.95\Internote\csname set@smallnotesize\endcsname
- \computespecifics
- \else\csname currentsize\endcsname\fi
-\fi
-\global\noportee=0\relax\beginstaff
-}%
- %\check
- %
-\def\endinstrument{\endstaff}%
- %\check
- %
-\def\beginstaff{\alt@comp
- \n@portee
- \edef\get@ref{\noexpand\get@refs\the\cleftoks{}{}{}{}}\relax\get@ref
- \setbox\n@otebox=\hbox\bgroup\computeqn@w
- \locx@skip=\x@skip }%
- %\check
- %
-\def\endstaff{\egroup
- \ifdim\n@skip<\wd\n@otebox \global\n@skip=\wd\n@otebox
- \fi
- \nobreak\raise\altportee\rlap{\unhbox\n@otebox}\nobreak}%
- %
- %\check
- %
-\def\e@notes{\global\notes@open=0\relax\endinstrument
-\ifdim\n@skip<\noteskip \showthe\noteskip\showthe\n@skip
-\global\n@skip=\noteskip
-\fi}%
- %
- %\check
- %
-\def\shortstems{\def\stemfactor{4.00}}
-\def\normalstems{\def\stemfactor{4.66}}
-\normalstems
- % queue de note vers le bas
-\def\p@tail{\global\advance\st@bot by -\stemfactor\interbeam\global\stem@skip=\z@
-\minst@bot\pd@tail}%
- % queue de note vers le haut
-\def\d@tail{\global\advance\st@top by \stemfactor\interbeam\maxst@top\pd@tail}%
-\def\minst@bot{\global\advance\st@bot by -\altportee
- \ifdim\st@bot>2\Interligne \global\st@bot=2\Interligne\fi
- \global\advance\st@bot by \altportee}
-\def\maxst@top{\global\advance\st@top by -\altportee
- \ifdim\st@top<2\Interligne \global\st@top=2\Interligne\fi
- \global\advance\st@top by \altportee}
- %
- %\check
- %\def\pd@tail{\global\advance\st@top by -\st@bot
- % \ifdim\st@top>\p@\global\advance\st@bot by -\altportee
- % \raise\st@bot\rlap{\kern\stem@skip\vrule height\st@top width \lthick}\fi
- % \resetstem}%
- %\check
-\def\pd@tail{\ifdim\st@top>\st@bot
- \global\advance\st@bot by -\altportee
- \global\advance\st@top by -\altportee
- \kern\stem@skip
- \vrule height\st@top depth -\st@bot width \lthick
- \kern-\stem@skip
- \kern-\lthick
-\fi \resetstem}%
- %\check
-\def\resetstem{\global\st@bot=99cm\global\st@top=-\st@bot}%
- %
-\def\setstem{{\advance\y@i by -\n@raise \advance\y@i by \altportee
-\ifdim\st@bot>\y@i\global\st@bot=\y@i\fi
-\ifdim\st@top<\y@i\global\st@top=\y@i\fi}}%
- %
- %\check
- %
- % sequence de placement d'un caractere a une position dans la portee
-\def\pl@note{\pl@base \advance\y@i by \n@raise}%
-\def\pl@base{\y@i=\n@i\internote}%
- %
- % lignes supplementaires pour \n@i (position)
- %
-\newcount\h@lnlv
-\newdimen\hlp@width
-\newdimen\h@lineup
-\newdimen\h@linedn
- %\def\h@linei{\raise\h@lnlv\internote
- % \llap{\vdlthick width 1.6\hlp@width height \hlthick
- % \kern -1.3\hlp@width}}%
-\def\h@linei{\h@lineup=\h@lnlv\internote
-\h@linedn=\h@lineup
-\advance\h@lineup by \hlthick
-\advance\h@linedn by -\hlthick
-\kern -0.3\hlp@width
-\vrule height \h@lineup depth -\h@linedn width 1.6\hlp@width
-\kern -1.3\hlp@width}%
- %\check
- %
-\def\h@linesqn{\h@lines{\qn@width}}%
-\def\adv@locx@mqn{\advance\locx@skip by -\qn@width}%
- %
-\def\h@lines#1{%
-\ifnum\stafflinesnb>3 % no help lines for percussion instruments
- \hlp@width=#1\h@lnlv=0\relax
- \loop\advance\h@lnlv by -1\relax
- \ifnum\n@i<\h@lnlv\relax\advance\h@lnlv by -1\relax
- \ifnum\h@lnlv<-20\relax\showthe\h@lnlv\fi
- \h@linei\repeat
-% \h@lnlv=8\relax
-\h@lnlv=\stafflinesnb\relax
-\advance\h@lnlv\stafflinesnb\relax
-\advance\h@lnlv -2\relax
-\loop\advance\h@lnlv by 1\relax
- \ifnum\n@i>\h@lnlv\relax\advance\h@lnlv by 1\relax
- \ifnum\h@lnlv>30\relax\showthe\h@lnlv\fi
- \h@linei\repeat
-\fi}%
- %\check
- % *********** les symboles de notes ou assimiles ****************
- %
- % placement
- %
-\newcount\inh@alt
-\def\getn@i{\global\inh@alt=0\relax\xgetn@i}%
- %
-\def\inhgetn@i{\global\inh@alt=1\relax\xgetn@i}%
- %
-\def\xgetn@i#1{\n@i=9999\relax % par defaut
-\edef\t@ruc{\f@tok #1\noexpand\relax\af@tok}\ifcat a\t@ruc\relax
-\getn@iletter{#1}%
-\else\getn@inonlet{#1}% \ifcat pas lettre
-\fi\global\n@raise=\z@}% %
-\def\getn@inonlet#1{\edef\ss@uite{}\edef\s@uite{\s@tok #1{}\af@tok}%
-\edef\alt@suite{}\ifcat 1\t@ruc\relax
-\t@rucfig{#1}% cas active character dont chiffre
-\else\t@rucexpcar{#1}%
-\fi\alt@suite}% fi du \ifcat 1
- %\check
- % analysis of accidentals within collective note coding
-\def\absoluteaccidentals{\def\Xna{\na}\def\Xsh{\sh}\def\Xfl{\fl}%
-\def\Xdsh{\dsh}\def\Xdfl{\dfl}}%
-\absoluteaccidentals
- %
-\def\t@rucexpcar#1{\if ^\t@ruc\relax
- \edef\alt@suite{\ifnum
- \inh@alt=0\relax\noexpand\Xsh{\s@uite}\fi
- \noexpand\getn@i{\s@uite}}\fi
- \if _\t@ruc\relax
- \edef\alt@suite{\ifnum
- \inh@alt=0\relax\noexpand\Xfl{\s@uite}\fi
- \noexpand\getn@i{\s@uite}}\fi}%
- %\check
-\def\t@rucfig#1{\if=\t@ruc\relax
- \edef\alt@suite{\ifnum
- \inh@alt=0\relax\noexpand\Xna{\s@uite}\fi
- \noexpand\getn@i{\s@uite}}\fi
-\if*\t@ruc\relax
- \sk
- \edef\alt@suite{\noexpand\getn@i{\s@uite}}\fi
-\if.\t@ruc\relax
- \edef\alt@suite{\ifnum
- \inh@alt=0\relax\noexpand\pt{\s@uite}\fi
- \noexpand\getn@i{\s@uite}}\fi
-\if>\t@ruc\relax
- \edef\alt@suite{\ifnum
- \inh@alt=0\relax\noexpand\Xdsh{\s@uite}\fi
- \noexpand\getn@i{\s@uite}}\fi
-\if<\t@ruc\relax
- \edef\alt@suite{\ifnum
- \inh@alt=0\relax\noexpand\Xdfl{\s@uite}\fi
- \noexpand\getn@i{\s@uite}}\fi
-\if!\t@ruc\relax
- \transpose=\normaltranspose\relax
- \edef\alt@suite{\noexpand\getn@i{\s@uite}}\fi
-\if'\t@ruc\relax
- \advance\transpose by 7\relax
- \edef\alt@suite{\noexpand\getn@i{\s@uite}}\fi
-\if`\t@ruc\relax
- \advance\transpose by -7\relax
- \edef\alt@suite{\noexpand\getn@i{\s@uite}}%
-\else \if -\t@ruc\relax\n@i=#1\relax\fi
- \if 1\t@ruc\relax\n@i=#1\relax\fi
- \if 2\t@ruc\relax\n@i=#1\relax\fi
- \if 3\t@ruc\relax\n@i=#1\relax\fi
- \if 4\t@ruc\relax\n@i=#1\relax\fi
- \if 5\t@ruc\relax\n@i=#1\relax\fi
- \if 6\t@ruc\relax\n@i=#1\relax\fi
- \if 7\t@ruc\relax\n@i=#1\relax\fi
- \if 8\t@ruc\relax\n@i=#1\relax\fi
- \if 9\t@ruc\relax\n@i=#1\relax\fi
- \if 0\t@ruc\relax\n@i=#1\relax\fi
-\fi}%
- %\check
- %
-\def\getn@iletter#1{\n@i=\expandafter`\t@ruc\relax
-\ifnum\n@i >96\relax \advance\n@i by -101\relax % ramener au E (position
- % zero en clef de sol, ut@ref=0)
-\else\advance\n@i by -83\relax % ramener au S= E + 14
-\fi
-\advance\n@i by \ut@ref\relax
-\advance\n@i by \ut@ref\relax
-\advance\n@i by \transpose\relax
-\edef\s@uite{\s@tok #1{}\af@tok}\edef\ss@uite{\noexpand\n@fon{\s@uite}}}%
- %\check
- %
-\def\pt@raise{\ifodd\n@i\relax\pt@up=-0.1\Interligne\else\pt@up
-=0.3\Interligne\fi
-\advance\pt@up by -\n@raise\raise\pt@up}%
- %
-\def\lcharnote#1#2{\getn@i{#1}\pl@llap{#2}}%
-\def\ccharnote#1#2{\getn@i{#1}\pl@lrlap{#2}}%
- %
-\def\bigaccid{\def\small@test{\noteskip>-1\p@}}%
-\def\smallaccid{\def\small@test{\noteskip>9999\p@}}%
-\def\varaccid{\def\small@test{\noteskip>1.9\qn@width}}%
-\def\k@eiqdskip{\kern 0.8\qd@skip}
-\def\k@meiqdskip{\kern -0.8\qd@skip}
- %
-\varaccid % accidents de taille variable
- %\check
-\def\lfl#1{\getn@i{#1}\global\n@raise=\fl@raise
- \pl@llap{\ifdim\small@test\f@lat\else\smallf@lat\fi\k@eiqdskip}}%
- %\check
-\def\ldfl#1{\getn@i{#1}\global\n@raise=\fl@raise
- \pl@llap{\ifdim\small@test\df@lat\else\smalldf@lt\fi\k@eiqdskip}}%
- %\check
-\def\lsh#1{\getn@i{#1}\global\n@raise=\sh@raise
- \pl@llap{\ifdim\small@test\s@harp\else\smalls@harp\fi\k@eiqdskip}}%
-\def\ldsh#1{\getn@i{#1}\global\n@raise=\z@
- \pl@llap{\ifdim\small@test\ds@harp\else\smallds@harp\fi\k@eiqdskip}}%
- %\check
-\def\lna#1{\getn@i{#1}\global\n@raise=\na@raise
- \pl@llap{\ifdim\small@test\n@at\else\smalln@at\fi\k@eiqdskip}}%
- %\check
-\def\pl@llap{\pl@note\raise\y@i\llap}%
-\def\pl@lrlap{\pl@note\raise\y@i\lrlap}%
-\def\lrlap#1{\rlap{\hss#1}}%
-\def\uplap#1{\vbox to\z@{\vss#1}}
- %**************** notes (sans queue) *******************
- %
-\def\xcharnote#1#2#3{\getn@i{#2}\pl@base
- \raise\y@i\hbox to #1{#3\hss}\advance\locx@skip by #1\relax}%
- %\check
- %
-\def\raise@note{\advance\locx@skip by\noteskip\raise\y@i\hbox to \noteskip}%
- %
- % rondes sous diverses formes
- %
- % ronde decalee a gauche (sans avance)
-\def\lw#1{\kern -\wd@skip\zw{#1}\kern \wd@skip}%
- %
- % ronde decalee a droite (sans avance)
-\def\rw#1{\kern \wd@skip\zw{#1}\kern -\wd@skip}%
- %\check
- % ronde sans avance
-\def\zw#1{\getn@i{#1}\def\n@fon{\zw}\def\n@sym{\w@h}\g@zw}%
-\def\zwp#1{\getn@i{#1}\def\n@fon{\zwp}\def\n@sym{\w@hp}\g@zw}%
-\def\zwpp#1{\getn@i{#1}\def\n@fon{\zwpp}\def\n@sym{\w@hpp}\g@zw}%
-\def\zwppp#1{\getn@i{#1}\def\n@fon{\zwppp}\def\n@sym{\w@hppp}\g@zw}%
-\def\g@zw{\advancefalse\g@w}%
- %\check
- %
-\def\phpause{\hbox to \noteskip{\vrule width
- 1.2\qn@width height \internote\hss}}%
-\def\pause{\hbox{\raise 5\internote\phpause}\advance\locx@skip by \noteskip}%
-\def\hpause{\hbox{\raise 4\internote\phpause}\advance\locx@skip by \noteskip}%
-\def\demisoupir{\hbox to \noteskip{\d@soup\hss}\advance\locx@skip by \noteskip}%
-\def\qp{\hbox to \noteskip{\s@oupir\hss}\advance\locx@skip by \noteskip}%
-\def\soupir{\qp}%
-\def\dsoupir{\demisoupir}%
- % quart de soupir
-\def\qs{\hbox to \noteskip{\q@soup\hss}%
-\advance\locx@skip by \noteskip}%
-\def\qsoupir{\qs}%
-\def\quartsoupir{\qs}%
- % huitieme de soupir
-\def\hs{\hbox to \noteskip{\h@soup\hss}%
-\advance\locx@skip by \noteskip}%
-\def\hsoupir{\hs}%
-\def\huitsoupir{\hs}%
- % seizieme de soupir
-\def\qqs{\hbox to \noteskip{\s@soup\hss}%
-\advance\locx@skip by \noteskip}%
-\def\seizsoupir{\qqs}%
- %\check
-\def\pl@noteq{\pl@note \setstem
- \ifdim\noteskip>\z@
- \ifdim\st@bot<29cm
- \s@tem
- \fi
- \fi
-}%
- %
-\def\Ped{{\cmsy P\kern -1\p@\it ed.}}%
-\def\PED{\rlap{\zcharnote{-5}{\kern -2\p@\Ped}}}%
-\def\DEP{\rlap{\zcharnote{-7}{\kern 0.5\noteskip\kern -4\p@\moyen *}}}%
- %\check
-\def\pl#1{\zcharnote{#1}{\raise 2\p@ \rlap{\ttyeight +}}}%
-\def\pointdorgue#1{\zcharnote{#1}{\raise \Interligne\p@orgue}}%
-\def\pointdurgue#1{\zcharnote{#1}{\raise-\Interligne\p@urgue}}%
-\def\ntrille#1#2{\zcharnote{#1}{\trille{#2\elemskip}}}%
-\def\nTrille#1#2{\zcharnote{#1}{\Trille{#2\elemskip}}}%
-\def\xtrille#1#2{\zcharnote{#1}{\trille{#2}}}%
-\def\xTrille#1#2{\zcharnote{#1}{\Trille{#2}}}%
- %
-\def\pt#1{\inhgetn@i{#1}\def\n@fon{\pt}\def\n@sym{\z@p}\g@pt}
-\def\ppt#1{\inhgetn@i{#1}\def\n@fon{\ppt}\def\n@sym{\z@pp}\g@pt}
-\def\pppt#1{\inhgetn@i{#1}\def\n@fon{\pppt}\def\n@sym{\z@ppp}\g@pt}
-\def\g@pt{\n@raiseq \pl@note\raise\y@i\rlap{\n@sym}\fi}%
- %
-\def\n@raiseq{\global\n@raise=\qu@raise\ifnum\n@i<100\relax}
- %
- %\check
- %
- % blanche sans queue decalee a gauche
- % blanche pointee sans queue
- % blanche decalee a gauche
-\def\lh#1{\kern -\hd@skip\zh{#1}\kern \hd@skip}%
- % blanche decalee a droite sans queue
-\def\rh#1{\kern \hd@skip\zh{#1}\kern -\hd@skip}%
- % blanche sans queue ni avance
-\def\zh#1{\getn@i{#1}\def\n@fon{\zh}\def\n@sym{\h@a}\g@zh}
-\def\zhp#1{\getn@i{#1}\def\n@fon{\zhp}\def\n@sym{\h@ap}\g@zh}
-\def\zhpp#1{\getn@i{#1}\def\n@fon{\zhpp}\def\n@sym{\h@app}\g@zh}
-\def\zhppp#1{\getn@i{#1}\def\n@fon{\zhppp}\def\n@sym{\h@appp}\g@zh}
-\def\g@zh{\global\n@raise=\ha@raise\global\n@width=\hn@width\g@z}%
-\def\g@z{\ifnum\n@i<100\relax
- \h@lines{\n@width}\pl@note\setstem\rlap@symss\fi}%
- %
- % noires sans queues
- %
-\def\zq#1{\getn@i{#1}\def\n@fon{\zq}\def\n@sym{\q@u}\g@zq}
-\def\zqp#1{\getn@i{#1}\def\n@fon{\zqp}\def\n@sym{\q@up}\g@zq}
-\def\zqpp#1{\getn@i{#1}\def\n@fon{\zqpp}\def\n@sym{\q@upp}\g@zq}
-\def\zqppp#1{\getn@i{#1}\def\n@fon{\zqppp}\def\n@sym{\q@uppp}\g@zq}
-\def\g@zq{\global\n@raise=\qu@raise\global\n@width=\qn@width\g@z}%
- %
- %\check
-\def\rq@#1{\kern \qd@skip\zq{#1}\kern -\qd@skip}%
-\def\lq@#1{\kern -\qd@skip\zq{#1}\kern \qd@skip}%
- % *********************** notes avec queue **********************
- %
- %\check
-\def\qu{\advancetrue\qu@z}%
-\def\qup{\advancetrue\qup@z}%
-\def\qupp{\advancetrue\qupp@z}%
-\def\quppp{\advancetrue\quppp@z}%
-\def\qu@z#1{\getn@i{#1}\def\n@fon{\qu}\def\n@sym{\q@u}\g@qu}%
-\def\qup@z#1{\getn@i{#1}\def\n@fon{\qup}\def\n@sym{\q@up}\g@qu}%
-\def\qupp@z#1{\getn@i{#1}\def\n@fon{\qupp}\def\n@sym{\q@upp}\g@qu}%
-\def\quppp@z#1{\getn@i{#1}\def\n@fon{\quppp}\def\n@sym{\q@uppp}\g@qu}%
- %\check
-\def\g@qu{\n@raiseq
- \global\stem@skip=\qd@skip\def\s@tem{\d@tail}\g@qbh@\fi}%
- %
-\def\q@up{\hbox to \qn@width{\q@u\hss}\P@t}%
-\def\q@upp{\hbox to \qn@width{\q@u\hss}\PP@t}%
-\def\q@uppp{\hbox to \qn@width{\q@u\hss}\PPP@t}%
-\def\h@ap{\hbox to \hn@width{\h@a\hss}\P@t}%
-\def\h@app{\hbox to \hn@width{\h@a\hss}\PP@t}%
-\def\h@appp{\hbox to \hn@width{\h@a\hss}\PPP@t}%
-\def\w@hp{\hbox to \wn@width{\w@h\hss}\P@t}%
-\def\w@hpp{\hbox to \wn@width{\w@h\hss}\PP@t}%
-\def\w@hppp{\hbox to \wn@width{\w@h\hss}\PPP@t}%
- %
-\def\z@p{\kern \qn@width\P@t}\def\z@pp{\kern \qn@width\PP@t}%
-\def\z@ppp{\kern \qn@width \PPP@t}%
- %\check
-\def\rqu#1{\getn@i{#1}\def\n@fon{\qu}\def\n@sym{\kern \qd@skip\q@u}%
- \n@raiseq
- \kern \qd@skip \h@linesqn\kern -\qd@skip
- \global\stem@skip=\qd@skip\def\s@tem{\d@tail}\pl@symss\fi}%
- %\check
- % noire queue en haut sans avance
-\def\zqu{\advancefalse\qu@z}%
-\def\zqup{\advancefalse\qup@z}%
-\def\zqupp{\advancefalse\qupp@z}%
-\def\zquppp{\advancefalse\quppp@z}%
- %
- % espace vide d'une note
-\def\off#1{\advance\locx@skip by #1\kern #1}%
-\def\sk{\off\noteskip}%
-\def\qsk{\off\qn@width}%
-\def\hqsk{\off{0.5\qn@width}}%
-\def\hsk{\off\hn@width}%
- \def\offs@t#1{\off{-\s@o@}#1\off\s@o@}
-\def\loffset#1{\edef\s@o@{#1\qn@width}\offs@t}
-\def\roffset#1{\edef\s@o@{-#1\qn@width}\offs@t}
-\def\roff{\roffset 1}
-\def\loff{\loffset 1}
-%\check
-\def\lqu#1{\kern -\qd@skip\zqu{#1}\kern \qd@skip}%
- %\check
- % noires queue en base
-\def\ql{\advancetrue\ql@z}%
-\def\qlp{\advancetrue\qlp@z}%
-\def\qlpp{\advancetrue\qlpp@z}%
-\def\qlppp{\advancetrue\qlppp@z}%
-\def\ql@z#1{\getn@i{#1}\def\n@fon{\ql}\def\n@sym{\q@u}\g@ql}%
-\def\qlp@z#1{\getn@i{#1}\def\n@fon{\qlp}\def\n@sym{\q@up}\g@ql}%
-\def\qlpp@z#1{\getn@i{#1}\def\n@fon{\qlpp}\def\n@sym{\q@upp}\g@ql}%
-\def\qlppp@z#1{\getn@i{#1}\def\n@fon{\qlppp}\def\n@sym{\q@uppp}\g@ql}%
-\def\g@ql{\n@raiseq
- \def\s@tem{\p@tail}\g@qbh@\fi}%
- %
- % la meme sans avance
-\def\zql{\advancefalse\ql@z}%
-\def\zqlp{\advancefalse\qlp@z}%
-\def\zqlpp{\advancefalse\qlpp@z}%
-\def\zqlppp#1{\advancefalse\qlppp@z}%
- %\check
- % decalees a gauche et a droite
-\def\lql#1{\kern -\qd@skip\zql{#1}\kern \qd@skip}%
-\def\rql#1{\kern \qd@skip\zql{#1}\kern -\qd@skip}%
- %
- % croches, doubles croches, triples croches, quadruple croches queue en
- % haut et en bas
- %
-\def\clp{\advancetrue\mclp1}\def\cup{\advancetrue\mcup1}%
-\def\clpp{\advancetrue\mclpp1}\def\cupp{\advancetrue\mcupp1}%
-\def\clppp{\advancetrue\mclppp1}\def\cuppp{\advancetrue\mcuppp1}%
- %
-\def\zclp{\advancefalse\mclp1}\def\zcup{\advancefalse\mcup1}%
-\def\zclpp{\advancefalse\mclpp1}\def\zcupp{\advancefalse\mcupp1}%
-\def\zclppp{\advancefalse\mclppp1}\def\zcuppp{\advancefalse\mcuppp1}%
- %
-\def\cu{\advancetrue\mcu1}\def\ccu{\advancetrue\mcu2}
-\def\cccu{\advancetrue\mcu3}\def\ccccu{\advancetrue\mcu4}%
-\def\cl{\advancetrue\mcl1}\def\ccl{\advancetrue\mcl2}
-\def\cccl{\advancetrue\mcl3}\def\ccccl{\advancetrue\mcl4}%
- %
-\def\zcu{\advancefalse\mcu1}\def\zccu{\advancefalse\mcu2}%
-\def\zcccu{\advancefalse\mcu3}\def\zccccu{\advancefalse\mcu4}%
-\def\zcl{\advancefalse\mcl1}\def\zccl{\advancefalse\mcl2}%
-\def\zcccl{\advancefalse\mcl3}\def\zccccl{\advancefalse\mcl4}%
- %
-\def\mcu#1#2{\getn@i{#2}\def\n@sym{\q@u}%
-\edef\n@fon{\noexpand\mcu #1}\g@cu{#1}}
-\def\mcup#1#2{\getn@i{#2}\def\n@sym{\q@up}%
-\edef\n@fon{\noexpand\mcup #1}\g@cu{#1}}
-\def\mcupp#1#2{\getn@i{#2}\def\n@sym{\q@upp}%
-\edef\n@fon{\noexpand\mcupp #1}\g@cu{#1}}
-\def\mcuppp#1#2{\getn@i{#2}\def\n@sym{\q@uppp}%
-\edef\n@fon{\noexpand\mcupp #1}\g@cu{#1}}
-\def\g@cu#1{\n@raiseq
- \h@linesqn\global\stem@skip=\qd@skip
- \def\s@tem{\d@cr#1}\pl@symssq\fi}%
-\def\mcl#1#2{\getn@i{#2}\def\n@sym{\q@u}%
-\edef\n@fon{\noexpand\mcl #1}\g@cl{#1}}
-\def\mclp#1#2{\getn@i{#2}\def\n@sym{\q@up}%
-\edef\n@fon{\noexpand\mclp #1}\g@cl{#1}}
-\def\mclpp#1#2{\getn@i{#2}\def\n@sym{\q@upp}%
-\edef\n@fon{\noexpand\mclpp #1}\g@cl{#1}}
-\def\mclppp#1#2{\getn@i{#2}\def\n@sym{\q@uppp}%
-\edef\n@fon{\noexpand\mclppp #1}\g@cl{#1}}
-\def\g@cl#1{\n@raiseq
- \h@linesqn\def\s@tem{\p@cr#1}\pl@symssq\fi}%
- %
- % ronde
-\def\wh#1{\getn@i{#1}\def\n@fon{\wh}\def\n@sym{\w@h}\g@wh}%
-\def\whp#1{\getn@i{#1}\def\n@fon{\whp}\def\n@sym{\w@hp}\g@wh}%
-\def\whpp#1{\getn@i{#1}\def\n@fon{\whpp}\def\n@sym{\w@hpp}\g@wh}%
-\def\whppp#1{\getn@i{#1}\def\n@fon{\whppp}\def\n@sym{\w@hppp}\g@wh}%
-\def\g@wh{\advancetrue\g@w}%
-\def\g@w{\global\n@raise=\wh@raise\ifnum\n@i<100\relax
- \h@lines{\wn@width}\def\s@tem{\resetstem}\pl@symssq\fi}%
- %\check
-\def\zwh#1{\getn@i{#1}\def\n@fon{\wh}\def\n@sym{\w@h}\rlap{\g@wh}}%
- %
- % blanche sans queue isolee
-\def\nh#1{\getn@i{#1}\def\n@fon{\nh}\def\n@sym{\h@a}\g@nh}%
-\def\g@nh{\advancetrue\g@nhz}%
-\def\g@nhz{\global\n@raise=\ha@raise\ifnum\n@i<100\relax
- \h@lines{\hn@width}\def\s@tem{\resetstem}\pl@symssq\fi}%
-\def\znh#1{\getn@i{#1}\def\n@fon{\nh}\def\n@sym{\h@a}\rlap{\g@nhz}}%
- %
- % noiree sans queue isolee
-\def\nq#1{\getn@i{#1}\def\n@fon{\nq}\def\n@sym{\q@u}\g@nq}%
-\def\g@nq{\advancetrue\g@nqz}%
-\def\g@nqz{\global\n@raise=\qu@raise\ifnum\n@i<100\relax
- \h@lines{\hn@width}\def\s@tem{\resetstem}\pl@symssq\fi}%
-\def\znq#1{\getn@i{#1}\def\n@fon{\nq}\def\n@sym{\q@u}\rlap{\g@nqz}}%
- %
- % blanche avec queue
-\def\ha{\hu}%
-\def\hu#1{\getn@i{#1}\def\n@fon{\hu}\def\n@sym{\h@a}\g@hu}%
-\def\hup#1{\getn@i{#1}\def\n@fon{\hup}\def\n@sym{\h@ap}\g@hu}%
-\def\hupp#1{\getn@i{#1}\def\n@fon{\hupp}\def\n@sym{\h@app}\g@hu}%
-\def\huppp#1{\getn@i{#1}\def\n@fon{\huppp}\def\n@sym{\h@appp}\g@hu}%
-\def\g@hu{\advancetrue\g@huz}%
-\def\g@huz{\global\n@raise=\ha@raise\ifnum\n@i<100\relax
- \h@lines{\hn@width}\global\stem@skip=\hd@skip
- \def\s@tem{\d@tail}\pl@symssq\fi}%
- %
- %\check
-\def\rhu#1{\getn@i{#1}\def\n@fon{\hu}\global\n@raise=\ha@raise
-\def\n@sym{\kern \hd@skip\h@a}%
-\ifnum\n@i<100\relax
- \kern \hd@skip
- \h@lines{\hn@width}\kern -\hd@skip
- \global\stem@skip=\hd@skip\def\s@tem{\d@tail}\pl@symss\fi}%
- %\check
- % blanche avec queue sans avance
-\def\zhu#1{\getn@i{#1}\def\n@fon{\hu}\def\n@sym{\h@a}\g@zhu}%
-\def\zhup#1{\getn@i{#1}\def\n@fon{\hup}\def\n@sym{\h@ap}\g@zhu}%
-\def\zhupp#1{\getn@i{#1}\def\n@fon{\hupp}\def\n@sym{\h@app}\g@zhu}%
-\def\zhuppp#1{\getn@i{#1}\def\n@fon{\huppp}\def\n@sym{\h@appp}\g@zhu}%
-\def\g@zhu{\advancefalse\g@huz}%
- %\check
-\def\lhu#1{\kern -\hn@width\zhu{#1}\kern \hn@width}%
- %
- %
- % blanches queue en bas
-\def\hl#1{\getn@i{#1}\def\n@fon{\hl}\def\n@sym{\h@a}\g@hl}%
-\def\hlp#1{\getn@i{#1}\def\n@fon{\hlp}\def\n@sym{\h@ap}\g@hl}%
-\def\hlpp#1{\getn@i{#1}\def\n@fon{\hlpp}\def\n@sym{\h@app}\g@hl}%
-\def\hlppp#1{\getn@i{#1}\def\n@fon{\hlppp}\def\n@sym{\h@appp}\g@hl}%
-\def\g@hl{\advancetrue\g@hlz}%
-\def\g@hlz{\global\n@raise=\ha@raise\ifnum\n@i<100\relax
- \h@lines{\hn@width}\def\s@tem{\p@tail}\pl@symssq\fi}%
- %\check
-\def\zhl#1{\getn@i{#1}\def\n@fon{\hl}\def\n@sym{\h@a}\rlap{\g@zhl}}%
-\def\zhlp#1{\getn@i{#1}\def\n@fon{\hlp}\def\n@sym{\h@ap}\rlap{\g@zhl}}%
-\def\zhlpp#1{\getn@i{#1}\def\n@fon{\hlpp}\def\n@sym{\h@app}\rlap{\g@zhl}}%
-\def\zhlppp#1{\getn@i{#1}\def\n@fon{\hlppp}\def\n@sym{\h@appp}\rlap{\g@zhl}}%
-\def\g@zhl{\advancefalse\g@hlz}%
- %\check
-\def\rhl#1{\kern \hd@skip\zhl{#1}\kern -\hd@skip}%
-\def\lhl#1{\kern -\hn@width\zhl{#1}\kern \hn@width}%
- %\check
- %**************** initialisation de poutres ******************
- % \ibu{0<numero<10}{altitude~note}{pente de -9 a +9}
- % \ibl{0<numero<10}{altitude~note}{pente de -9 a +9}
- %
-\def\selectpoutre#1{{\n@i=#1\relax
- \ifnum\n@i<0\relax\n@i=29\relax\fi
- \advance\n@i by 1\relax
-\xdef\b@x{\csname b@x\romannumeral\n@i\endcsname}%
-\xdef\b@z{\csname b@z\romannumeral\n@i\endcsname}%
-\xdef\bb@x{\csname bb@x\romannumeral\n@i\endcsname}%
-\xdef\bb@z{\csname bb@z\romannumeral\n@i\endcsname}%
-\xdef\bbb@x{\csname bbb@x\romannumeral\n@i\endcsname}%
-\xdef\bbb@z{\csname bbb@z\romannumeral\n@i\endcsname}%
-\xdef\bbbb@x{\csname bbbb@x\romannumeral\n@i\endcsname}%
-\xdef\bbbb@z{\csname bbbb@z\romannumeral\n@i\endcsname}%
-\xdef\bbbbb@x{\csname bbbbb@x\romannumeral\n@i\endcsname}%
-\xdef\bbbbb@z{\csname bbbbb@z\romannumeral\n@i\endcsname}%
-\xdef\b@n{\csname b@n\romannumeral\n@i\endcsname}%
-\xdef\b@p{\csname b@p\romannumeral\n@i\endcsname}}\s@lopdefs}%
- % fin selectpoutre
- %
-\def\ibu#1{\selectpoutre{#1}\i@bu}%
-\def\i@bu#1#2{\ifnum\b@n=0\relax\else\t@bu\fi
- \global\b@n=-1\relax
- \global\b@x=\locx@skip
- \global\advance\b@x by \qd@skip\inhgetn@i{#1}\pl@base
- \global\b@z=\y@i\global\advance\b@z by\altportee\global\b@p=#2\relax
- \global\advance\b@z by 4.333\interbeam}%
- %
-\def\ibl#1{\selectpoutre{#1}\i@bl}%
-\def\i@bl#1#2{\ifnum\b@n=0\relax\else\t@bl\fi
- \global\b@n=1\relax
- \global\b@x=\locx@skip\inhgetn@i{#1}\pl@base
- \global\b@z=\y@i\global\advance\b@z by \altportee\global\b@p=#2\relax
- \global\advance\b@z by -4.333\interbeam}%
- %\check
-\def\ibbu#1{\selectpoutre{#1}\i@bbu}%
-\def\ibbl#1{\selectpoutre{#1}\i@bbl}%
-\def\i@bbu#1#2{\ifnum\b@n=0\relax\i@bu{#1}{#2}\relax\global\advance\b@z by
- \interbeam\fi\n@bbu\relax}%
-\def\i@bbl#1#2{\ifnum\b@n=0\relax\i@bl{#1}{#2}\relax\global\advance\b@z by
- -\interbeam\fi\n@bbl\relax}%
-\def\nbbu#1{\selectpoutre{#1}\ifnum\b@n>-2\relax\ifnum\b@n<2\relax\n@bbu\fi
-\fi}%
-\def\nbbl#1{\selectpoutre{#1}\ifnum\b@n>-2\relax\ifnum\b@n<2\relax\n@bbl\fi
-\fi}%
-\def\n@bbu{\gl@au{\b@n}\global\bb@z=\b@z
- \ifnum\b@n<0\relax\global\advance\bb@z by -\interbeam
- \else \global\advance\bb@z by \interbeam
- \fi
- {\advance\locx@skip by \qd@skip \global\bb@x=\locx@skip
- \advance\locx@skip by -\b@x
- \global\advance\bb@z by \s@lope\locx@skip }}%
- %
-\def\n@bbl{\gl@au{\b@n}\global\bb@x=\locx@skip
- \global\advance\bb@x by \lthick
- \global\bb@z=\b@z\ifnum\b@n<0\relax\global\advance\bb@z by -\interbeam
- \else \global\advance\bb@z by \interbeam \fi
- {\advance\locx@skip by -\b@x
-\global\advance\bb@z by \s@lope\locx@skip }}%
- %\check
-\def\ibbbu#1{\selectpoutre{#1}\i@bbbu}%
-\def\ibbbl#1{\selectpoutre{#1}\i@bbbl}%
-\def\i@bbbu#1#2{\ifnum\b@n=0\relax\i@bbu{#1}{#2}%
-\global\advance\b@z by \interbeam
-\global\advance\bb@z by \interbeam
-\fi\n@bbbu}%
-\def\i@bbbl#1#2{\ifnum\b@n=0\relax\i@bbl{#1}{#2}%
-\global\advance\b@z by -\interbeam
-\global\advance\bb@z by -\interbeam
-\fi\n@bbbl}%
-\def\nbbbu#1{\selectpoutre{#1}\ifnum\b@n=-1\relax\n@bbu\fi\ifnum\b@n
-=1\relax\n@bbu\fi
- \ifnum\b@n=-2\relax\n@bbbu\fi\ifnum\b@n=2\relax\n@bbbu\fi
-}%
-\def\nbbbl#1{\selectpoutre{#1}\ifnum\b@n=-1\relax\n@bbl\fi\ifnum\b@n
-=1\relax\n@bbl\fi
- \ifnum\b@n=-2\relax\n@bbbl\fi\ifnum\b@n=2\relax\n@bbbl\fi
-}%
-\def\n@bbbu{\gl@au{\b@n}\global\bbb@z=\b@z
- \ifnum\b@n<0\relax\global\advance\bbb@z by -2\interbeam
- \else \global\advance\bbb@z by 2\interbeam
- \fi
- {\advance\locx@skip by \qd@skip\global\bbb@x=\locx@skip
- \advance\locx@skip by -\b@x
- \global\advance\bbb@z by \s@lope\locx@skip }}%
- %
-\def\n@bbbl{\gl@au{\b@n}\global\bbb@x=\locx@skip
- \global\advance\bbb@x by \lthick
- \global\bbb@z=\b@z\ifnum\b@n<0\relax\global\advance\bbb@z by
- -2\interbeam
- \else \global\advance\bbb@z by 2\interbeam
- \fi
- {\advance\locx@skip by -\b@x\global\advance\bbb@z by \s@lope\locx@skip }}%
- %\check
- %
-\def\ibbbbu#1{\selectpoutre{#1}\i@bbbbu}%
-\def\ibbbbl#1{\selectpoutre{#1}\i@bbbbl}%
-\def\i@bbbbu#1#2{\ifnum\b@n=0\relax\i@bbbu{#1}{#2}%
-\global\advance\b@z by \interbeam
-\global\advance\bb@z by \interbeam
-\global\advance\bbb@z by \interbeam
-\fi\n@bbbbu}%
-\def\i@bbbbl#1#2{\ifnum\b@n=0\relax\i@bbbl{#1}{#2}%
-\global\advance\b@z by -\interbeam
-\global\advance\bb@z by -\interbeam
-\global\advance\bbb@z by -\interbeam
-\fi\n@bbbbl}%
-\def\nbbbbu#1{\selectpoutre{#1}%
- \ifnum\b@n=-1\relax\n@bbu\fi\ifnum\b@n=1\relax\n@bbu\fi
- \ifnum\b@n=-2\relax\n@bbbu\fi\ifnum\b@n=2\relax\n@bbbu\fi
- \ifnum\b@n=-3\relax\n@bbbbu\fi\ifnum\b@n=3\relax\n@bbbbu\fi
-}%
-\def\nbbbbl#1{\selectpoutre{#1}%
- \ifnum\b@n=-1\relax\n@bbl\fi\ifnum\b@n=1\relax\n@bbl\fi
- \ifnum\b@n=-2\relax\n@bbbl\fi\ifnum\b@n=2\relax\n@bbbl\fi
- \ifnum\b@n=-3\relax\n@bbbbl\fi\ifnum\b@n=3\relax\n@bbbbl\fi
-}%
-\def\n@bbbbu{\gl@au{\b@n}\global\bbbb@z=\b@z
- \ifnum\b@n<0\relax\global\advance\bbbb@z by -3\interbeam
- \else \global\advance\bbbb@z by 3\interbeam
- \fi
- {\advance\locx@skip by \qd@skip \global\bbbb@x=\locx@skip
- \advance\locx@skip by -\b@x
- \global\advance\bbbb@z by \s@lope\locx@skip }}%
- %
-\def\n@bbbbl{\gl@au{\b@n}{\advance\locx@skip by \lthick
- \global\bbbb@x=\locx@skip}\global\bbbb@z=\b@z
- \ifnum\b@n<0\relax\global\advance\bbbb@z by -3\interbeam
- \else \global\advance\bbbb@z by 3\interbeam
- \fi
- {\advance\locx@skip by -\b@x\global\advance\bbbb@z by \s@lope\locx@skip }}%
- %\check
- %
- %
-\def\ibbbbbu#1{\selectpoutre{#1}\i@bbbbbu}%
-\def\ibbbbbl#1{\selectpoutre{#1}\i@bbbbbl}%
-\def\i@bbbbbu#1#2{\ifnum\b@n=0\relax\i@bbbbu{#1}{#2}%
-\global\advance\b@z by \interbeam
-\global\advance\bb@z by \interbeam
-\global\advance\bbb@z by \interbeam
-\global\advance\bbbb@z by \interbeam
-\fi\n@bbbbbu}%
-\def\i@bbbbbl#1#2{\ifnum\b@n=0\relax\i@bbbbl{#1}{#2}%
-\global\advance\b@z by -\interbeam
-\global\advance\bb@z by -\interbeam
-\global\advance\bbb@z by -\interbeam
-\global\advance\bbbb@z by -\interbeam
-\fi\n@bbbbbl}%
-\def\nbbbbbu#1{\selectpoutre{#1}\ifnum\b@n=-1\relax\n@bbu\fi\ifnum\b@n
-=1\relax\n@bbu\fi
- \ifnum\b@n=-2\relax\n@bbbu\fi\ifnum\b@n=2\relax\n@bbbu\fi
- \ifnum\b@n=-3\relax\n@bbbbu\fi\ifnum\b@n=3\relax\n@bbbbu\fi
- \ifnum\b@n=-4\relax\n@bbbbbu\fi\ifnum\b@n=4\relax\n@bbbbbu\fi
-}%
-\def\nbbbbbl#1{\selectpoutre{#1}\ifnum\b@n=-1\relax\n@bbl\fi\ifnum\b@n
-=1\relax\n@bbl\fi
- \ifnum\b@n=-2\relax\n@bbbl\fi\ifnum\b@n=2\relax\n@bbbl\fi
- \ifnum\b@n=-3\relax\n@bbbbl\fi\ifnum\b@n=3\relax\n@bbbbl\fi
- \ifnum\b@n=-4\relax\n@bbbbbl\fi\ifnum\b@n=4\relax\n@bbbbbl\fi
-}%
-\def\n@bbbbbu{\gl@au{\b@n}\global\bbbbb@z=\b@z
- \ifnum\b@n<0\relax\global\advance\bbbbb@z by -4\interbeam
- \else \global\advance\bbbbb@z by 4\interbeam
- \fi
- {\advance\locx@skip by \qd@skip \global\bbbbb@x=\locx@skip
- \advance\locx@skip by -\b@x
- \global\advance\bbbbb@z by \s@lope\locx@skip }}%
- %
-\def\n@bbbbbl{\gl@au{\b@n}{\advance\locx@skip by \lthick
- \global\bbbbb@x=\locx@skip}\global\bbbbb@z=\b@z
- \ifnum\b@n<0\relax\global\advance\bbbbb@z by -4\interbeam
- \else \global\advance\bbbbb@z by 4\interbeam
- \fi
- {\advance\locx@skip by -\b@x\global\advance\bbbbb@z by \s@lope\locx@skip }}%
- %\check
- %
- % terminaison de toutes les poutres en suspens
- %
- %***** terminer une poutre superieure ****************
- %\check
- %
-\def\tbu#1{\selectpoutre{#1}\t@bu}%
-\def\tqh#1{\selectpoutre{#1}\t@qh}%
-\def\tbbu#1{\selectpoutre{#1}\t@bbu}%
-\def\tbbbu#1{\selectpoutre{#1}\t@bbbu}%
-\def\tbbbbu#1{\selectpoutre{#1}\t@bbbbu}%
-\def\tbbbbbu#1{\selectpoutre{#1}\t@bbbbbu}%
- %\check
-\def\t@qh{\t@bu\qh@}%
-\def\t@bu{\ifnum\b@n<-1\relax\t@bbu\fi
-\ifnum\b@n>1\relax\t@bbu\fi
-\y@i=\b@z
-\advance\y@i by -\altportee
-\y@ii=\locx@skip
-\advance\y@ii by \qn@width
-\advance\y@ii by -\b@x
-\llap{\p@outre\hskip -\qn@width}%
-\global\b@n=0\relax}%
- %
- %\check
-\def\t@bbu{\ifnum\b@n<-2\relax\t@bbbu\fi
- \ifnum\b@n>2\relax\t@bbbu\fi
-\ifnum\b@n=1\relax{\adv@locx@mqn\n@bbu}\fi
-\ifnum\b@n=-1\relax{\adv@locx@mqn\n@bbu}\fi
-\y@i=\bb@z\y@ii=-\bb@x\t@xbu}%
- %\check
-\def\t@xbu{\advance\y@i by -\altportee
-\advance\y@ii by \locx@skip \advance\y@ii by \qn@width
-\llap{\p@outre\hskip -\qn@width}%
-\ifnum\b@n>0\relax
-\advance\y@i by \s@lope\y@ii\raise\y@i\rlap{\kern\qn@width
-\kern -\lthick\vrule height \z@ depth 1.8\internote width \lthick}\fi
-\gl@de{\b@n}}%
- %\check
-\def\t@bbbu{\ifnum\b@n<-3\relax\t@bbbbu\fi
- \ifnum\b@n>3\relax\t@bbbbu\fi
-\ifnum\b@n=1\relax{\adv@locx@mqn\n@bbu}\fi
-\ifnum\b@n=-1\relax{\adv@locx@mqn\n@bbu}\fi
-\ifnum\b@n=2\relax{\adv@locx@mqn\n@bbbu}\fi
-\ifnum\b@n=-2\relax{\adv@locx@mqn\n@bbbu}\fi
-\y@i=\bbb@z\y@ii=-\bbb@x\t@xbu}%
- %
- %\check
-\def\t@bbbbu{\ifnum\b@n<-4\relax\t@bbbbbu\fi
- \ifnum\b@n>4\relax\t@bbbbbu\fi
-\ifnum\b@n=1\relax{\adv@locx@mqn\n@bbu}\fi
-\ifnum\b@n=-1\relax{\adv@locx@mqn\n@bbu}\fi
-\ifnum\b@n=2\relax{\adv@locx@mqn\n@bbbu}\fi
-\ifnum\b@n=-2\relax{\adv@locx@mqn\n@bbbu}\fi
-\ifnum\b@n=3\relax{\adv@locx@mqn\n@bbbbu}\fi
-\ifnum\b@n=-3\relax{\adv@locx@mqn\n@bbbbu}\fi
-\y@i=\bbbb@z\y@ii=-\bbbb@x\t@xbu}%
- %\check
-\def\t@bbbbbu{\ifnum\b@n<-5\relax\showthe\b@n\global\b@n=-5\relax\fi
-\ifnum\b@n>5\relax\showthe\b@n\global\b@n=5\relax\fi
-\ifnum\b@n=1\relax{\adv@locx@mqn\n@bbu}\fi
-\ifnum\b@n=-1\relax{\adv@locx@mqn\n@bbu}\fi
-\ifnum\b@n=2\relax{\adv@locx@mqn\n@bbbu}\fi
-\ifnum\b@n=-2\relax{\adv@locx@mqn\n@bbbu}\fi
-\ifnum\b@n=3\relax{\adv@locx@mqn\n@bbbbu}\fi
-\ifnum\b@n=-3\relax{\adv@locx@mqn\n@bbbbu}\fi
-\ifnum\b@n=4\relax{\adv@locx@mqn\n@bbbbbu}\fi
-\ifnum\b@n=-4\relax{\adv@locx@mqn\n@bbbbbu}\fi
-\y@i=\bbbbb@z\y@ii=-\bbbbb@x\t@xbu}%
- %***** terminer une poutre inferieure****************
-\def\tbl#1{\selectpoutre{#1}\t@bl}%
-\def\tqb#1{\selectpoutre{#1}\t@qb}%
-\def\tbbl#1{\selectpoutre{#1}\t@bbl}%
-\def\tbbbl#1{\selectpoutre{#1}\t@bbbl}%
-\def\tbbbbl#1{\selectpoutre{#1}\t@bbbbl}%
-\def\tbbbbbl#1{\selectpoutre{#1}\t@bbbbbl}%
- % provisoire
-\def\t@qb{\t@bl\qb@}%
-\def\t@bl{\relax
-\ifnum\b@n<-1\relax\t@bbl\fi
-\ifnum\b@n>1\relax\t@bbl\fi
-\y@i=\b@z
-\advance\y@i by -\altportee
-\y@ii=\locx@skip
-\advance\y@ii by \lthick
-\advance\y@ii by -\b@x
-\kern\lthick\llap{\p@outre}\kern -\lthick
-\global\b@n=0\relax}%
- %\check
- %
-\def\t@bbl{\relax
-\ifnum\b@n<-2\relax\t@bbbl\fi
-\ifnum\b@n>2\relax\t@bbbl\fi
-\ifnum\b@n=1\relax{\adv@locx@mqn\n@bbl}\fi
-\ifnum\b@n=-1\relax{\adv@locx@mqn\n@bbl}\fi
-\y@i=\bb@z\y@ii=-\bb@x\t@xbl}%
- %
-\def\t@xbl{\advance\y@i by -\altportee
-\advance\y@ii by \locx@skip
-\advance\y@ii by \lthick
-\kern\lthick\llap{\p@outre}\kern-\lthick
-\ifnum\b@n<0\relax\advance\y@i by \s@lope\y@ii
-\raise\y@i\rlap{\vrule height \interbeam width \lthick}\fi
-\gl@de{\b@n}}%
- %\check
-\def\t@bbbl{\ifnum\b@n<-3\relax\t@bbbbl\fi
- \ifnum\b@n>3\relax\t@bbbbl\fi
-\ifnum\b@n=1\relax{\adv@locx@mqn\n@bbl}\fi
-\ifnum\b@n=-1\relax{\adv@locx@mqn\n@bbl}\fi
-\ifnum\b@n=2\relax{\adv@locx@mqn\n@bbbl}\fi
-\ifnum\b@n=-2\relax{\adv@locx@mqn\n@bbbl}\fi
-\y@i=\bbb@z\y@ii=-\bbb@x\t@xbl}%
- %\check
-\def\t@bbbbl{\ifnum\b@n<-4\relax\t@bbbbbl\fi
- \ifnum\b@n>4\relax\t@bbbbbl\fi
-\ifnum\b@n=1\relax{\adv@locx@mqn\n@bbl}\fi
-\ifnum\b@n=-1\relax{\adv@locx@mqn\n@bbl}\fi
-\ifnum\b@n=2\relax{\adv@locx@mqn\n@bbbl}\fi
-\ifnum\b@n=-2\relax{\adv@locx@mqn\n@bbbl}\fi
-\ifnum\b@n=3\relax{\adv@locx@mqn\n@bbbbl}\fi
-\ifnum\b@n=-3\relax{\adv@locx@mqn\n@bbbbl}\fi
-\y@i=\bbbb@z\y@ii=-\bbbb@x\t@xbl}%
- %\check
-\def\t@bbbbbl{\relax
-\ifnum\b@n<-5\relax\showthe\b@n\global\b@n=-5\relax\fi
-\ifnum\b@n>5\relax\showthe\b@n\global\b@n=5\relax\fi
-\ifnum\b@n=1\relax{\adv@locx@mqn\n@bbl}\fi
-\ifnum\b@n=-1\relax{\adv@locx@mqn\n@bbl}\fi
-\ifnum\b@n=2\relax{\adv@locx@mqn\n@bbbl}\fi
-\ifnum\b@n=-2\relax{\adv@locx@mqn\n@bbbl}\fi
-\ifnum\b@n=3\relax{\adv@locx@mqn\n@bbbbl}\fi
-\ifnum\b@n=-3\relax{\adv@locx@mqn\n@bbbbl}\fi
-\ifnum\b@n=4\relax{\adv@locx@mqn\n@bbbbbl}\fi
-\ifnum\b@n=-4\relax{\adv@locx@mqn\n@bbbbbl}\fi
-\y@i=\bbbbb@z\y@ii=-\bbbbb@x\t@xbl}%
- %******************** notes accrchees aux poutres
- % ************************************
- %
-\def\zqh#1{\selectpoutre{#1}\advancefalse\qh@}%
-\def\zqb#1{\selectpoutre{#1}\advancefalse\qb@}%
-\def\zqhp#1{\selectpoutre{#1}\advancefalse\qhp@}%
-\def\zqbp#1{\selectpoutre{#1}\advancefalse\qbp@}%
-\def\zqhpp#1{\selectpoutre{#1}\advancefalse\qhpp@}%
-\def\zqbpp#1{\selectpoutre{#1}\advancefalse\qbpp@}%
- %
-\def\qh#1{\selectpoutre{#1}\qh@}%
-\def\hh#1{\selectpoutre{#1}\hh@}%
-\def\qhp#1{\selectpoutre{#1}\qhp@}%
-\def\qhpp#1{\selectpoutre{#1}\qhpp@}%
-\def\qhppp#1{\selectpoutre{#1}\qhppp@}%
-\def\qh@#1{\getn@i{#1}\def\n@fon{\qh@}\def\n@sym{\q@u}\g@qh@}% % position
-\def\hh@#1{\getn@i{#1}\def\n@fon{\hh@}\def\n@sym{\h@a}\g@qh@}% % position
-\def\qhp@#1{\getn@i{#1}\def\n@fon{\qhp@}\def\n@sym{\q@up}\g@qh@}% % position
-\def\qhpp@#1{\getn@i{#1}\def\n@fon{\qhpp@}\def\n@sym{\q@upp}\g@qh@}% % position
-\def\qhppp@#1{\getn@i{#1}\def\n@fon{\qhppp@}\def\n@sym{\q@uppp}\g@qh@}% %
- % position
-\def\qb#1{\selectpoutre{#1}\qb@}%
-\def\hb#1{\selectpoutre{#1}\hb@}%
-\def\qbp#1{\selectpoutre{#1}\qbp@}%
-\def\qbpp#1{\selectpoutre{#1}\qbpp@}%
-\def\qbppp#1{\selectpoutre{#1}\qbppp@}%
-\def\qb@#1{\getn@i{#1}\def\n@fon{\qb@}\def\n@sym{\q@u}\g@qb@} % #1 position
-\def\hb@#1{\getn@i{#1}\def\n@fon{\hb@}\def\n@sym{\h@a}\g@qb@} % #1 position
-\def\qbp@#1{\getn@i{#1}\def\n@fon{\qbp@}\def\n@sym{\q@up}\g@qb@} % #1 position
-\def\qbpp@#1{\getn@i{#1}\def\n@fon{\qbpp@}\def\n@sym{\q@upp}\g@qb@} % #1
- % position
-\def\qbppp@#1{\getn@i{#1}\def\n@fon{\qbppp@}\def\n@sym{\q@uppp}\g@qb@} % #1
- % position
-\def\g@qb@{\n@raiseq
- \global\stem@skip=\z@\def\s@tem{\d@balk}\g@qbh@\fi}%
- %
-\def\g@qh@{\n@raiseq
- \global\stem@skip=\qd@skip\def\s@tem{\d@balk}\g@qbh@\fi}%
- %
-\def\g@qbh@{\h@linesqn\pl@symssq}%
- %
-\def\pl@symss{\pl@noteq\raise@note{\n@sym\hss}\ss@uite}%
-\def\pl@symssq{\ifadvance\pl@symss\else\plap@symss\fi\advancetrue}%
- %
-\def\rlap@symss{\raise\y@i\rlap{\n@sym}\ss@uite}%
-\def\plap@symss{\pl@noteq\rlap@symss}%
- %
-\def\d@balk{% % queue de note vers une poutre
-\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
-\ifdim\y@ii>\st@top % la poutre est au-dessus
- \ifnum\b@n>0\relax\advance\y@ii by \b@n\interbeam
- \advance\y@ii by -\interbeam
- \fi\global\st@top=\y@ii % a mettre a jour avec la pente ulterieurement
-\else
- \ifdim\y@ii<\st@bot
- \ifnum\b@n<0\relax\advance\y@ii by \b@n\interbeam
- \advance\y@ii by \interbeam
- \fi\global\st@bot=\y@ii
-\fi\fi\pd@tail}%
- %
- %*********************************** notes sans avancement (accords)
-\def\zha#1{{\noteskip=\z@\ha{#1}}}%
- %
-\def\charnote{\xcharnote{\noteskip}}%
-\let\hcharnote\charnote
-\def\zcharnote{\xcharnote{\z@}}%
-
-\def\zchar#1#2{\raise#1\internote\rlap{#2}}
-\def\lchar#1#2{\raise#1\internote\llap{#2}}
-\def\cchar#1#2{\raise#1\internote\lrlap{#2}}
-\let\hchar\zchar
-
- %\check
- %
- %************************* liaisons horizontales **************************
- % Tie Fixes.
- % I have rewritten several tie macros to eliminate those annoying gaps which
- % often appear. The new macros cause ties to be extended with leader, rather
- % than lines whose length has to be guessed. TeX cannot make multiple
- % horizontal lines with \leaders, so instead I use an \hbox containing
- % several short fragments of lines. Each line fragment is of length
- % \tenboxwidth, which is initially .75pt.
- % In order for the new ties to work properly, every horizontal space must be
- % recorded. I have had to amend some macros so that they record the space
- % which they produce.
- %
-\newbox\@tenubox \newskip\@tenuskip \newdimen\tenboxwidth \tenboxwidth.75pt
- %
- % -macros to maintain a box of tie extenders which is used in the leaders
-\global\setbox\@tenubox\hbox{\kern\tenboxwidth}
-\def\@uptenubox{\global\setbox\@tenubox
- \hbox{\kern\tenboxwidth}\ten@loop
- \ifnum\t@s=0\relax\else\up@tenbox\fi
- \global\advance\n@l by 1\relax\repeat}%
-\def\up@tenbox{\y@ii\t@z\advance\y@ii by \t@y
- \global\setbox\@tenubox\hbox{\unhbox\@tenubox
- \kern-\tenboxwidth\vrule width\tenboxwidth height\y@ii depth-\t@z}}
- %
- % -This macro makes the leaders. #1 is the amount of skip. It is extended
- % by \tenboxwidth on each side in order to get the lines to join up.
-\def\@tenleader#1{\@tenuskip=#1\advance\@tenuskip by2\tenboxwidth\relax
-\nobreak\kern-\tenboxwidth\nobreak\cleaders\copy\@tenubox\hskip\@tenuskip
-\kern-\tenboxwidth\nobreak}
- %
-\def\selecttenue#1{{\n@i=#1\relax
-\ifnum\n@i<0\relax\n@i=29\fi
- \advance\n@i by 1\relax
-\xdef\t@x{\csname t@x\romannumeral\n@i\endcsname}%
-\xdef\t@z{\csname t@z\romannumeral\n@i\endcsname}%
-\xdef\t@p{\csname t@p\romannumeral\n@i\endcsname}%
-\xdef\t@s{\csname t@s\romannumeral\n@i\endcsname}%
-\xdef\t@w{\csname t@w\romannumeral\n@i\endcsname}}%
-\ifnum\t@w=0\relax
- \global\t@y=1.2\p@
-\else
- \global\t@y= 0.2\Interligne
-\fi
-}% fin selecttenue
- %
- %\check
- % mise a jour marge inferieure et correction d'altitude de tenues
- %
-\newdimen\bottom@adv
-\def\advancebottom#1{\global\bottom@adv=#1\relax}%
-\def\adv@bottom{\global\advance\staffbotmarg by \bottom@adv
- \ten@loop \global\advance\t@z by \bottom@adv\relax
- \global\advance\n@l by 1\relax
- \repeat \@uptenubox
- \global\bottom@adv=\z@}%
- %
- %\check
- %
-\def\lu@slur{\cmex\char"7A}\def\ru@slur{\cmex\char"7B}%
-\def\ll@slur{\cmex\char"7C}\def\rl@slur{\cmex\char"7D}%
-\setbox\n@otebox=\hbox{\lu@slur}\brace@w=\wd\n@otebox
- %
-\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{\lu@slur\ifdim \y@ii>2\brace@w\leg@hrule
-\else\hss\fi\ru@slur}}%
- %
-\def\lo@leg{% longueur y@ii
-\hbox to \y@ii{\ll@slur\ifdim \y@ii>2\brace@w\leg@hrule
-\else\hss\fi\rl@slur}}%
- %
- % slur termination of length #1 (up and down)
-\def\up@rleg{% longueur y@ii
-\hbox to \y@ii{\ifdim \y@ii>\brace@w\leg@hrule
-\else\hss\fi\ru@slur}}%
- %
-\def\lo@rleg{% longueur y@ii
-\hbox to \y@ii{\ifdim \y@ii>\brace@w\leg@hrule
-\else\hss\fi\rl@slur}}%
- %\check
- %
- % slur beginning (left) (up and down)
-\def\up@les{% longueur y@ii
-\hbox to \y@ii{\lu@slur\ifdim \y@ii>\brace@w\leg@hrule
-\else\hss\fi}}%
- %
-\def\lo@les{% longueur y@ii
-\hbox to \y@ii{\ll@slur\ifdim \y@ii>\brace@w\leg@hrule
-\else\hss\fi}}%
- %\check
- %
- % noter un debut de tenue
- %
-\def\itenu#1{\selecttenue{#1}\i@tenu}%
- % \rtenu starts a 'tenuto' one note head on the right
-\def\rtenu#1#2{\selecttenue{#1}\i@tenu{#2}\global\advance\t@x by \wn@width}%
- %
-\def\check@tenvoid{\ifnum\t@s=0\relax\else\errmessage{Attemt to re-open an
-opened slur/tie}\fi}
-\def\check@tenopen{\ifnum\t@s=0\errmessage{Attemt to close an
-unopened slur/tie}\fi}
- %
-\def\i@tenu#1{\check@tenvoid\global\t@p=1\relax % sens=1
- \global\t@s=1\relax % etat en cours
- \global\t@x=\locx@skip
- \global\advance\t@x by \qd@skip
- \inhgetn@i{#1}\pl@base\global\t@z=\y@i\global\advance\t@z by\altportee
- \global\advance\t@z by 3.7\p@
- \global\t@y=1.2\p@
- \global\t@w=0\relax
- \up@tenbox}%
- %
-\def\itenl#1{\selecttenue{#1}\i@tenl}%
-\def\minternote{-\internote}%
- % \rtenl starts a 'tenuto' one note head on the right
-\def\rtenl#1#2{\selecttenue{#1}\i@tenl{#2}\global\advance\t@x by \wn@width}%
-\def\i@tenl#1{\check@tenvoid\global\t@p=-1\relax % sens= -1
- \global\t@s=1\relax % actif
- \global\t@x=\locx@skip
- \global\advance\t@x by \qd@skip
- \inhgetn@i{#1}\pl@base\global\t@z=\y@i\global\advance\t@z by \altportee
- \global\advance\t@z by -4.5\p@\relax
- \global\t@y=1.2\p@
- \global\t@w=0\relax
- \up@tenbox}%
- %\check
-\def\tten#1{\selecttenue{#1}\t@ten}%
-\def\tleg#1{\selecttenue{#1}\check@tenopen{\advance\locx@skip by
- 1.5\qn@width\kern 1.5\qn@width\t@ten\kern -1.5\qn@width}}%
-
-\def\liftslur#1{\selecttenue{#1}\l@iftslur}%
-\def\l@iftslur#1{\global\advance\t@z by #1\relax}%
- %
- %\check
- %
- %********************** ponctuations speciales ****************************
- %
-\def\breath{\raise 3\Interligne\hbox{\enorme'}}%
-\def\zbreath{\raise 3\Interligne\rlap{\enorme'}}%
-\def\cbreath{\charnote0{\raise 3\Interligne
- \hbox to \noteskip{\hss\enorme'\hss}}}%
-\def\uptext#1{\resetstem\raise 5\Interligne\rlap{#1}}%
-\def\Uptext#1{\resetstem\raise 7\Interligne\rlap{#1}}%
-\def\text@sp{\vrule width \z@ height 8.5\p@ depth 3.5\p@}
-\def\f{{\ppff {f}}}
-\def\ff{{\ppff {f}\kern -0.1ex{f}}}
-\def\fff{{\ppff {f}\kern -0.1ex{f}\kern -0.1ex{f}}}
-\def\ffff{{\ppff {f}\kern -0.1ex{f}\kern -0.1ex{f}\kern -0.1ex{f}}}
-\def\m@idcomp{\y@v=\interportee\advance\y@v by 4\Interligne\divide\y@v by
- %%\def\m@idcomp{\y@v=\Interportee\divide\y@v by
- 2\relax
-\raise\y@v\vbox to \z@}%
- %
-\def\midtwotext#1{{\m@idcomp
-{\vss\hbox to \noteskip{\hss\text@sp #1\hss}\vss}}}%
-\def\rmidtwotext#1{{\m@idcomp
-{\vss\hbox to \noteskip{\text@sp #1\hss}\vss}}}%
-\def\zmidtwotext#1{{\m@idcomp
-{\vss\rlap{\text@sp #1}\vss}}}%
-\def\lmidtwotext#1{{\m@idcomp
-{\vss\hbox to \noteskip{\hss\text@sp #1}\vss}}}%
- %\check
-\def\metron#1#2{{\shortstems\noteskip 10\p@ #1 1\ = #2}}%
- %\check
- %
- %**************************************************************************
- % definition standard, modifiables par l'usager
- %**************************************************************************
- %
-\def\resetfacteurs{\stafftopmarg=\z@\staffbotmarg=\z@\nullthick=8\Internote
- %
-\def\stafflinesnbi{5}%
-\def\stafflinesnbii{5}%
-\def\stafflinesnbiii{5}%
-\def\stafflinesnbiv{5}%
-\def\stafflinesnbv{5}%
-\def\stafflinesnbvi{5}%
- %
-\def\clefduti{\clefdutsymbol}%
-\def\clefdutii{\clefdutsymbol}%
-\def\clefdutiii{\clefdutsymbol}%
-\def\clefdutiv{\clefdutsymbol}%
-\def\clefdutv{\clefdutsymbol}%
-\def\clefdutvi{\clefdutsymbol}%
- %
-\def\clefdefai{\clefdefasymbol}%
-\def\clefdefaii{\clefdefasymbol}%
-\def\clefdefaiii{\clefdefasymbol}%
-\def\clefdefaiv{\clefdefasymbol}%
-\def\clefdefav{\clefdefasymbol}%
-\def\clefdefavi{\clefdefasymbol}%
- %
-\def\clefdesoli{\clefdesolsymbol}%
-\def\clefdesolii{\clefdesolsymbol}%
-\def\clefdesoliii{\clefdesolsymbol}%
-\def\clefdesoliv{\clefdesolsymbol}%
-\def\clefdesolv{\clefdesolsymbol}%
-\def\clefdesolvi{\clefdesolsymbol}%
- %
-\def\interfacteur{9}%
-\def\bottomfacteur{3}%
-\def\topfacteur{3}%
-\elemskip=4\Internote
-\def\gluemaxskip{0.1\line@width}%
-\zglueskip=0pt plus \gluemaxskip minus .5pt%
-\tempsskip=2pt plus \gluemaxskip minus 2pt
-}%
-\resetfacteurs
- %\check
-\def\normal{\ifdim\Interligne<\p@\computewidths\fi
-\def\scalenoteskip{1.0}\elemskip=4\Internote
-\def\notes{\vnotes 1.0\elemskip }% double croches
-\def\Notes{\vnotes 1.4\elemskip }% croches
-\def\NOtes{\vnotes 2.0\elemskip }% croches pointees
-\def\NOTes{\vnotes 2.8\elemskip }% noires
-\def\NOTEs{\vnotes 4.0\elemskip }%
-\def\NOTES{\vnotes 5.6\elemskip }%
-}%
- %
-\ifx\large\undefined
- \def\large{\normal\elemskip=4.8\Internote}\fi
- %
-\def\etroit{\normal
-\def\Notes{\vnotes 1.3\elemskip }% croches
-\def\NOtes{\vnotes 1.8\elemskip }% croches pointees
-\def\NOTes{\vnotes 2.6\elemskip }% noires
-\def\NOTEs{\vnotes 3.6\elemskip }%
-\def\NOTES{\vnotes 5.2\elemskip }%
-}%
- %\check
-\def\testseq{}%
-\def\nspace{\vnotes 0.2\elemskip\sk\enotes}%
- %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\def\barfill{\leaders\hbox{ --}\hfill}%
-\def\octnvrule{\vrule width \z@ height 3\p@ depth 3\p@}%
-\def\octvrule{\vrule width \lthick height 3\p@ depth 3\p@}%
-\def\octsup#1#2{\zcharnote{#1}{\hbox to #2\noteskip
-{\llap{\rm 8}\barfill\octnvrule}}}%
-\def\Octsup#1#2{\zcharnote{#1}{\hbox to #2{\rm 8\barfill\octnvrule}}}%
- %\check
-\def\octfin#1#2{\zcharnote{#1}{\hbox to #2\noteskip{\llap{\rm 8}\barfill
---\octvrule}}}%
-\def\Octfin#1#2{\zcharnote{#1}{\hbox to #2{\rm 8\barfill
---\octvrule}}}%
-\def\octline#1{\zcharnote{#1}{\hbox to \line@width{\llap{\rm 8}\barfill
-\octnvrule\hskip 12\Internote}}}%
-\def\Octline#1{\zcharnote{#1}{\hbox to \line@width{\rm 8\barfill
-\octnvrule\hskip 8\Internote}}}%
- %\check
-\def\xtuplet#1#2{\global\n@l=#1\relax\global\advance\n@l by -1\relax
-{\divide\noteskip by \n@l\relax\zcharnote{#2}{\kern\n@l\noteskip
- \hbox to\z@{\hss\it #1\hss}}}}%
-\def\triolet{\xtuplet3}%
- %\check
- \let\thelyrics\empty
-\def\hardlyrics#1\notes{\let\save@noteskip\noteskip
- \def\noteskip{\z@\relax\errmessage{You cannot use \noexpand\noteskip
- in \noexpand\hardlyrics's 1st argument!}}%
-\def\thelyrics{\hbox{#1}}%
-\wd\ch@box\z@ \setbox\ch@box\thelyrics \let\noteskip\save@noteskip
- \noteskip\wd\ch@box \n@otes}
- %\check
-
-
-%\def\setsongraise#1#2{\n@v#1\relax % select instrument
-% \expandafter\def\csname T@R\romannumeral\n@v\endcsname{#2}}
-\def\setsongraise#1#2{\noinstrument#1\relax % select instrument
- \expandafter\def\csname T@R\romannumeral\noinstrument\endcsname{#2}}
-
-\let\T@Ri\z@
-\let\T@Rii\z@
-\let\T@Riii\z@
-\let\T@Riv\z@
-\let\T@Rv\z@
-\let\T@Rvi\z@
-
-\def\zsong{\let\@Ti\rlap \C@t}
-\def\lsong{\let\@Ti\llap \C@t}
-\def\csong{\let\@Ti\lrlap \C@t}
-\def\hsong{\let\@Ti\hard@box \C@t}
-\def\dhsong{\let\@Ti\dhard@box \C@t}
-\def\thsong{\let\@Ti\thard@box \C@t}
-
-\def\C@t#1{\C@tx{\@Ti{\strut#1}\vss}}
-\def\lrlap#1{\rlap{\hss#1}}
-\def\hard@box#1{\rlap{\hbox to\noteskip{#1\hfil}}}
-\def\dhard@box#1{\rlap{\hbox to 2\noteskip{#1\hfil}}}
-\def\thard@box#1{\rlap{\hbox to 3\noteskip{#1\hfil}}}
-
-\def\C@tx{\edef\savenu@iv{\the\y@iv}%
- \ifnum\noinstrument= 1 \y@iv\staffbotmarg
- \else
- \advance\noinstrument -1\relax
- \y@iv\csname interinstrument\romannumeral\noinstrument\endcsname
- \C@Inter \advance\y@iv\stem@skip \divide\y@iv 2
- \advance\noinstrument 1
- \fi
- \advance\y@iv-\csname T@R\romannumeral\noinstrument\endcsname
-%% \advance\noinstrument 1 \fi
- \edef\lower@dim{\the\y@iv}\relax \y@iv\savenu@iv\relax
- \lower\lower@dim\uplap}
-
-\def\C@Inter{\stem@skip\interportee \advance\stem@skip-8\internote
- \ifnum\stafflinesnb=4 \advance\stem@skip 2\internote \fi
- \ifnum\stafflinesnb=6 \advance\stem@skip-2\internote \fi}
-
-
- %
-\let\wlog=\@plainwlog
- %
-\def\interfacteur{1}%
-\csname musicnorfont\endcsname
-\def\nbinstruments{\maxinstruments}\savemeter
-\csname normalnotesize\endcsname
-\normal % to get \notes correctly defined
-\resetfacteurs
-\def\nbinstruments{0}%
- %
-\def\magstep#1{\ifcase#1 \@m\or 1200\or 1440\or 1728\or 2074\or
- 2488\or 2986\or 3583\or 4300\or 5160\fi\relax}
- %
-
-\def\endcatcodesmusic{\catcode`\&=\catcode@and
-\catcode`\|=\catcode@vert
-\catcode`\>=\catcode@gt
-\catcode`\<=\catcode@lt
-\catcode`\!=\catcode@excl
-\catcode`\*=\catcode@star
-\catcode`\:=\catcode@sc
-\catcode`\.=\catcode@pt
-\catcodesmusicfalse}
-
-\endcatcodesmusic
-
-\catcode`\@=\catcodeat
-\def\musictexactive{\relax}
-\endinput
-