texlive[47682] Master/texmf-dist/tex/generic/musixtex/musixtex.tex:

[commits+karl at tug.org]

Revision: 47682
          http://tug.org/svn/texlive?view=revision&revision=47682
Author:   karl
Date:     2018-05-11 23:30:00 +0200 (Fri, 11 May 2018)
Log Message:
-----------
musixtex[.tds.zip]

Modified Paths:
--------------
    trunk/Master/texmf-dist/tex/generic/musixtex/musixtex.tex

Modified: trunk/Master/texmf-dist/tex/generic/musixtex/musixtex.tex
===================================================================
--- trunk/Master/texmf-dist/tex/generic/musixtex/musixtex.tex	2018-05-11 21:26:29 UTC (rev 47681)
+++ trunk/Master/texmf-dist/tex/generic/musixtex/musixtex.tex	2018-05-11 21:30:00 UTC (rev 47682)
@@ -25,15 +25,22 @@
 
 \def\mufl at x{0.83}%
 \def\mxmajorvernumber{1}
-\def\mxminorvernumber{27}
+\def\mxminorvernumber{28}
 \def\mxvernumber{\mxmajorvernumber\mxminorvernumber}% make it possible to compare with \ifnum
 \def\mxversuffix{}% 
 \edef\mxversion{\mxmajorvernumber.\mxminorvernumber\mxversuffix}
-\def\mxdate{2017-12-26}
+\def\mxdate{2018-05-07}
 
 \immediate\write16{MusiXTeX(c) \mxversion\space<\mxdate>}%
 \everyjob{\immediate\write16{MusiXTeX(c) \mxversion\space<\mxdate>}}%
 
+% version 1.28
+
+% defined 
+%  \z[left|right|leftright]repeat, for use *within* a bar
+%  \zz...repeat, to force to the end of a system
+% corrected definition of \C at Inter for \nblines < 4
+
 % version 1.27
 
 % introduced \meterN 
@@ -1829,8 +1836,9 @@
   \interportee\int at rf\internote \interportee\tw@\interportee}%               RDT 1.26
 
 \def\C at Inter{%  RDT: corrected to work if \nblines > 6   (version 1.23)
+             %  RDT: corrected for \nblines < 4          (version 1.28)
   \stem at skip\interportee
-  \ifnum\nblines=\thr@@
+  \ifnum\nblines<\f at ur
     \advance\stem at skip-\@ight\internote
   \else
     \advance\stem at skip-\nblines\internote
@@ -2417,6 +2425,12 @@
   \kernm\afterruleskip\l at eftrepeat\kern\afterruleskip				%+simick
   \advance\lastbarpos\afterruleskip \b at rrul@}					%+simick
 
+\def\@LeftRpCont{\stoppiec@\l@@ftrepeat\advance\volta at startcor-\afterruleskip	% RDT 1.28
+  \let\z at sw\@ne                  % turn on continuation bar number                               
+  \contpiece\addspace{\h at lf\afterruleskip}%
+  \kernm\afterruleskip\l at eftrepeat\kern\afterruleskip%		
+  \advance\lastbarpos\afterruleskip \b at rrul@}		
+
 \def\T at bil{\advance\barsinlin@\@ne \ifnum\barsinlin@<\maxbarsinlin@}
 
 \def\barre{\T at bil \@bar\else\stoppiec@\contpiece \fi}
@@ -2424,13 +2438,86 @@
 \def\zbar{\T at bil \zn at wbar\else\zstoppiec@\contpiece \fi}
 \def\alaligne{\stoppiece\contpiece}
 \def\zalaligne{\zstoppiece\contpiece}
-\def\leftrepeat at II{\T at bil \setleftrepeat\@bar\else\@LeftRp \fi}
+
+%  ... at II means used in the *second* tex pass
+
+\def\leftrepeat at II{%
+\T at bil 
+  \setleftrepeat\@bar
+\else
+  \@LeftRp %
+\fi}
+
+\def\zleftrepeat at II{%                           % RDT 1.28
+\advance\barno\m at ne%
+\T at bil
+  \setleftrepeat\@bar%
+\else
+  \@LeftRpCont%                                 % RDT 1.28
+\fi}
+
+
 \let\leftrepeat\leftrepeat at II
-\def\leftrightrepeat at II{\T at bil \setleftrightrepeat
-  %\setbox\toks at box\l at eftrightrepeat \global\cut at v=\wd\toks at box
+\let\zleftrepeat\zleftrepeat at II                 % RDT 1.28
+
+\def\zzleftrepeat{%                             % RDT 1.28
+\advance\barno\m at ne%
+\stoppiece%
+\let\z at sw\@ne%
+\contpiece%
+\advance\barno\m at ne%
+\leftrepeat%
+}
+
+\def\leftrightrepeat at II{%
+\T at bil 
+  \setleftrightrepeat\@bar
+\else
+  \setrightrepeat\@LeftRp 
+\fi}
+
+\def\zzrightrepeat{%                            % RDT 1.28
+  \advance\barno\m at ne%
+  \setrightrepeat\stoppiece
+  \let\z at sw\@ne
+  \contpiece
+}
+
+\def\zrightrepeat{%                             % RDT 1.28
+\advance\barno\m at ne
+\setrightrepeat
+\T at bil
   \@bar
-  \else\setrightrepeat\@LeftRp \fi}
+\else
+  \stoppiec@
+  \let\z at sw\@ne
+  \contpiece 
+\fi}
+
+\def\zzleftrightrepeat{%                        % RDT 1.28
+  \advance\barno\m at ne
+  \setrightrepeat
+  \stoppiece
+  \let\z at sw\@ne
+  \contpiece
+  \addspace{\h at lf\afterruleskip}%					
+  \kernm\afterruleskip\l at eftrepeat\kern\afterruleskip			
+  \advance\lastbarpos\afterruleskip \b at rrul@			
+}
+
+\def\zleftrightrepeat at II{%                      % RDT 1.28
+\advance\barno\m at ne
+\T at bil
+  \setleftrightrepeat\@bar
+\else
+  \stoppiec@
+  \let\z at sw\@ne
+  \contpiece 
+\fi}
+
 \let\leftrightrepeat\leftrightrepeat at II
+\let\zleftrightrepeat\zleftrightrepeat at II       % RDT 1.28
+
 \def\alapage{\stoppiece\eject\contpiece}
 \def\zalapage{\zstoppiece\eject\contpiece}
 
@@ -5307,10 +5394,12 @@
 %      indicate musixflx a leftrightrepeat
 %
   \let\leftrightrepeat\leftrightrepeat at I
+  \let\zleftrightrepeat\leftrightrepeat at I               % RDT 1.28
 %
 %   s.a.
 %
   \let\leftrepeat\leftrepeat at I
+  \let\zleftrepeat\leftrepeat at I                         % RDT 1.28
 %
 %   -> \hardspace
 %