[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: parenthesize chord
From: |
TaoCG |
Subject: |
Re: parenthesize chord |
Date: |
Sat, 22 Sep 2012 11:40:43 -0700 (PDT) |
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.