On Thursday, January 29, 2004 at 9:02:40 AM, you wrote:
> Thanks for the quick help. I'm writing musixtex because it is part of
> a larger article in Latex. My problem is, that I want to put two rests
> one above the other for the two voices. None of them should be
> invisible. They should behave like \zcu a\cl c, i.e. one of them
> should be non-spacing, but visible.
> Gerhard
Hi Gerhard,
Here's my collection of vertically shiftable non-spacing rests, which
should behave in exactly the way you want!
Eva
***
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%
%% TRANSPOSABLE NON-SPACING RESTS
%%
%% (a) Shorthand for vertically shifting non-spacing crotchet, quaver,
%% semiquaver and demisemiquaver rests
%%
\def\liftqp#1{\raise#1\Interligne\rlap\qp}%
\def\liftds#1{\raise#1\Interligne\rlap\ds}%
\def\liftqs#1{\raise#1\Interligne\rlap\qs}%
\def\lifths#1{\raise#1\Interligne\rlap\hs}%
\def\liftdot#1{\raise#1\Interligne\rlap{\pt i}}%
%%
%% (b) And still shorter shorthand (I hate typing braces)
%%
%% semibreve rests
\def\wpr#1{\liftpause{#1}}%
\def\wpl#1{\liftpause{-#1}}%
%%
%% minim rests
\def\hpr#1{\lifthpause{#1}}%
\def\hpl#1{\lifthpause{-#1}}%
%%
%% crotchet rests
\def\qpr#1{\liftqp{#1}}%
\def\qpl#1{\liftqp{-#1}}%
%%
%% quaver rests
\def\dsr#1{\liftds{#1}}%
\def\dsl#1{\liftds{-#1}}%
%%
%% semiquaver rests
\def\qsr#1{\liftqs{#1}}%
\def\qsl#1{\liftqs{-#1}}%
%%
%% demisemiquaver rests
\def\hsr#1{\lifths{#1}}%
\def\hsl#1{\lifths{-#1}}%
%%
%% dotted minim rests
\def\hppr#1{\lifthpausep{#1}}%
\def\hppl#1{\lifthpausep{-#1}}%
%%
%% dotted crotchet rests
\def\qppr#1{\liftqp{#1}\liftdot{#1}}%
\def\qppl#1{\liftqp{-#1}\liftdot{-#1}}%
%%
%% dotted quaver rests
\def\dspr#1{\liftds{#1}\liftdot{#1}}%
\def\dspl#1{\liftds{-#1}\liftdot{-#1}}%
%%
%% dotted semiquaver rests
\def\qspr#1{\liftqs{#1}\liftdot{#1}}%
\def\qspl#1{\liftqs{-#1}\liftdot{-#1}}%
%%
%% dotted demisemiquaver rests
\def\hspr#1{\lifths{#1}\liftdot{#1}}%
\def\hspl#1{\lifths{-#1}\liftdot{-#1}}%
%% USAGE: * \qpr n raises a crotchet rest by n Interligne
%% * \qpl n lowers the same rest by n Interligne from its default height
%% (no need to type the minus sign)
%% * To get a non-spacing rest at default height, code \qpr 0 (or \qpl 0).
%% * The value of \Interligne need not be a whole number; things like
\qpr{1.4}
%% are possible if you need them.
%%
%% (c) Centred semibreve rests
%%
\def\Cpr#1{\centerbar{\liftpause{#1}}}%
\def\Cpl#1{\centerbar{\liftpause{-#1}}}%
%%
\def\cpr#1{\def\atnextbar{\znotes\Cpr#1\en}}%
\def\cpl#1{\def\atnextbar{\znotes\Cpl#1\en}}%
%% USAGE: \Notes...\en\cpr n\bar
%%
%% (d) Two stacked centred semibreve rests
\def\twocp#1#2{\def\atnextbar{\znotes\centerbar{\liftpause{#1}}\centerbar{\liftpause{#2}}\en}}%
%% USAGE: \Notes...\en\twocp{x}{y}\bar
%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
_______________________________________________
Tex-music mailing list
[EMAIL PROTECTED]
http://icking-music-archive.org/mailman/listinfo/tex-music
