Make buttons have shape, expose multiple bugs

src/Geometry/Vector3D.hs

@@ -49,6 +49,12 @@ rotate3 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'
+  where 
+    (V2 y' z') = rotateV a (V2 y z)
+
 magV3 :: Point3 -> Float
 {-# INLINE magV3 #-}
 magV3 (V3 x y z) = sqrt $ x^i + y^i + z^i