;; command_element
(format #f "~{~a ~}" (map-in-order music->lily-string elements))))))))
-(define-display-method MultiMeasureRest (mmrest)
+(define-display-method MultiMeasureRestMusic (mmrest)
(let* ((dur (ly:music-property mmrest 'duration))
(ly (format #f "R~a~{~a ~}"
(duration->lily-string dur)
(types . (general-music melisma-span-event event))
))
- (MultiMeasureRest
+ (MultiMeasureRestMusic
. (
(description . "Rests that may be compressed into Multi rests.
(MultiMeasureRestEvent
. (
- (description . "Used internally by MultiMeasureRest to signal rests")
+ (description . "Used internally by MultiMeasureRestMusic to signal rests")
(types . (general-music event rhythmic-event multi-measure-rest-event))
))
music))
(define-ly-syntax (multi-measure-rest parser location duration articulations)
- (make-music 'MultiMeasureRest
+ (make-music 'MultiMeasureRestMusic
'articulations (map script-to-mmrest-text articulations)
'duration duration
'origin location))
;; mmrest
(define-public (make-multi-measure-rest duration location)
- (make-music 'MultiMeasureRest
+ (make-music 'MultiMeasureRestMusic
'origin location
'duration duration))