summaryrefslogtreecommitdiff
path: root/macros/musixtex/tex/musixdbr.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-01-30 03:00:44 +0000
committerNorbert Preining <norbert@preining.info>2024-01-30 03:00:44 +0000
commit084f5d8435744b7ea7ef487ec111a7bfd100ed62 (patch)
treed4e91f6ef6d075509a2b33942f57337725089951 /macros/musixtex/tex/musixdbr.tex
parent6c43653052d016d5913aabb728c484f0e62b4754 (diff)
CTAN sync 202401300300
Diffstat (limited to 'macros/musixtex/tex/musixdbr.tex')
-rw-r--r--macros/musixtex/tex/musixdbr.tex250
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