Refactor creature draw, pass World to function

src/Dodge/Creature/Picture.hs

@@ -4,6 +4,7 @@ Takes into account damage etc. -}
 module Dodge.Creature.Picture
     ( basicCrPict
     , circLine
+    , picAtCrPos
     ) where
 import Dodge.Data
 --import Dodge.Creature.Stance.Data
@@ -19,8 +20,9 @@ import qualified Data.IntMap.Strict as IM
 basicCrPict 
     :: Color    -- ^ Creature color
     -> Creature 
+    -> World
     -> Picture
-basicCrPict col cr = pictures 
+basicCrPict col cr _ = uncurry translate (_crPos cr) $ rotate (_crDir cr) $ pictures 
     [ onLayer CrLayer . piercingMod $ bluntScale naked 
 --    , drawAwakeLevel cr
     , drawEquipment cr
@@ -72,3 +74,6 @@ drawEquipment cr = pictures $ map f $ IM.toList (_crInv cr)
 
 circLine :: Float -> Picture
 circLine x = line [(0,0),(x,0)]
+
+picAtCrPos :: Picture -> Creature -> World -> Picture
+picAtCrPos thePic cr _ = uncurry translate (_crPos cr) $ rotate (_crDir cr) thePic