From: Thomas Morgan <tlm@ziiuu.com>
Date: Fri, 30 Oct 2009 21:02:38 +0000 (+0000)
Subject: Fix #807:  Inconsistent \bracket positioning.
X-Git-Tag: release/2.13.7-0~14
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=843635e6870c6501ae7ab43022e9e9492033910e;p=lilypond.git

Fix #807:  Inconsistent \bracket positioning.
---

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 94332b31b4..0393c61749 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -62,12 +62,12 @@
   "Add brackets around STIL, producing a new stencil."
 
   (let* ((ext (ly:stencil-extent stil axis))
-	 (lb (ly:bracket axis ext thick (- protusion)))
-	 (rb (ly:bracket axis ext thick protusion)))
+	 (lb (ly:bracket axis ext thick protusion))
+	 (rb (ly:bracket axis ext thick (- protusion))))
     (set! stil
-	  (ly:stencil-combine-at-edge stil (other-axis axis) 1 lb padding))
+	  (ly:stencil-combine-at-edge stil (other-axis axis) 1 rb padding))
     (set! stil
-	  (ly:stencil-combine-at-edge stil (other-axis axis) -1 rb padding))
+	  (ly:stencil-combine-at-edge lb (other-axis axis) 1 stil padding))
     stil))
 
 (define-public (make-line-stencil width startx starty endx endy)