Tweak drawing of backpack equipment

2023-01-03 23:34:30 +00:00
parent 883e3513bc
commit ac8afe513b
9 changed files with 34 additions and 39 deletions
@@ -40,17 +40,15 @@ equipItemSPic et _ = case et of
    POWERLEGS -> legsSPic yellow
    SPEEDLEGS -> legsSPic green
    JUMPLEGS -> legsSPic red
-    JETPACK ->
-        (,) emptySH $
-            setDepth 20 $
-                pictures [color yellow $ polygon $ reverse $ rectNSWE 5 (-5) (-4) (-4)]
+    JETPACK -> noPic $ colorSH yellow backpackShape
+    BATTERYPACK -> noPic $ colorSH blue backpackShape
    FUELPACK ->
-        (,) emptySH $
-            setDepth 20 $
-                --pictures [color yellow $ polygon $ reverse $ rectNSWE 5 (-5) (-11) (-3)]
-                pictures [color yellow $ polygon $ reverse $ polyCirc 3 5]
+        noPic $ colorSH yellow $ upperPrismPoly 10 $ polyCirc 3 5
    AUTODETECTOR dt -> noPic (colorSH (detectorColor dt) $ upperPrismPoly 3 $ rectWH 2 2)

+backpackShape :: Shape
+backpackShape = upperPrismPoly 10 $ rectNSWE 5 (-5) (-4) 4
+
 leftItemSPic :: LeftItemType -> Item -> SPic
 leftItemSPic lt _ = case lt of
    BLINKER -> defSPic