From: Patrick McCarty <pnorcks@gmail.com>
Date: Sat, 1 Aug 2009 23:44:22 +0000 (-0700)
Subject: SVG backend: nitpick: use unary negation
X-Git-Tag: release/2.13.4-1~221
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=c28a21a139c65643afed3eab7b329ca7380c131f;p=lilypond.git

SVG backend: nitpick: use unary negation
---

diff --git a/scm/output-svg.scm b/scm/output-svg.scm
index 11223df43d..c916067bdf 100644
--- a/scm/output-svg.scm
+++ b/scm/output-svg.scm
@@ -509,7 +509,7 @@
 ;; rotate around given point
 (define (setrotation ang x y)
   (ly:format "<g transform=\"rotate(~4f, ~4f, ~4f)\">\n"
-	     (* -1 ang) x (* -1 y)))
+	     (- ang) x (- y)))
 
 (define (text font string)
   (dispatch `(fontify ,font ,(entity 'tspan (string->entities string)))))