Cleanup

src/Dodge/Item/Draw/SPic.hs

@@ -30,7 +30,7 @@ equipItemSPic et _ = case et of
     MAGSHIELD -> defSPic
     FLAMESHIELD -> defSPic
     FRONTARMOUR ->
-        ( emptySH
+        ( mempty
         , setDepth 20 $
             pictures
                 [ color yellow $ thickArc 0 (pi / 2) 10 5
@@ -191,8 +191,8 @@ heldItemSPic ht it = case ht of
 torchShape :: Shape
 torchShape =
     colorSH blue $
-        translateSHf 0 1.5 side
-            <> translateSHf 0 (-1.5) side
+        translateSHxy 0 1.5 side
+            <> translateSHxy 0 (-1.5) side
             <> translateSHz 2.5 top
             <> translateSHz (-0.5) bot
             <> back
@@ -397,7 +397,7 @@ baseSMGShape = colorSH green $ upperPrismPoly 3 $ rectXH 20 2
 flamerPic :: Item -> SPic
 flamerPic it =
     ( colorSH yellow $
-        translateSHf tx ty (upperPrismPoly tz $ polyCirc 3 r)
+        translateSHxy tx ty (upperPrismPoly tz $ polyCirc 3 r)
             <> upperPrismPoly 5 (rectNESW 2 18 (-2) 0)
     , color black $ translate3 (V3 tx ty (tz + 0.01)) $ circleSolid (r * am)
     )