From cbb8316fdb6fca93b74108c212d1b1b3d20c87d2 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Fri, 19 Mar 2004 17:47:37 +0000 Subject: [PATCH] * scm/output-ps.scm (polygon): Fix: add spaces. --- ChangeLog | 2 ++ scm/output-ps.scm | 30 +++++++++++------------------- 2 files changed, 13 insertions(+), 19 deletions(-) diff --git a/ChangeLog b/ChangeLog index 72403fee62..6a562d0e59 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2004-03-19 Jan Nieuwenhuizen + * 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 37b33d9987..f3f2cc97b5 100644 --- 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")) -- 2.39.5