diff options
author | Norbert Preining <norbert@preining.info> | 2024-01-30 03:00:44 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-01-30 03:00:44 +0000 |
commit | 084f5d8435744b7ea7ef487ec111a7bfd100ed62 (patch) | |
tree | d4e91f6ef6d075509a2b33942f57337725089951 /macros/musixtex/tex/musixdbr.tex | |
parent | 6c43653052d016d5913aabb728c484f0e62b4754 (diff) |
CTAN sync 202401300300
Diffstat (limited to 'macros/musixtex/tex/musixdbr.tex')
-rw-r--r-- | macros/musixtex/tex/musixdbr.tex | 250 |
1 files changed, 0 insertions, 250 deletions
diff --git a/macros/musixtex/tex/musixdbr.tex b/macros/musixtex/tex/musixdbr.tex deleted file mode 100644 index 2ad82ca662..0000000000 --- a/macros/musixtex/tex/musixdbr.tex +++ /dev/null @@ -1,250 +0,0 @@ -\ifx\indivbarrules\undefined\else\endinput\fi - -\immediate\write10{MusiXDashed and Dotted BaRlines 1.0\space<23 February 2002>}% -% by Rainer Dunker -% Ideas and code based on musixbar.tex -% by Mthimkhulu Molekwa <MMolekwa@rrs.co.za> - -\makeatletter - -\newdimen\barline@depth - -\def\barlinedash#1{\vskip.5\Internote - \hrule\@width#1\@height\Internote - \vskip.5\Internote} -\def\barlinedots#1{\vskip.5\Internote - \hbox to #1{\hss\tenrm.\hss} - \vskip.5\Internote} - -\def\rul@indiv#1{% - \n@loop - \Comp@High - \multiply\barline@depth -1\relax - \advance\barline@depth\altitude - \expandafter\ifx\csname s@b\romannumeral\noinstrum@nt\endcsname\relax - % normal barline below instrument - \raise\altitude\rlap{\vrule\@depth\barline@depth\@width#1\@height0pt }% - \else - \expandafter\ifx\csname s@b\romannumeral\noinstrum@nt\endcsname 2% - % dashed barline below instrument - \raise\altitude\hbox{% - \lower\barline@depth\rlap{% - \vbox to \barline@depth{% - \xleaders\vbox{\barlinedash{#1}}\vfill}}}% - \else - \expandafter\ifx\csname s@b\romannumeral\noinstrum@nt\endcsname 3% - % dotted barline below instrument - \raise\altitude\hbox{% - \lower\barline@depth\rlap{% - \vbox to \barline@depth{% - \xleaders\vbox{\barlinedots{#1}}\vfill}}}% - \fi - \fi - \fi - \ifnum\st@ffs>1 % multi-staff instrument - \multi@instrum@bars{#1}% - \else % single-staff instrument - \expandafter\ifx\csname h@bl\romannumeral\noinstrum@nt\endcsname\relax - % normal barline through instrument - \raise\altitude\rlap{\vrule\@depth0pt \@width#1\@height\y@v}% - \else - \expandafter\ifx\csname h@bl\romannumeral\noinstrum@nt\endcsname 2% - % dashed barline through instrument - \raise\altitude\rlap{% - \vbox to \y@v{% - \cleaders\vbox to 2\internote{\vss - \hrule\@width#1\@height\internote - \vss}% - \vfill}}% - \else - \expandafter\ifx\csname h@bl\romannumeral\noinstrum@nt\endcsname 3% - % dotted barline through instrument - \raise\altitude\rlap{% - \vbox to \y@v{% - \cleaders\vbox to 2\internote{\vss - \hbox to #1{\hss\tenrm.\hss}% - \vss}% - \vfill}}% - \fi - \fi - \fi - \fi - \barline@depth\altitude - \advance\barline@depth\y@v - \repeat - \addspace#1} - -\def\multi@instrum@bars#1{% - \begingroup - % retrieve staff height - \count@=\nblines \advance\count@ -1 \multiply\count@ 2 - \dimen@=\count@\internote - \p@loop - % barline within staff - \expandafter\ifx\csname h@bl\romannumeral\noinstrum@nt\endcsname\relax - % normal barline through staff - \raise\altportee\rlap{\vrule\@depth0pt \@width#1\@height\dimen@}% - \else - \expandafter\ifx\csname h@bl\romannumeral\noinstrum@nt\endcsname 2% - % dashed barline through staff - \raise\altportee\rlap{% - \vbox to \dimen@{% - \cleaders\vbox to 2\internote{\vss - \hrule\@width#1\@height\internote - \vss}% - \vfill}}% - \else - \expandafter\ifx\csname h@bl\romannumeral\noinstrum@nt\endcsname 3% - % dotted barline through staff - \raise\altportee\rlap{% - \vbox to \dimen@{% - \cleaders\vbox to 2\internote{\vss - \hbox to #1{\hss\tenrm.\hss}% - \vss}% - \vfill}}% - \fi - \fi - \fi - \count@portee - % barline above staff - \ifnum\noport@@<\st@ffs % not for topmost staff - \barline@depth\interportee - \advance\barline@depth -\dimen@ - \raise\altportee\hbox{\raise\dimen@\rlap{% - \expandafter\ifx\csname s@mb\romannumeral\noinstrum@nt\endcsname - \relax - % normal barline - \vrule\@height\barline@depth\@width#1\relax - \else - \expandafter\ifx\csname s@mb\romannumeral\noinstrum@nt\endcsname 2% - % dashed barline - \vbox to \barline@depth{% - \xleaders\vbox{\barlinedash{#1}}\vfill}% - \else - \expandafter\ifx\csname s@mb\romannumeral\noinstrum@nt\endcsname - 3% dotted barline - \vbox to \barline@depth{% - \xleaders\vbox{\barlinedots{#1}}\vfill}% - \fi - \fi - \fi}}% - \fi - \repeat - \endgroup} - - -% Activate individual barline processing -\def\indivbarrules{% - \let\writ@rule\rul@indiv - \sepbarrule 1} - -%== separates bar line of specified instrument from one of previous instrument -\def\sepbarrule#1{\expandafter\let\csname s@b\romannumeral#1\endcsname 1} - -%== connects bar line of specified instrument to one of previous instrument -% with dashed line -\def\condashbarrule#1{% - \ifnum#1>1 \expandafter\let\csname s@b\romannumeral#1\endcsname 2\fi} - -%== connects bar line of specified instrument to one of previous instrument -% with dotted line -\def\condotbarrule#1{% - \ifnum#1>1 \expandafter\let\csname s@b\romannumeral#1\endcsname 3\fi} - -%== connects bar line of specified instrument to one of previous instrument -\def\conbarrule#1{% - \ifnum#1>1 \expandafter\let\csname s@b\romannumeral#1\endcsname\relax\fi} - -%== hides bar line for specified instrument -\def\hidebarrule#1{\expandafter\let\csname h@bl\romannumeral#1\endcsname 1} - -%== dashes bar line for specified instrument -\def\showdashbarrule#1{\expandafter\let\csname h@bl\romannumeral#1\endcsname 2} - -%== dots bar line for specified instrument -\def\showdotbarrule#1{\expandafter\let\csname h@bl\romannumeral#1\endcsname 3} - -%== shows bar line for specified instrument -\def\showbarrule#1{\expandafter\let\csname h@bl\romannumeral#1\endcsname\relax} - -%== separates bar line within multistaff instrument -\def\sepmultibarrule#1{\expandafter\let\csname s@mb\romannumeral#1\endcsname 1} - -%== dashes bar line between staves of multistaff instrument -\def\condashmultibarrule#1{% - \expandafter\let\csname s@mb\romannumeral#1\endcsname 2} - -%== dots bar line between staves of multistaff instrument -\def\condotmultibarrule#1{% - \expandafter\let\csname s@mb\romannumeral#1\endcsname 3} - -%== shows bar line between staves of multistaff instrument -\def\conmultibarrule#1{% - \expandafter\let\csname s@mb\romannumeral#1\endcsname\relax} - -% set barlines for all instruments together -\def\allbarrules#1{\n@loop#1\noinstrum@nt\repeat} - - -\makeatother -\endinput - -%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% - -% Here comes an example of how to use these macros - -\input musixtex -\input musixdbr - -\instrumentnumber4 -\setstaffs23 -\setstaffs32 -\setlines14 -\setsize2\tinyvalue - -\indivbarrules - -\startpiece - % normal barlines - \bar - % barlines on staves - \allbarrules\sepbarrule - \allbarrules\sepmultibarrule - \allbarrules\showbarrule - \bar - % barlines between staves - \allbarrules\conbarrule - \allbarrules\conmultibarrule - \allbarrules\hidebarrule - \bar - % dashed barlines on staves - \allbarrules\sepbarrule - \allbarrules\sepmultibarrule - \allbarrules\showdashbarrule - \bar - % dashed barlines between staves - \allbarrules\condashbarrule - \allbarrules\condashmultibarrule - \allbarrules\hidebarrule - \bar - % dotted barlines on staves - \allbarrules\sepbarrule - \allbarrules\sepmultibarrule - \allbarrules\showdotbarrule - \bar - % dotted barlines between staves - \allbarrules\condotbarrule - \allbarrules\condotmultibarrule - \allbarrules\hidebarrule - \bar - % a wild mixture of all - \showdotbarrule1\hidebarrule2\showdashbarrule3\showbarrule4% - \condashbarrule2\conbarrule3\condotbarrule4% - \condashmultibarrule2\sepmultibarrule3% - \bar - % conventional ending - \allbarrules\showbarrule - \allbarrules\conbarrule - \allbarrules\conmultibarrule -\Endpiece -\bye |