Refactor item drawing

2021-10-01 23:01:36 +01:00
parent 5f17841811
commit 8c1496e140
28 changed files with 248 additions and 185 deletions
@@ -49,6 +49,12 @@ rotate3 a (V3 x y z) = V3 x' y' z
  where 
    (V2 x' y') = rotateV a (V2 x y)

+rotate3z :: Float -> Point3 -> Point3
+{-# INLINE rotate3z #-}
+rotate3z a (V3 x y z) = V3 x' y' z
+  where 
+    (V2 x' y') = rotateV a (V2 x y)
+
 rotate3x :: Float -> Point3 -> Point3
 {-# INLINE rotate3x #-}
 rotate3x a (V3 x y z) = V3 x y' z'