m...@mikesolomon.org wrote
> One of many possible hacks...
>
> #(define (parenthesize-elements grob . rest)
> (let* ((refp (if (null? rest)
> grob
> (car rest)))
> (elts (ly:grob-object grob 'elements))
> (x-ext (ly:relative-group-extent elts refp X))
> (stencils (ly:grob-property grob 'stencils))
> (lp (car stencils))
> (rp (cadr stencils))
> (padding (ly:grob-property grob 'padding 0.5)))
>
> (ly:stencil-add
> (ly:stencil-translate-axis lp (- (car x-ext) padding) X)
> (ly:stencil-translate-axis rp (+ (cdr x-ext) padding) X))))
>
> \relative c' {
> \override NoteColumn #'stencils =
> #parentheses-item::calc-angled-bracket-stencils
> \override NoteColumn #'stencil = #parenthesize-elements
> }
Hmm... this looks weird.
pchord.pdf <http://lilypond.1069038.n5.nabble.com/file/n133333/pchord.pdf>
Thanks for the help though.
--
View this message in context:
http://lilypond.1069038.n5.nabble.com/parenthesize-chord-tp133330p133333.html
Sent from the User mailing list archive at Nabble.com.
_______________________________________________
lilypond-user mailing list
lilypond-user@gnu.org
https://lists.gnu.org/mailman/listinfo/lilypond-user
