\version "2.19.18" #(use-modules (srfi srfi-60)) music = { \time 3/4 s2.*5 \time 4/4 s1*3 \time 5/16 s16*5 \time 4/4 s1 } getMusicRest = #(define-music-function (parser location music)(ly:music?) (let* ((len (ly:music-length music)) (num (ly:moment-main-numerator len)) (den (ly:moment-main-denominator len)) ) (ly:message (format "length ~a/~a" num den)) (make-music 'SequentialMusic 'elements (list (make-music 'MultiMeasureRestMusic 'duration (ly:make-duration (log2-binary-factors den) 0 num) 'articulations '()))))) { << \getMusicRest \music \new Voice \music >> }