* scm/output-ps.scm (polygon): Fix: add spaces.

diff --git a/ChangeLog b/ChangeLog
index 72403fee62d2a07f65b3167cd34886c7df6f789b..6a562d0e59b3ce7bb6674ec988841c79338b9b89 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-03-19  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/output-ps.scm (polygon): Fix: add spaces.
+
        * scm/page-layout.scm (ly:optimal-page-breaks): Bugfix: underful
        solutions are now optimal too.
 

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 37b33d9987fa2e7dbfaa80ee4bd25d507a324f03..f3f2cc97b5f8e7e29aa82d5746eee6f28526c702 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -145,14 +145,11 @@
 
 (define (dashed-line thick on off dx dy)
   (string-append 
-   (ly:number->string dx)
-   " "
-   (ly:number->string dy)
-   " "
+   (ly:number->string dx) " "
+   (ly:number->string dy) " "
    (ly:number->string thick)
    " [ "
-   (ly:number->string on)
-   " "
+   (ly:number->string on) " "
    (ly:number->string off)
    " ] 0 draw_dashed_line"))
 
@@ -393,9 +390,8 @@
 
 (define (polygon points blotdiameter)
   (string-append
-   " "
-   (ly:numbers->string points)
-   (ly:number->string (/ (length points) 2))
+   (ly:numbers->string points) " "
+   (ly:number->string (/ (length points) 2)) " "
    (ly:number->string blotdiameter)
    " draw_polygon"))
 
@@ -439,16 +435,12 @@
 
 (define (zigzag-line centre? zzw zzh thick dx dy)
   (string-append
-    (if centre? "true" "false")
-    " "
-    (ly:number->string zzw)
-    " "
-    (ly:number->string zzh)
-    " "
-    (ly:number->string thick)
-    " 0 0 "
-    (ly:number->string dx)
-    " "
+    (if centre? "true" "false") " "
+    (ly:number->string zzw) " "
+    (ly:number->string zzh) " "
+    (ly:number->string thick) " "
+    "0 0 "
+    (ly:number->string dx) " "
     (ly:number->string dy)
     " draw_zigzag_line"))