From: Carl Sorensen <c_sorensen@byu.edu>
Date: Mon, 8 Mar 2010 22:05:03 +0000 (-0700)
Subject: Fix extents on parenthesis stencil
X-Git-Tag: release/2.13.16-1~39^2~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f0907f21703f4b75f159baad96c79672f8cef916;p=lilypond.git

Fix extents on parenthesis stencil
---

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 84206422dc..ce544ef66b 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -95,6 +95,10 @@ the more angular the shape of the parenthesis."
 	  (if (< width 0)
 	      (- width)
 	      0))
+         ;; X value farthest from baseline on outside  of curve
+         (outer-x (+ base-x width))
+         ;; X extent of bezier sandwich centerline curves
+         (x-extent (ordered-cons base-x outer-x))
 	 (bottom-y (interval-start y-extent))
 	 (top-y (interval-end y-extent))
 
@@ -106,7 +110,6 @@ the more angular the shape of the parenthesis."
 			     (if (< width 0)
 				 half-thickness
 				 (- half-thickness))))
-	 (x-extent (ordered-cons base-x outer-control-x))
 
 	 ;; Vertical distance between a control point
 	 ;; and the end point it connects to.