From: David Kastrup <dak@gnu.org>
Date: Wed, 24 Apr 2013 11:07:55 +0000 (+0200)
Subject: Issue 3330: bracketify-stencil moves grob's refpoint
X-Git-Tag: release/2.17.19-1~5^2~7
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=72cff9482b5681247ed0c7f1ddca160fda3d812d;p=lilypond.git

Issue 3330: bracketify-stencil moves grob's refpoint

Also fixes parenthesize-stencil.
---

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))