Merge branch 'master' into dev/texi2html

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 5b5217868caf4bef7ca986f64df2fa622421ae9c..aef4802eb71d8b6e41391055a10640dcdf17fe48 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -26,6 +26,7 @@
            dashed-slur
            dot
            draw-line
+            ellipse
            embedded-ps
            named-glyph
            no-origin
@@ -116,6 +117,14 @@
          (- x2 x1) (- y2 y1)
          x1 y1 thick))
 
+(define (ellipse x-radius y-radius thick fill)
+  (ly:format
+   "~a ~4f ~4f ~4f draw_ellipse"
+   (if fill
+     "true"
+     "false")
+   x-radius y-radius thick))
+
 (define (embedded-ps string)
   string)