patch::: 1.3.149.jcn3

[lilypond.git] / scm / ps.scm

diff --git a/scm/ps.scm b/scm/ps.scm
index 70a115d8c63b856d98fa44093fd1ea51ceeda823..008a6e7d674b28ac49ac07248a3d65dbdd1e6e60 100644 (file)
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -161,9 +161,12 @@
      " draw_bezier_sandwich"))
 
   (define (start-line height)
-         "\nstart-line {
+    (string-append
+     "\n"
+     (ly-number->string height)
+     " start-line {
 lilypondpaperoutputscale lilypondpaperoutputscale scale
-")
+"))
   
   (define (stem breapth width depth height) 
     (string-append (numbers->string (list breapth width depth height))