Fix bug when forming convex hull of game room bounds

src/Dodge/Creature/Picture.hs

@@ -6,6 +6,7 @@ module Dodge.Creature.Picture
     ( basicCrPict
     , circLine
     , picAtCrPos
+    , shapeAtCrPos
     , picAtCrPosNoRot
     ) where
 import Dodge.Data
@@ -47,6 +48,12 @@ basicCrPict col cr w = (,) (basicCrShape col cr) $ pictures $
     tr = uncurryV translate (_crPos cr) 
     rotdir = rotate (_crDir cr)
 
+shapeAtCrPos :: Shape -> Creature -> World -> SPic
+shapeAtCrPos sh cr _ = 
+    ( uncurryV translateSHf (_crPos cr) $ rotateSH (_crDir cr) sh
+    , mempty
+    )
+
 basicCrShape 
     :: Color    -- ^ Creature color
     -> Creature