1 #(ly
:set-option
'old-relative
)
6 texidoc
= "@cindex Add Stacato
7 Using make-music, you can add various stuff to notes. Here
8 is an example how to add staccato dots. Note: for this simple case
9 one would not use scm constructs. See separate-staccato.ly first.
13 #(define
(make-script x
)
14 (let
((m
(make-music-by-name
'ArticulationEvent
)))
15 (ly
:set-mus-property
! m
'articulation-type x
)
18 #(define
(add-script m x
)
20 (equal?
(ly
:get-mus-property m
'name
) 'EventChord
)
21 (ly
:set-mus-property
! m
'elements
23 (ly
:get-mus-property m
'elements
))))
26 #(define
(add-staccato m
)
27 (add-script m
"staccato"))
31 a b \apply #(lambda
(x
) (music-map add-staccato x
)) { c c }
33 \paper{ raggedright
= ##t
}