Hi List,
I'd like to add glissandi to a group of notes except the last one.
Here's the function:
glissandi =
#(define-music-function (parser location music) (ly:music?)
"Add a glissando to all but last note"
(let ((all-but-last-note (drop-right (ly:music-property music 'elements))))
(set!
(ly:music-property all-but-last-note 'articulations)
(cons (make-music 'GlissandoEvent)
(ly:music-property all-but-last-note 'articulations)))
music))
\relative c' {
\glissandi { c d e f }
c
}
It seems that 'drop-right' is not the right procedure. What else should I use?