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
@@ -39,9 +37,9 @@ basicCrShape cr
     | otherwise =
         scaleSH (V3 crsize crsize crsize) $
             mconcat
-                [  colorSH (_skinHead cskin) . translateSHz 20 $ scalp cr
-                ,  colorSH (_skinUpper cskin) $ upperBody cr
-                ,  rotmdir $ colorSH (_skinLower cskin) $ feet cr
+                [ colorSH (_skinHead cskin) . translateSHz 20 $ scalp cr
+                , colorSH (_skinUpper cskin) $ upperBody cr
+                , rotmdir $ colorSH (_skinLower cskin) $ feet cr
                 ]
   where
     cskin = crShape $ _crType cr
@@ -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