From f0907f21703f4b75f159baad96c79672f8cef916 Mon Sep 17 00:00:00 2001 From: Carl Sorensen Date: Mon, 8 Mar 2010 15:05:03 -0700 Subject: [PATCH] Fix extents on parenthesis stencil --- scm/stencil.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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. -- 2.39.5