From: Patrick McCarty <pnorcks@gmail.com>
Date: Sat, 1 Aug 2009 23:28:58 +0000 (-0700)
Subject: SVG backend: round values for rotate transformation
X-Git-Tag: release/2.13.4-1~222
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=57d1fcc909280f246fc9f1bf5a4340480837a499;p=lilypond.git

SVG backend: round values for rotate transformation
---

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index bc6568a4c7..11223df43d 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -503,15 +503,13 @@
 	  '(fill . "currentColor")))
 
 (define (setcolor r g b)
-  (format "<g color=\"rgb(~a%,~a%,~a%)\">\n"
+  (format "<g color=\"rgb(~a%, ~a%, ~a%)\">\n"
 	  (* 100 r) (* 100 g) (* 100 b)))
 
 ;; rotate around given point
 (define (setrotation ang x y)
-  (format "<g transform=\"rotate(~a,~a,~a)\">\n"
-    (number->string (* -1 ang))
-    (number->string x)
-    (number->string (* -1 y))))
+  (ly:format "<g transform=\"rotate(~4f, ~4f, ~4f)\">\n"
+	     (* -1 ang) x (* -1 y)))
 
 (define (text font string)
   (dispatch `(fontify ,font ,(entity 'tspan (string->entities string)))))