Add visuals for legs equipment

2022-05-22 23:55:10 +01:00
parent 1c038b79be
commit b71726d1ca
3 changed files with 27 additions and 3 deletions
@@ -60,7 +60,7 @@ autoSonar :: Item
 autoSonar = defaultEquipment
    { _itType = RADAR
    , _itName = "AUTOSONAR"
-    , _itEquipPict = \_ _ -> (,) emptySH blank
+    , _itEquipPict = shapeForWrist (colorSH red $ upperPrismPoly 3 $ rectWH 2 2)
    , _itEffect = autoSonarEffect
    , _itID = Nothing
    } & itUse . eqSite .~ GoesOnWrist
@@ -70,8 +70,7 @@ autoRadar :: Item
 autoRadar = defaultEquipment
    { _itType = RADAR
    , _itName = "AUTORADAR"
-    , _itEquipPict = pictureOnEquip $ noPic (colorSH yellow $ translateSH (V3 0 4 (-4)) $ upperPrismPoly 3 
-            $ rectWH 2 2)
+    , _itEquipPict = shapeForWrist (colorSH yellow $ upperPrismPoly 3 $ rectWH 2 2)
    , _itEffect = autoRadarEffect
    , _itID = Nothing
    } & itUse . eqSite .~ GoesOnWrist