parenthesizing very small objects returns ugly output (issue 96580044)

[thomasmorley65]

Reviewers: ,

Message:
Please review.

This patch seems to work (no regtest was triggered on my machine),
though, I'm not sure it's the best approach. Every suggestion is highly
appreciated.

Description:
parenthesizing very small objects returns ugly output

Issue 3930

Makes the thickness in make-parenthesis-stencil variable

Please review this at https://codereview.appspot.com/96580044/

Affected files (+1, -1 lines):
  M scm/stencil.scm


Index: scm/stencil.scm
diff --git a/scm/stencil.scm b/scm/stencil.scm
index  
f994b10c5c1bbe78e205f35bd52e1d7c2cda7e18..db5ff186c37d659a863e9cb0d77e65a0d764c61d  
100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -159,7 +159,7 @@ the more angular the shape of the parenthesis."
       upper-end-point
       ;; Step 1: move to lower end point.
       lower-end-point)
-     line-width
+     (* 2 half-thickness)
      (interval-widen x-extent (/ line-width 2))
      (interval-widen y-extent (/ line-width 2)))))