diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixcpt.tex')
-rw-r--r-- | Master/texmf-dist/tex/generic/musixtex/musixcpt.tex | 33 |
1 files changed, 23 insertions, 10 deletions
diff --git a/Master/texmf-dist/tex/generic/musixtex/musixcpt.tex b/Master/texmf-dist/tex/generic/musixtex/musixcpt.tex index bed7c70f173..3883c0b6060 100644 --- a/Master/texmf-dist/tex/generic/musixtex/musixcpt.tex +++ b/Master/texmf-dist/tex/generic/musixtex/musixcpt.tex @@ -21,7 +21,7 @@ \ifx\undefined\DIMin \else \endinput \fi -\immediate\write10{MusiXComPaTible T.67\space<7 January 1997>}% +\immediate\write16{MusiXComPaTible T.109\space<7 July 2002>}% \ifx\undefined\mxversion \errmessage{MusiXcpt input before MusiXTeX !}\fi @@ -182,7 +182,9 @@ \chardef\@liii=53 \newif\ifcautionacc -\def\@acc#1{\inhgetn@i#1\relax\@BigAcc} +\def\@acc#1{\check@staff + \inhgetn@i#1\relax\@BigAcc + \fi} \def\@BigAcc{\pl@base\raise\y@i\llap{\musixchar\n@v\kern\accshift}} \def\bigfl{\n@v\@l \@acc} @@ -191,16 +193,23 @@ \def\bigdsh{\n@v\@liii \@acc} \def\bigna{\n@v\@liv \@acc} -\def\@smallacc#1{\inhgetn@i#1\relax\n@iv\fiv@ \@SmallACC} -\def\@SmallACC{\pl@base\raise\y@i\llap{\@SmallAcc\kern\accshift}} -\def\@SmallAcc{\ifcautionacc\C@ChaR \fi \musixchar\n@v - \ifcautionacc\kern.3\qn@width \fi\global\cautionaccfalse} +\def\@smallacc#1{\check@staff + \inhgetn@i#1\relax\n@iv\fiv@ \@SmallACC + \fi} +\def\@SmallACC{\check@staff + \pl@base\raise\y@i\llap{\@SmallAcc\kern\accshift}\fi} +\def\@SmallAcc{\check@staff + \ifcautionacc\C@ChaR \fi \musixchar\n@v + \ifcautionacc\kern.3\qn@width \fi + \fi\global\cautionaccfalse} \def\smallna{\n@v94\@smallacc} \def\smallfl{\n@v90\@smallacc} \def\smallsh{\n@v92\@smallacc} \def\smalldsh{\n@v93\@smallacc} -\def\smalldfl#1{\n@v91\inhgetn@i#1\relax\n@iv\si@ \@SmallACC} +\def\smalldfl#1{\check@staff + \n@v91\inhgetn@i#1\relax\n@iv\si@ \@SmallACC + \fi} \def\csh{\cautionacctrue\smallsh} \def\cdsh{\cautionacctrue\smalldsh} @@ -256,7 +265,9 @@ % \n@ii positive signature limit, \n@ii-8 negative signature limit \advance\n@ii-\a@s \advance\n@ii\si@ \divide\n@ii\s@v@n \n@iv\fiv@} -\def\C@aacc{\advance\n@v\n@vi \@Ti} +\def\C@aacc{\check@staff + \advance\n@v\n@vi \@Ti + \fi } \def\@Flat#1{\sign@diff#1\relax \ifcase\n@ii \n@v\@liv \or\n@v\@l \or\n@v\@li \fi \C@aacc} @@ -621,9 +632,11 @@ \def\zmidtwotext{\zmidstaff} \def\lmidtwotext{\let\@Ti\hss \let\@Tii\empty \C@midcpt} -\def\C@midcpt#1{\y@v\interportee \advance\y@v\f@ur\Interligne \divide\y@v\tw@ +\def\C@midcpt#1{\check@staff + \y@v\interportee \advance\y@v\f@ur\Interligne \divide\y@v\tw@ \raise\y@v\uplap{\hbox\@to\noteskip{\@Ti\strut#1\@Tii}\vss}% - \advance\locx@skip\noteskip} + \advance\locx@skip\noteskip + \fi} % for what ? |