%
% This is MusicTeX - Version 4.32 -- December 1991
%
\def\fonthdg{c}  %  prefix to cmxxx fonts. change to "a" for amxxx fonts
\font\cmmi=\fonthdg mmi10 scaled \magstep1
\font\cmbx=\fonthdg mbx10 scaled \magstep1
\font\moyen=\fonthdg mbx10 scaled \magstep1
\font\cmex=\fonthdg mex10
\font\cmsy=\fonthdg msy10 scaled \magstep1
\font\cmr=\fonthdg mr10 scaled \magstep1
\font\ttyeight=\fonthdg mtt8
\catcode`\@=11
%
\let\@plainwlog=\wlog
\def\wlog#1{}%
%
\font\musictwenty=musicn20
\font\musicsixteen=musicn16
\font\beamsixteen=beamn16
\font\beamtwenty=beamn20
%
\def\q@u{\musicxx\char"21\hss}\def\qu@raise{\z@}%
\def\h@a{\musicxx\char"22\hss}\def\ha@raise{\z@}%
\def\w@h{\musicxx\char"23\hss}\def\wh@raise{\z@}%
\def\w@hq{\musicxx\char 125\hss}\def\wh@raise{\z@}%
\def\s@bv{\musicxx\char"24\hss}\def\wh@raise{\z@}%
\def\b@rv{\musicxx\char"20\hss}\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{\zws}\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{\global\n@raise=\wh@raise\ifnum\n@i<100\relax
  \h@lines{\bv@width}\def\s@tem{\resetstem}\plap@symss\fi}%
\def\g@zsb{\global\n@raise=\wh@raise\ifnum\n@i<100\relax
  \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\computespecifics{\ifnum\musicsize=0\relax\musicsize=20\relax\fi
\ifnum\musicsize=20\relax
\def\musicxx{\musictwenty}\else\def\musicxx{\musicsixteen}\fi
\ifnum\musicsize=20\relax
\def\beamnxx{\beamtwenty}\else\def\beamnxx{\beamsixteen}\fi
\ifnum\musicsize=20\relax\def\meterfont{\moyen}\else\def\meterfont{\cmbx}\fi
\Interligne=\musicsize pt\divide\Interligne by 4\relax
\wn@width=1.4\Interligne
\sb@width=2.2\Interligne
\bv@width=1.4\Interligne
\hn@width=1.2\Interligne
\qn@width=1.2\Interligne
\qd@skip=\qn@width\advance\qd@skip by -0.5\lthick
\hd@skip=\hn@width\advance\hd@skip by -0.5\lthick
\wd@skip=\wn@width\advance\wd@skip by -0.5\lthick
\setbox\ch@box=\hbox{\c@rochu}\c@height=\ht\ch@box
}%
%
%\check
%
\def\s@oupir{{\musicxx\char"3E}}%
%
\def\c@rochu{{\musicxx \char"28}}%
\def\c@rochl{{\musicxx \char"2D}}%
\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 39\relax
\setbox\ch@box=\rlap{\musicxx\char\c@mult}\c@height=\ht\ch@box
\global\advance\st@top by \c@height
\global\advance\st@top by \internote
\global\advance\st@top by -\st@bot
  \ifdim\st@top>1pt
  \global\advance\st@bot by -\altportee
  \raise\st@bot\rlap{\kern\stem@skip\vrule height\st@top width \lthick
  \advance\st@top by -\c@height\raise\st@top\box\ch@box}\fi
  \resetstem}%
%\check
\def\p@cr#1{\c@mult=#1\relax    % queue de #1 croche(s) vers le bas
\advance\c@mult by 44\relax
\setbox\ch@box=\rlap{\kern 0.5\lthick\musicxx\char\c@mult}\c@height=\ht\ch@box
\global\advance\st@bot by -\internote
\global\advance\st@bot by -\c@height
\global\advance\st@top by -\st@bot
\ifdim\st@top>1pt
 \global\advance\st@bot by -\altportee
 \raise\st@bot\rlap{\box\ch@box\vrule height\st@top width \lthick}%
\fi
  \resetstem}%
%\check
\def\s@harp{\musicxx\char"34}\def\sh@raise{\z@}%
\def\f@lat{\musicxx\char"32}\def\fl@raise{\z@}%
\def\n@at{\musicxx\char"36}\def\na@raise{\z@}%
\def\ds@harp{\musicxx\char"35}%
\def\df@lat{\musicxx\char"33}%
%
\def\smalln@at{\musicxx\char"7C}%
\def\smallf@lat{\musicxx\char"78}%
\def\smalls@harp{\musicxx\char"7A}%
\def\smallds@harp{\musicxx\char"7B}%
\def\smalldf@lat{\musicxx\char"79}%
%
\def\bigsh#1{\getn@i{#1}\global\n@raise=\sh@raise\pl@llap{\s@harp}}%
\def\smallsh#1{\getn@i{#1}\global\n@raise=\sh@raise\pl@llap{\smalls@harp}}%
\def\uppersh#1{\zcharnote{#1}{\raise3\internote
\hbox to \qn@width{\hss\smalls@harp\hss}}}%
%
\def\bigdsh#1{\getn@i{#1}\global\n@raise=\sh@raise\pl@llap{\ds@harp}}%
\def\smalldsh#1{\getn@i{#1}\global\n@raise=\sh@raise\pl@llap{\smallds@harp}}%
%
\def\bigna#1{\getn@i{#1}\global\n@raise=\na@raise\pl@llap{\n@at}}%
\def\smallna#1{\getn@i{#1}\global\n@raise=\na@raise\pl@llap{\smalln@at}}%
\def\upperna#1{\zcharnote{#1}{\raise3\internote
\hbox to \qn@width{\hss\smalln@at\hss}}}%
%
\def\bigfl#1{\getn@i{#1}\global\n@raise=\fl@raise\pl@llap{\f@lat}}%
\def\smallfl#1{\getn@i{#1}\global\n@raise=\fl@raise\pl@llap{\smallf@lat}}%
\def\upperfl#1{\zcharnote{#1}{\raise3\internote
\hbox to \qn@width{\hss\smallf@lat\hss}}}%
%
\def\bigdfl#1{\getn@i{#1}\global\n@raise=\fl@raise\pl@llap{\df@lat}}%
\def\smalldfl#1{\getn@i{#1}\global\n@raise=\fl@raise\pl@llap{\smalldf@lat}}%
%
\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
  \raise  \y@i\hbox{\vrule height 0.24\Interligne depth 0.24\Interligne
      width \y@ii}\else\b@alkdefs\beamnxx
  \global\y@iv=0pt
  \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\clefdefa{\hbox to 3.2\Interligne{\musicxx\kern -0.4\Interligne\char"49\hss
}}%
\def\smallclefdefa{\hbox to 2.8\Interligne{\musicxx\kern -0.32\Interligne
\char"4A\hss}}%
%\check
\def\clefdesol{\hbox to 3.2\Interligne{\musicxx\kern -0.6\Interligne
\char"47\hss}}%
\def\smallclefdesol{\hbox to 2.8\Interligne{\musicxx\kern -0.48\Interligne
\char"48\hss}}%
%\check
\def\clefdut{\hbox to 3.2\Interligne{\musicxx\kern -0.4\Interligne\char"4B\hss
}}%
\def\smallclefdut{\hbox to 2.8\Interligne{\musicxx\kern -0.32\Interligne
\char"4C\hss}}%
%
\def\allabreve{{\kern 0.5\Interligne\musicxx\char"52}}%
\def\meterC{{\kern 0.5\Interligne\musicxx\char"53}}%
%
\def\d@soup{\musicxx\char"3F}%
\def\q@soup{\musicxx\char"40}%
\def\p@orgue{\hbox{\kern -0.5\hn@width\musicxx\char"50}}%
\def\p@urgue{\hbox{\kern -0.5\hn@width\musicxx\char"51}}%
\def\trille#1{\hbox to #1{\leaders\hbox{\musicxx\char"64}\hfill}}%
\def\Trille#1{\hbox to #1{\it tr\leaders\hbox{\musicxx\char"64}\hfill}}%
%
%
% 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\musicxx\char"5A}}%
\def\Arp@elem{\vbox to 4\Interligne{\vss\musicxx\char"5D}}%
%
\def\arpeggio#1#2{\zcharnote{#1}{\n@iii=#2\relax\advance\n@iii by 89\relax
\musicxx\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
\musicxx\chardef\arp@el=\n@iii\relax\arp@el\kern -0.3\qn@width}\qsk}%
%
\def\mordant#1{\zcharnote{#1}{\musicxx\char 89}}%
\def\pince#1{\zcharnote{#1}{\musicxx\char 87}}%
\def\Pince#1{\zcharnote{#1}{\musicxx\char 88}}%
\def\sf#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}{\musicxx\char 30}}%
\def\lsf#1{\zcharnote{#1}{\musicxx\char 31}}%
\def\ust#1{\zcharnote{#1}{\musicxx\char 26}}%
\def\lst#1{\zcharnote{#1}{\musicxx\char 27}}%
\def\upz#1{\zcharnote{#1}{\musicxx\char 24}}%
\def\lpz#1{\zcharnote{#1}{\musicxx\char 25}}%
\def\uppz#1{\zcharnote{#1}{\musicxx\char 28}}%
\def\lppz#1{\zcharnote{#1}{\musicxx\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{\musicxx\char 30}\selectpoutre{#1}\acc@balk}%
\def\blsf#1{\def\balk@accent{\musicxx\char 31}\selectpoutre{#1}\acc@balk}%
\def\bust#1{\def\balk@accent{\musicxx\char 26}\selectpoutre{#1}\acc@balk}%
\def\blst#1{\def\balk@accent{\musicxx\char 27}\selectpoutre{#1}\acc@balk}%
\def\bupz#1{\def\balk@accent{\musicxx\char 24}\selectpoutre{#1}\acc@balk}%
\def\blpz#1{\def\balk@accent{\musicxx\char 25}\selectpoutre{#1}\acc@balk}%
\def\buppz#1{\def\balk@accent{\musicxx\char 28}\selectpoutre{#1}\acc@balk}%
\def\blppz#1{\def\balk@accent{\musicxx\char 29}\selectpoutre{#1}\acc@balk}%
%
% soufflets crescendo et decrescendo
%
\def\dimin{{\musicxx\char"10}}%
\def\Dimin{{\musicxx\char"11}}%
\def\DImin{{\musicxx\char"12}}%
\def\DIMin{{\musicxx\char"13}}%
\def\cresc{{\musicxx\char"14}}%
\def\Cresc{{\musicxx\char"15}}%
\def\CResc{{\musicxx\char"16}}%
\def\CREsc{{\musicxx\char"17}}%
%
% colons for repeats (:| |: :||:)
%
%\check
\def\w@coli{\selectinstr{\p@loop 
  \raise\altportee\hbox to \z@{\hss\musicxx\char 126\hss}\n@portee\repeat}}%
%
\let\wlog=\@plainwlog