From 57d1fcc909280f246fc9f1bf5a4340480837a499 Mon Sep 17 00:00:00 2001
From: Patrick McCarty <pnorcks@gmail.com>
Date: Sat, 1 Aug 2009 16:28:58 -0700
Subject: [PATCH] SVG backend: round values for rotate transformation

---
 scm/output-svg.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

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)))))
-- 
2.39.5