release: 1.5.41

[lilypond.git] / scm / ps.scm

diff --git a/scm/ps.scm b/scm/ps.scm
index 3359c7f042f040dc40cac04785c8fef3725d4747..496bc521e602bf9d6d1af2a5aacb3e95047b427f 100644 (file)
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -129,11 +129,11 @@
 
 (define (dashed-line thick on off dx dy)
   (string-append 
-   (ly-number->string dx)
+   (ly-number->string (* dx (/ 72 72.27)))
    " "
    (ly-number->string dy)
    " "
-   (ly-number->string thick) 
+   (ly-number->string (* thick (/ 72 72.27))) 
    " [ "
    (ly-number->string on)
    " "