Add electrical bullets

src/Geometry/Vector.hs

@@ -161,3 +161,7 @@ xV2 (V2 x _) = x
 yV2 :: Point2 -> Float
 {-# INLINE yV2 #-}
 yV2 (V2 _ y) = y
+
+xyzV4 :: V4 a -> V3 a
+{-# INLINE xyzV4 #-}
+xyzV4 (V4 x y z _) = V3 x y z

src/Geometry/Vector3D.hs

@@ -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