On 2018-06-04 12:09, Ben wrote:
Wow. Um, this is awesome. Yes it works beautifully. How difficult
would it be to allow this function to accept chords? Or would that
simply be best served as creating another function like \addTremChords
or something?
Not that hard. You just need to accept both NoteEvent and EventChord:
%%%%
\version "2.19.81"
addTremolos =
#(define-music-function (number music) (integer? ly:music?)
(music-map
(lambda (mus)
(if (or (eq? 'NoteEvent (ly:music-property mus 'name))
(eq? 'EventChord (ly:music-property mus 'name)))
(let ((art (ly:music-property mus 'articulations '())))
(ly:music-set-property!
mus
'articulations
(cons
(make-music
'TremoloEvent
'tremolo-type number)
art))))
mus)
music))
\addTremolos 16 { b' r a' <e' g'> }
%%%%
-- Aaron Hill
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
