Re: parenthesize chord

[address@hidden]

On 22 sept. 2012, at 20:11, TaoCG <address@hidden> wrote:

> Is it possible to put put single parentheses around a chord?
> If I parenthesize a chord each note gets a pair of parentheses on its own.
> 
> 

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
<a c e g>
}