- )))
-
-
-(define (parenthesize-element me grob)
- (let*
- ((x-ext (ly:grob-extent grob grob X))
- (y-center
- (interval-center (ly:grob-extent grob grob Y)))
- (font (ly:grob-default-font me))
- (lp (ly:font-get-glyph font "accidentals.leftparen"))
- (rp (ly:font-get-glyph font "accidentals.rightparen"))
- (padding (ly:grob-property grob 'padding 0.1))
- )
-
- (ly:stencil-add
- (ly:stencil-translate lp
- (cons
- (- (car x-ext) padding)
- y-center))
- (ly:stencil-translate rp
- (cons
- (+ (cdr x-ext) padding)
- y-center)))