Cleanup

src/Shape.hs

@@ -14,6 +14,7 @@ module Shape
     , polyCircx
     , scaleSH
     , colorSH
+    , overPosSH
     )
   where
 import Geometry
@@ -111,6 +112,10 @@ rotateSH :: Float -> Shape -> Shape
 {-# INLINE rotateSH #-}
 rotateSH a = overPos (rotate3 a)
 
+overPosSH :: (Point3 -> Point3) -> Shape -> Shape
+{-# INLINEABLE overPosSH #-}
+overPosSH = overPos
+
 rotateSHx :: Float -> Shape -> Shape
 {-# INLINE rotateSHx #-}
 rotateSHx a = overPos (rotate3x a)