Hi Harm,
2015-01-15 3:22 GMT+01:00 Thomas Morley <[email protected]>:
> 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
_______________________________________________
lilypond-user mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/lilypond-user
