Re: arpeggioArrowUp

[Pierre Perol-Schneider]

Hi Harm,

2015-01-15 3:22 GMT+01:00 Thomas Morley <address@hidden>:

 

foo =
#(define-music-function (parser location mus)(ly:music?)
  (music-map
    (lambda (m)
      (if (music-is-of-type? m 'arpeggio-event)
          (make-music
             'ArpeggioEvent
             'tweaks
             (list
               (cons 'arpeggio-direction
                     (ly:music-property m 'direction))))
          m))
    mus))


\foo
\relative c'' {
  \mark "sort of post-processing"
  <g b d g>4\arpeggio
  <g b d g>4^\arpeggio
  <g b d g>4_\arpeggio
}

I like this one.

Cheers,
Pierre