Tweak picture layers

src/Dodge/Creature/Picture.hs

@@ -29,7 +29,7 @@ basicCrPict
     -> Picture
 basicCrPict col cr w
     | dist (_crPos cr) (_cameraCenter w) > 1.5 * max (getWindowX w) (getWindowY w) = blank 
-    | otherwise = pictures $
+    | otherwise = setLayer 0 $ pictures $
         targetingPic ++
         [ tr . setDepth 0 $ color yellow $ circleSolid 10
         , tr . piercingMod $ bluntScale $ naked col cr
@@ -174,4 +174,5 @@ circLine :: Float -> Picture
 circLine x = line [(0,0),(x,0)]
 
 picAtCrPos :: Picture -> Creature -> World -> Picture
+{-# INLINE picAtCrPos #-}
 picAtCrPos thePic cr _ = uncurry translate (_crPos cr) $ rotate (_crDir cr) thePic