> Date: Tue, 21 Sep 1999 14:27:44 +0200
> From: Nicolas ASPERT <[EMAIL PROTECTED]>
> taupin wrote:
>
> > > > voice 1 o o o | o o o |
> > > > voice 2 o o | o o | o o |
> > >
> >
> > This definitely NOT supported by MusiXTeX.
>
> That's what it seemed to me... The MusixTex doc did not mentioned such
> things. But do you think there is any hope for me to do this by any
> mean, even redefining some of the MusixTex macros, or using another
> "language" to write my score...
Sorry, Daniel! You are right that it isn't supported by MusiXTeX, but I
learned from *your* documentation, that it is a great advantage of
Music/XTeX that you can "put(ting) anything anywhere" :-)
\makeatletter
%
% The next two definitions should be improved to MusiXTeX standards
%
\def\mybarrule{\zcharnote0{\Comp@High\vrule depth \hlthick height \y@v width \lthick}}
\def\mywritebarno{\zcharnote{10}{\it\the\barno}}
\makeatother
%
\instrumentnumber3\sepbarrules
\setmeter1{{\meterfrac38}}\setmeter2{{\meterfrac24}}\setmeter3{{\meterfrac34}}
\startextract
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\znotes\mybarrule\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\znotes\mybarrule&\mybarrule\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\advance\barno1\znotes\mybarrule&&\mybarrule\mywritebarno\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\znotes\mybarrule&\mybarrule\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\znotes\mybarrule\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\bar
\NOtes\multnoteskip{.667}\ca{ccc}&\qa c&\ca{cc}\en
\addspace\beforeruleskip\znotes\mybarrule\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\znotes\mybarrule&\mybarrule\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\advance\barno1\znotes\mybarrule&&\mybarrule\mywritebarno\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\znotes\mybarrule&\mybarrule\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\addspace\beforeruleskip\znotes\mybarrule\en\addspace\afterruleskip
\NOTes\pt c\qa c&\qa c&\qa c\en
\endextract
\bye
-- Werner
