4 lsrtags = "scheme-language"
7 You can add additional elements to notes using @code{map-some-music}. In this
8 example, an extra script is attached to a note.
10 In general, first do a @code{\\displayMusic} of the music you want to
11 create, then write a function that will work on the appropriate parts
14 doctitle = "Adding extra fingering with scheme"
18 #(define-music-function (parser location script music)
22 (define (append-script-at! prop)
23 (set! (ly:music-property mus prop)
24 (append (ly:music-property mus prop)
25 (list (ly:music-deep-copy script))))
27 (case (ly:music-property mus 'name)
29 (append-script-at! 'elements))
31 (append-script-at! 'articulations))
37 \addScript _6 { c'4-3 <c' e' g'> }