X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-svg.scm;h=f1af2a927485f246f4374390e5f53fd41d53a3bb;hb=0a08e87869663425d8f5bcaef4197c3bae1b2de5;hp=93b27a68b11dddfecc1514a0fb666487cc2bde19;hpb=cb2a453c1957c882e2941de7eaccc351a8cf6d3b;p=lilypond.git

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 93b27a68b1..f1af2a9274 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -347,6 +347,26 @@
    `(rx . ,x-radius)
    `(ry . ,y-radius)))
 
+(define (oval x-radius y-radius thick is-filled)
+  (let ((x-max x-radius)
+        (x-min (- x-radius))
+        (y-max y-radius)
+        (y-min (- y-radius)))
+    (entity
+     'path ""
+     '(stroke-linejoin . "round")
+     '(stroke-linecap . "round")
+     `(fill . ,(if is-filled "currentColor" "none"))
+     `(stroke . "currentColor")
+     `(stroke-width . ,thick)
+     `(d . ,(ly:format "M~4f,~4f C~4f,~4f  ~4f,~4f ~4f,~4f S~4f,~4f ~4f,~4f" 
+               x-max 0
+               x-max y-max
+               x-min y-max
+               x-min 0
+               x-max y-min
+               x-max 0)))))
+
 (define (text font string)
   (dispatch `(fontify ,font ,(entity 'tspan (string->entities string)))))