Tweak weapon pictures

src/Geometry/Vector3D.hs

@@ -61,6 +61,18 @@ rotate3x a (V3 x y z) = V3 x y' z'
   where 
     (V2 y' z') = rotateV a (V2 y z)
 
+rotate3y :: Float -> Point3 -> Point3
+{-# INLINE rotate3y #-}
+rotate3y a (V3 x y z) = V3 x' y z'
+  where 
+    (V2 x' z') = rotateV a (V2 x z)
+
+vNormaly :: Point3 -> Point3
+{-# INLINE vNormaly #-}
+vNormaly (V3 x y z) = V3 x' y z'
+  where
+    V2 x' z' = vNormal $ V2 x z
+
 magV3 :: Point3 -> Float
 {-# INLINE magV3 #-}
 magV3 (V3 x y z) = sqrt $ x^i + y^i + z^i