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