From: Patrick McCarty <pnorcks@gmail.com>
Date: Tue, 28 Jul 2009 19:57:58 +0000 (-0700)
Subject: SVG backend: more cleanups for path data
X-Git-Tag: release/2.13.4-1~266
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=7ca015f220c21f306e3eeffe640e914828d91bda;p=lilypond.git

SVG backend: more cleanups for path data
---

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)