From 7ca015f220c21f306e3eeffe640e914828d91bda Mon Sep 17 00:00:00 2001 From: Patrick McCarty Date: Tue, 28 Jul 2009 12:57:58 -0700 Subject: [PATCH] SVG backend: more cleanups for path data --- scm/output-svg.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scm/output-svg.scm b/scm/output-svg.scm index b64ab2a95e..3d76a482d7 100644 --- a/scm/output-svg.scm +++ b/scm/output-svg.scm @@ -78,7 +78,7 @@ (apply eo (cons entity attributes-alist)) string (ec entity)))) (define (offset->point o) - (ly:format "~4f ~4f " (car o) (- (cdr o)))) + (ly:format "~4f ~4f" (car o) (- (cdr o)))) (define (number-list->point lst) (define (helper lst) @@ -96,7 +96,7 @@ (string-append (if (not close) "M" "L") (offset->point c0) - "C" (apply string-append (map offset->point c123)) + "C" (string-join (map offset->point c123) " ") (if (not close) "" "z")))) (define (sqr x) -- 2.39.5