Re: creating a rhythm click track

[Johan Vromans]

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