SCM
Multi_measure_rest::set_spacing_rods (SCM smob)
{
- return SCM_UNSPECIFIED;
-
Grob*me = unsmob_grob (smob);
Spanner*sp = dynamic_cast<Spanner*> (me);
ADD_INTERFACE (Multi_measure_rest,"multi-measure-rest-interface",
- "A rest that spans a whole number of measures.\n",
+ "A rest that spans a whole number of measures.",
"expand-limit measure-count hair-thickness thick-thickness use-breve-rest");
;; adds the articulation script x to m if x is not #f.
(define (add-articulation-script m x)
(if x
- (if (and x (equal? (ly:music-name m) "Request_chord"))
+ (if (and x (equal? (ly:music-name m) "Event_chord"))
(ly:set-mus-property! m 'elements
(cons (make-articulation-script x) (ly:get-mus-property m 'elements))
)
;; converts a midi-pitched (ly/drumpitch.ly) file to paper output.
(define-public ((drums->paper kit) music)
(begin
- (if (equal? (ly:music-name music) "Request_chord")
+ (if (equal? (ly:music-name music) "Event_chord")
(set! music (make-drum-head kit music))
(let* ((es (ly:get-mus-property music 'elements))
(e (ly:get-mus-property music 'element))