Fix #807: Inconsistent \bracket positioning.

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 94332b31b4895d22257022c3b79f000568b8b443..0393c617491a7b8dbabc8ab873f1a200ff10f746 100644 (file)
--- 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)