From 72cff9482b5681247ed0c7f1ddca160fda3d812d Mon Sep 17 00:00:00 2001
From: David Kastrup <dak@gnu.org>
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.5