3 (define-music-function
(parser location music
) (ly
:music?
)
5 (equal?
(ly
:music-property music
'name
) 'EventChord
)
6 (set
! (ly
:music-property music
'elements
)
7 (append
(ly
:music-property music
'elements
)
8 (list
(make-music
'TextScriptEvent
'text
9 (markup
#:translate-scaled
(cons
4 0)
10 #:italic
"(ten.)"))))))