don't multiply the x axis by -1 in rotate

This commit is contained in:
Renaud Casenave-Péré 2015-08-28 15:04:52 +02:00
parent bf6352369b
commit 7966bb14a1

View file

@ -92,7 +92,7 @@
(:documentation "Rotate object along the x, y and z axis"))
(defmethod rotate ((object object) &key (dx 0.0) (dy 0.0) (dz 0.0))
(with-accessors ((dir dir)) object
(setf dir (q* (quat (vec 0.0 1.0 0.0) (deg-to-rad (- dx)))
(setf dir (q* (quat (vec 0.0 1.0 0.0) (deg-to-rad dx))
(quat (vec 1.0 0.0 0.0) (deg-to-rad dy))
(quat (vec 0.0 0.0 1.0) (deg-to-rad dz)) dir))))