From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Thu, 29 May 2008 02:48:38 +0000 (-0300)
Subject: Fix #268 (1)
X-Git-Tag: release/2.11.48-1~24^2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=f269814cb2a62ae5057b6cd5c136e868a0557670;p=lilypond.git

Fix #268 (1)

Include thickness in \draw-circle extents.
---

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 536425b9c6..fb46ef7251 100644
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -80,10 +80,13 @@
 
 (define-public (make-circle-stencil radius thickness fill)
   "Make a circle of radius @var{radius} and thickness @var{thickness}"
+  (let*
+      ((out-radius (+ radius (/ thickness 2.0))))
+    
   (ly:make-stencil
    (list 'circle radius thickness fill) 
-   (cons (- radius) radius)
-   (cons (- radius) radius)))
+   (cons (- out-radius) out-radius)
+   (cons (- out-radius) out-radius))))
 
 (define-public (box-grob-stencil grob)
   "Make a box of exactly the extents of the grob.  The box precisely