X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Foutput-ps.scm;h=9274279a2cf732f61d2db234c88b5d9c586e7bfe;hb=6851655b732bc93329b66f2a225c7a01dc74da73;hp=aef4802eb71d8b6e41391055a10640dcdf17fe48;hpb=e6cbbfc02ce33ad0b500a3af16e2351f21095f31;p=lilypond.git

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index aef4802eb7..9274279a2c 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -30,6 +30,7 @@
 	    embedded-ps
 	    named-glyph
 	    no-origin
+            oval
 	    placebox
 	    polygon
 	    repeat-slash
@@ -198,6 +199,14 @@
 (define (no-origin)
   "")
 
+(define (oval x-radius y-radius thick fill)
+  (ly:format
+   "~a ~4f ~4f ~4f draw_oval"
+   (if fill
+     "true"
+     "false")
+   x-radius y-radius thick))
+
 (define (placebox x y s) 
   (ly:format
 "~4f ~4f moveto