Work on held item positioning

src/ShapePicture.hs

@@ -12,6 +12,7 @@ module ShapePicture
 --    , _spPicture
     , mirrorSPyz
     , mirrorSPxz
+    , overPosSP
     ) where
 import Shape
 import Picture
@@ -43,6 +44,10 @@ noShape = (mempty,)
 --emptyBlank :: SPic
 --emptyBlank = mempty
 
+overPosSP :: (Point3 -> Point3) -> SPic -> SPic
+{-# INLINE overPosSP #-}
+overPosSP f = bimap (overPosSH f) (picMap $ overPos f)
+
 translateSPf :: Float -> Float -> SPic -> SPic
 {-# INLINE translateSPf #-}
 translateSPf x y = bimap (translateSH (V3 x y 0)) (translate x y)