On Mon, Apr 15, 2013 at 11:00 PM, Johan Vromans
<address@hidden> wrote:
Paul Malcolm <
address@hidden> writes:
> Or maybe there is a much simpler better way to do this ?
I often do this with music that has a chords track.
makeUnfold =
#(define-music-function (parser location name mus) (ly:music? ly:music?)
(let ((r (make-repeated-music "unfold")))
(set! (ly:music-property r 'element) mus)
(set! (ly:music-property r 'repeat-count)
(ly:moment-main-numerator (ly:music-length name)))
r))
harmonics = \chordmode {
c2 g | c g | f1 | c2 g |
}
% Create metronome ticks. This example assumes 4/4 .
ticktock = \drummode {
\makeUnfold \unfoldRepeats \harmonics {
hiwoodblock 4 lowoodblock lowoodblock lowoodblock
}
}
\harmonics goes in a Chord staff, and \ticktock goes in a DrumStaff.
HTH,
-- Johan