[elpa] externals/svg-lib 11bc5dc 28/32: Make stroke to be fully contained inside the svg

[ELPA Syncer]

branch: externals/svg-lib
commit 11bc5dc99d8da846e7670d693ce5a8df6ddc8abd
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Make stroke to be fully contained inside the svg
---
 svg-lib.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/svg-lib.el b/svg-lib.el
index 815f088..fd1e6aa 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -291,7 +291,7 @@ and style elements ARGS."
 
          (cx              (/ svg-width  2))
          (cy              (/ svg-height 2))
-         (radius          (/ tag-height 2))
+         (radius          (- (/ tag-height 2) (/ stroke 2)))
 
          (iradius         (- radius stroke (/ padding 2)))
 
@@ -321,6 +321,7 @@ and style elements ARGS."
     (svg-image svg :scale 1 :ascent 'center)))
 
 
+
 ;; Create a progress bar
 ;; ---------------------------------------------------------------------
 (defun svg-lib-progress-bar (value &optional style &rest args)