From a42ca4a67ef9a163b7b31f866672e1d9eb9cfc0f Mon Sep 17 00:00:00 2001
From: Mike Solomon <mike@apollinemike.com>
Date: Mon, 6 Feb 2012 14:54:24 +0100
Subject: [PATCH] Gets rid of dashed-slur stencil command

---
 ps/music-drawing-routines.ps    | 15 ---------------
 scm/define-stencil-commands.scm |  1 -
 scm/output-ps.scm               |  9 ---------
 3 files changed, 25 deletions(-)

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index 06c1364873..7d491e5688 100644
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -280,21 +280,6 @@ bind def
 	[] 0 setdash % reset dash pattern
 } bind def
 
-/draw_dashed_slur % controls thickness dash
-{
-gsave
-	currentpoint translate
-	1 setlinecap
-	1 setlinejoin
-	setdash
-	setlinewidth
-	8 2 roll
-	moveto
-	curveto
-	stroke
-grestore
-} bind def
-
 /print_glyphs % w dx dy glyph print_glyphs
 {
 	{
diff --git a/scm/define-stencil-commands.scm b/scm/define-stencil-commands.scm
index 9b75373932..3e022f9678 100644
--- a/scm/define-stencil-commands.scm
+++ b/scm/define-stencil-commands.scm
@@ -26,7 +26,6 @@ defined in the output modules (@file{output-*.scm})."
     char
     circle
     dashed-line
-    dashed-slur
     dot
     draw-line
     ellipse
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 0b4405072e..c4a15c5253 100644
--- 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)))
 
-- 
2.39.5