Gets rid of dashed-slur stencil command

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 0b4405072ea2a6edc370e8ca140a327c59cf4dfe..c4a15c52532ab34f65d6397253bca74aae0a84ca 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -92,15 +92,6 @@
    off
    phase))
 
-;; what the heck is this interface ?
-(define (dashed-slur thick on off l)
-  (ly:format "~l ~4f [ ~4f ~4f ] 0 draw_dashed_slur"
-         (let ((control-points (append (cddr l) (list (car l) (cadr l)))))
-           (map number-pair->string4 control-points))
-         thick
-         on
-         off))
-
 (define (dot x y radius)
   (ly:format " ~4l draw_dot" (list radius x y)))