4 texidoc= "@cindex make-music Fingering
5 You can add various stuff to notes using @code{make-music}.
6 In this example, an extra fingering is attached to a note.
8 In general, first do a @code{display} of the music you want to
9 create, then write a function that will structure the music for you.
13 #(define (make-text-script x)
14 (make-music 'TextScriptEvent
16 'text (make-simple-markup x)))
18 #(define (add-text-script m x)
19 (if (equal? (ly:music-property m 'name) 'EventChord)
20 (set! (ly:music-property m 'elements)
21 (cons (make-text-script x)
22 (ly:music-property m 'elements)))
23 (let ((es (ly:music-property m 'elements))
24 (e (ly:music-property m 'element)))
25 (map (lambda (y) (add-text-script y x)) es)
27 (add-text-script e x))))
31 \applymusic #(lambda (x) (add-text-script x "6") (display-music x) x ) \notes { c'4-3 }
32 \paper{ raggedright = ##t }