Work on held item positioning

src/Picture/Base.hs

@@ -41,6 +41,8 @@ module Picture.Base
     , setLayer
     , mirroryz
     , mirrorxz
+    , overPos
+    , picMap
     )
   where
 import Geometry
@@ -62,6 +64,7 @@ picFormat :: [Verx] -> Picture
 picFormat = id
 
 picMap :: (Verx -> Verx) -> Picture -> Picture
+{-# INLINE picMap #-}
 picMap = map
 
 -- | Expects clockwise input.