Add electrical bullets

2022-03-22 21:45:08 +00:00
parent bda65968b0
commit f030d8264f
10 changed files with 202 additions and 57 deletions
@@ -89,6 +89,10 @@ addZ :: Float -> Point2 -> Point3
 {-# INLINE addZ #-}
 addZ z (V2 x y) = V3 x y z

+v2z :: Point2 -> Float -> Point3
+{-# INLINE v2z #-}
+v2z (V2 x y) z = V3 x y z
+
 stripZ :: Point3 -> Point2
 {-# INLINE stripZ #-}
 stripZ (V3 x y _) = V2 x y