Merge branch 'master' into nested-bookparts

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 9274279a2cf732f61d2db234c88b5d9c586e7bfe..aef4802eb71d8b6e41391055a10640dcdf17fe48 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -30,7 +30,6 @@
            embedded-ps
            named-glyph
            no-origin
-            oval
            placebox
            polygon
            repeat-slash
@@ -199,14 +198,6 @@
 (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