Re: parenthesize chord

[TaoCG]

address@hidden 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.