branch: externals/svg-lib
commit 11bc5dc99d8da846e7670d693ce5a8df6ddc8abd
Author: Nicolas P. Rougier <nicolas.roug...@inria.fr>
Commit: Nicolas P. Rougier <nicolas.roug...@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)
