From f269814cb2a62ae5057b6cd5c136e868a0557670 Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Wed, 28 May 2008 23:48:38 -0300 Subject: [PATCH] Fix #268 (1) Include thickness in \draw-circle extents. --- scm/stencil.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 -- 2.39.5