Cleanup creature drawing

src/Dodge/Creature/Picture.hs

@@ -9,10 +9,10 @@ module Dodge.Creature.Picture (
     deadFeet,
 ) where
 
-import Dodge.Creature.Radius
-import Dodge.Creature.Shape
 import Control.Lens
 import Dodge.Creature.HandPos (translateToLeftHand, translateToRightHand)
+import Dodge.Creature.Radius
+import Dodge.Creature.Shape
 import Dodge.Creature.Test
 import Dodge.Damage
 import Dodge.Data.Creature
@@ -26,9 +26,7 @@ import Shape
 import ShapePicture
 
 basicCrPict :: Creature -> SPic
-basicCrPict cr =
-    uncurryV translateSPxy (_crPos cr) . rotateSP (_crDir cr) $ drawEquipment cr
-        <> noPic ( basicCrShape cr)
+basicCrPict cr = drawEquipment cr <> noPic (basicCrShape cr)
 
 crCamouflage :: Creature -> CamouflageStatus
 crCamouflage _ = FullyVisible
@@ -57,9 +55,7 @@ feet cr = case cr ^? crStance . carriage of
     Just (Walking sa RightForward) ->
         translateSHxy (- f sa) off aFoot
             <> translateSHxy (f sa) (- off) aFoot
-    _ ->
-        translateSHxy 0 off aFoot
-            <> translateSHxy 0 (- off) aFoot
+    _ -> translateSHxy 0 off aFoot <> translateSHxy 0 (- off) aFoot
   where
     aFoot = upperPrismPolyST 10 $ polyCirc 3 4
     off = 5

src/Dodge/Render/ShapePicture.hs

@@ -37,11 +37,10 @@ worldSPic cfig u =
     pointIsClose = cullPoint cfig w
 
 drawCreature :: Creature -> SPic
-drawCreature cr = case cr ^. crType of
-    BarrelCrit{} -> 
-            uncurryV translateSPxy (_crPos cr) $ rotateSP (_crDir cr)
-            $ barrelShape
-    LampCrit{_lampHeight = h} -> uncurryV translateSPxy (_crPos cr) $ rotateSP (cr ^. crDir)$ lampCrSPic h
+drawCreature cr = uncurryV translateSPxy (_crPos cr) . rotateSP (_crDir cr) $
+    case cr ^. crType of
+        BarrelCrit{} -> barrelShape
+        LampCrit{_lampHeight = h} -> lampCrSPic h
         _ -> basicCrPict cr
 
 barrelShape :: SPic