diff options
-rw-r--r-- | Spear/Math/Spatial3.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Spear/Math/Spatial3.hs b/Spear/Math/Spatial3.hs index e0069b0..2027514 100644 --- a/Spear/Math/Spatial3.hs +++ b/Spear/Math/Spatial3.hs | |||
@@ -42,7 +42,7 @@ class Spatial3 s where | |||
42 | -- | Rotate the spatial about the given axis. | 42 | -- | Rotate the spatial about the given axis. |
43 | rotate :: Vector3 -> Float -> s -> s | 43 | rotate :: Vector3 -> Float -> s -> s |
44 | rotate axis a s = | 44 | rotate axis a s = |
45 | let t = transform s | 45 | let t = transform s |
46 | axis' = M.inverseTransform t `M.muld` axis | 46 | axis' = M.inverseTransform t `M.muld` axis |
47 | in setTransform (t * M.axisAngle axis' a) s | 47 | in setTransform (t * M.axisAngle axis' a) s |
48 | 48 | ||