summaryrefslogtreecommitdiff
path: root/macros/musixtex/tex/musixdbr.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/musixtex/tex/musixdbr.tex
Initial commit
Diffstat (limited to 'macros/musixtex/tex/musixdbr.tex')
-rw-r--r--macros/musixtex/tex/musixdbr.tex250
1 files changed, 250 insertions, 0 deletions
diff --git a/macros/musixtex/tex/musixdbr.tex b/macros/musixtex/tex/musixdbr.tex
new file mode 100644
index 0000000000..2ad82ca662
--- /dev/null
+++ b/macros/musixtex/tex/musixdbr.tex
@@ -0,0 +1,250 @@
+\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