From 843635e6870c6501ae7ab43022e9e9492033910e Mon Sep 17 00:00:00 2001 From: Thomas Morgan Date: Fri, 30 Oct 2009 21:02:38 +0000 Subject: [PATCH] Fix #807: Inconsistent \bracket positioning. --- scm/stencil.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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) -- 2.39.5