Re: Batch-apply tremolo markings? (Frescobaldi)

[Aaron Hill]

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