From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Tue, 23 Jan 2007 14:04:07 +0000 (+0100)
Subject: fix dashed-slur, and test for it in backend-exercise.ly
X-Git-Tag: release/2.11.14-1~57
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=a84b92c51137e92b1333d6fd36650e0de22c1b86;p=lilypond.git

fix dashed-slur, and test for it in backend-exercise.ly
---

diff --git a/input/regression/backend-excercise.ly b/input/regression/backend-excercise.ly
index 5c623f978b..f709dabb7b 100644
--- a/input/regression/backend-excercise.ly
+++ b/input/regression/backend-excercise.ly
@@ -23,7 +23,8 @@
       \makeClusters { <g a>8 <e a> <g a>4 }
       
       \override Glissando #'style = #'zigzag
-      f2 \glissando f'
+      \slurDashed
+      f2( \glissando f')
       \setEasyHeads
       f e 
     }
diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 7a2972525b..594acedea7 100644
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -122,7 +122,7 @@
 (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) " ")
+	    (map number-pair->string4 control-points))
 	  thick
 	  on
 	  off))