Make buttons have shape, expose multiple bugs

src/Shape.hs

@@ -10,6 +10,7 @@ module Shape
     , translateSHz
     , translateSHf
     , rotateSH
+    , rotateSHx
     , scaleSH
     , colorSH
     )
@@ -104,6 +105,10 @@ rotateSH :: Float -> Shape -> Shape
 {-# INLINE rotateSH #-}
 rotateSH a = overPos (rotate3 a)
 
+rotateSHx :: Float -> Shape -> Shape
+{-# INLINE rotateSHx #-}
+rotateSHx a = overPos (rotate3x a)
+
 scaleSH :: Point3 -> Shape -> Shape
 {-# INLINE scaleSH #-}
 scaleSH (V3 a b c) = overPos (\(V3 x y z) -> V3 (x*a) (y*b) (z*c))