summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/musixtex/musixcpt.tex
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/generic/musixtex/musixcpt.tex')
-rw-r--r--Master/texmf-dist/tex/generic/musixtex/musixcpt.tex33
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 ?