From 72cff9482b5681247ed0c7f1ddca160fda3d812d Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Wed, 24 Apr 2013 13:07:55 +0200 Subject: [PATCH] Issue 3330: bracketify-stencil moves grob's refpoint Also fixes parenthesize-stencil. --- scm/stencil.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scm/stencil.scm b/scm/stencil.scm index c93dbd16ad..d7ba2e4079 100644 --- a/scm/stencil.scm +++ b/scm/stencil.scm @@ -90,7 +90,7 @@ a list of @var{paddings}." (set! stil (ly:stencil-combine-at-edge stil (other-axis axis) 1 rb padding)) (set! stil - (ly:stencil-combine-at-edge lb (other-axis axis) 1 stil padding)) + (ly:stencil-combine-at-edge stil (other-axis axis) -1 lb padding)) stil)) (define (make-parenthesis-stencil @@ -166,7 +166,7 @@ the more angular the shape of the parenthesis." y-extent half-thickness (- width) angularity)) (rp (make-parenthesis-stencil y-extent half-thickness width angularity))) - (set! stencil (ly:stencil-combine-at-edge lp X RIGHT stencil padding)) + (set! stencil (ly:stencil-combine-at-edge stencil X LEFT lp padding)) (set! stencil (ly:stencil-combine-at-edge stencil X RIGHT rp padding)) stencil)) -- 2.39.2