patch::: 1.3.95.jcn3

[lilypond.git] / scm / lily.scm

diff --git a/scm/lily.scm b/scm/lily.scm
index 38e96e741ffe830ffbe7ac47dc6ee36825b7831e..ce685a87d858736e48efab1a08232ba4500e1d29 100644 (file)
--- a/scm/lily.scm
+++ b/scm/lily.scm
@@ -223,8 +223,8 @@
   (define (char i)
     (string-append "\\char" (inexact->string i 10) " "))
   
-  (define (dashed-line thick on off w)
-    (embedded-ps ((ps-scm 'dashed-line) thick on off w)))
+  (define (dashed-line thick on off dx dy)
+    (embedded-ps ((ps-scm 'dashed-line) thick on off dx dy)))
 
   (define (decrescendo thick w h cont)
     (embedded-ps ((ps-scm 'decrescendo) thick w h cont)))
@@ -504,9 +504,11 @@
      (number->string (* 10 thick))     ;UGH.  10 ?
      " ] 0 draw_dashed_slur"))
 
-  (define (dashed-line thick on off width)
+  (define (dashed-line thick on off dx dy)
     (string-append 
-     (number->string width) 
+     (number->string dx)
+     " "
+     (number->string dy)
      " "
      (number->string thick) 
      " [ "