Fix ROTATE-BY

Author: Shinmera

renderers/simple/transforms.lisp

@@ -188,26 +188,35 @@
 
 (defun rotate-by (renderer phi)
   (let* ((matrix (transform-matrix renderer))
+         (phi (float phi 0f0))
          (x (float (cos phi) 0f0))
          (y (float (sin phi) 0f0)))
     (declare (type matrix matrix))
     (declare (optimize speed))
-    (setf (mref matrix 0 0) (+ (* (mref matrix 0 0) x)
-                               (* (mref matrix 0 1) y)))
-    (setf (mref matrix 0 1) (- (* (mref matrix 0 1) x)
-                               (* (mref matrix 0 0) y)))
-    (setf (mref matrix 1 0) (+ (* (mref matrix 1 0) x)
-                               (* (mref matrix 1 1) y)))
-    (setf (mref matrix 1 1) (- (* (mref matrix 1 1) x)
-                               (* (mref matrix 1 0) y)))
-    (setf (mref matrix 2 0) (+ (* (mref matrix 2 0) x)
-                               (* (mref matrix 2 1) y)))
-    (setf (mref matrix 2 1) (- (* (mref matrix 2 1) x)
-                               (* (mref matrix 2 0) y)))
-    (setf (mref matrix 3 0) (+ (* (mref matrix 3 0) x)
-                               (* (mref matrix 3 1) y)))
-    (setf (mref matrix 3 1) (- (* (mref matrix 3 1) x)
-                               (* (mref matrix 3 0) y)))
+    (let ((c00 (+ (* (mref matrix 0 0) x)
+                  (* (mref matrix 0 1) y)))
+          (c01 (- (* (mref matrix 0 1) x)
+                  (* (mref matrix 0 0) y)))
+          (c10 (+ (* (mref matrix 1 0) x)
+                  (* (mref matrix 1 1) y)))
+          (c11 (- (* (mref matrix 1 1) x)
+                  (* (mref matrix 1 0) y)))
+          (c20 (+ (* (mref matrix 2 0) x)
+                  (* (mref matrix 2 1) y)))
+          (c21 (- (* (mref matrix 2 1) x)
+                  (* (mref matrix 2 0) y)))
+          (c30 (+ (* (mref matrix 3 0) x)
+                  (* (mref matrix 3 1) y)))
+          (c31 (- (* (mref matrix 3 1) x)
+                  (* (mref matrix 3 0) y))))
+      (setf (mref matrix 0 0) c00)
+      (setf (mref matrix 0 1) c01)
+      (setf (mref matrix 1 0) c10)
+      (setf (mref matrix 1 1) c11)
+      (setf (mref matrix 2 0) c20)
+      (setf (mref matrix 2 1) c21)
+      (setf (mref matrix 3 0) c30)
+      (setf (mref matrix 3 1) c31))
     renderer))
 
 (defun orthographic-matrix (w h &optional (target (matrix)))