On Mon 13 Nov 2017 at 10:55:06 (+0100), Werner Arnhold wrote:
> Hi, list members,
>
> I try to typeset an old choral work with hemiolic measures. That leads
> me to a 3/4 Mesure sometimes changed to a 3/2 measure without special
> indication and immediately back again. So I wanted to follow a printed
> example with two time signatures at the beginning of the first line.
The word you want to search on is alternatingTimeSignatures
but I've only turned up
https://lists.gnu.org/archive/html/lilypond-devel/2014-05/msg00045.html
which might not be up-to-date. Urs may reply with a better version.
The one I use is attached.
Cheers,
David.
\version "2.19.49" % 2015-12-15
%% Print multiple time signatures at the start.
%% Then omit printing time signatures at will,
%% or continue to print them.
%% To print the multiple time signatures:
%% \multiTimeSignatures #'((3 8) (4 8) (5 8))
%% To avoid printing time signatures when it changes:
%% \omit Score.TimeSignature
%% To restore normality:
%% \undo \omit Score.TimeSignature
multiTimeSignatures =
#(define-music-function (timesigs)(list?)
(_i "Print multiple time signatures. The argument is a Scheme list
of lists. Each list describes one fraction to be printed.
When the function has executed the first of the given time signatures
will be the effective @code{\\time}, while the following are simply graphical.
When using it you will want to use @code{\\omit Score.TimeSignature}
before the next use of @code{\\time}. Please note that this does not
perform any checks regarding the used time signatures, so you're
responsible yourself to write consistent music. To return to normal
use of time signatures use @code{\\undo \\omit Score.TimeSignature}.")
(let ((firstsig (cons
(caar timesigs)
(cadar timesigs))))
#{ \once\override Staff.TimeSignature.stencil =
#(lambda (grob)
(grob-interpret-markup grob
#{ \markup \override #'(baseline-skip . 0)
\number
#(map (lambda (x) #{ \markup \center-column #(map number->string x) #})
timesigs)
#}))
\time #firstsig #}))
%%
%{
\relative {
\multiTimeSignatures #'((3 8) (4 8) (5 8))
c'8 d e
\omit Score.TimeSignature
\time 4/8
f g a b
\time 5/8
c g c, f e
\time 3/8
d e f
g a b
\time 4/8
c b a b
\undo \omit Score.TimeSignature
\time 5/8
c b a g f
}
%}
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
