\version "2.16.1" % skip count measures of signature frac taktSkip = #(define-music-function (parser location frac count)(fraction? integer?) (let ((nom (car frac)) (den (cdr frac))) (make-music 'SkipEvent 'duration (ly:make-duration (inexact->exact (/ (log den)(log 2))) 0 (* nom count) 1)))) % rest count measures of signature frac taktRest = #(define-music-function (parser location frac count)(fraction? integer?) (let ((nom (car frac)) (den (cdr frac))) (make-music 'MultiMeasureRestMusic 'duration (ly:make-duration (inexact->exact (/ (log den)(log 2))) 0 (* nom count) 1)))) % create time signature and then skip count measures of signature frac taktMeta = #(define-music-function (parser location frac count)(fraction? integer?) (let ((nom (car frac)) (den (cdr frac))) (make-music 'SequentialMusic 'elements (list (make-music 'TimeSignatureMusic 'beat-structure '() 'denominator den 'numerator nom) (make-music 'SkipEvent 'duration (ly:make-duration (inexact->exact (/ (log den)(log 2))) 0 (* nom count) 1)) )))) % example \new Staff << % global/meta part: 9 measures of 5/8 { \taktMeta 5/8 3 \bar "||" \taktMeta 3/4 6 \bar "|." } % the music: here just rests and skips { \taktRest 5/8 3 \taktRest 3/4 2 << { \taktSkip 3/4 2 } { s4^"skip 2 meas." } >> \taktRest 3/4 2 } >>