Hi again!
> Here's something that works for arpeggios. The attached file is a bit
> large because I needed to include several functions from stencil.scm to
> draw the parentheses.
>
Oh, what ever was I thinking! No need at all for all that duplicated
code...
This is all you need:
\version "2.15.36"
\relative c' {
\override Arpeggio #'stencil = #(lambda (grob)
(parenthesize-stencil (ly:arpeggio::print grob) 0.1 0.5 0.5 0.2))
\override Arpeggio #'before-line-breaking = #(lambda (grob)
(set! (ly:grob-property grob 'X-extent)
(ly:stencil-extent (ly:grob-property grob 'stencil) X)))
\repeat unfold 4 {
<c g' e'>-\arpeggio
}
<cis dis fis gis cis dis gis>-\arpeggio
<cis dis fis gis cis dis>-\arpeggio
<cis dis fis gis cis>-\arpeggio
<cis dis fis gis>-\arpeggio
}
-David
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
