Fix extents on parenthesis stencil

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 84206422dcda99264a9f0f1e416a838f1d4d3ade..ce544ef66b3c4efab15e298b28331ad77f1ddd7a 100644 (file)
--- 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.