Add visuals for legs equipment

src/Dodge/Item/Equipment.hs

@@ -75,6 +75,8 @@ equipPosition :: EquipPosition -> Creature -> SPic -> SPic
 equipPosition epos cr sh = case epos of
     OnLeftWrist -> translateToLeftHand cr sh
     OnRightWrist -> translateToRightHand cr $ mirrorSPxz sh
+    OnLegs -> translateToLeftLeg cr sh <> 
+        translateToRightLeg cr (mirrorSPxz sh)
     _ -> sh
 
 flatShield :: Item
@@ -199,6 +201,7 @@ powerLegs = defaultEquipment
         {_eqUse = \_ _ -> id
         ,_eqSite = GoesOnLegs
         }
+    , _itEquipPict = pictureOnEquip (noPic $ translateSH (V3 0 4 0) $ colorSH yellow $ upperPrismPoly 3 $ rectWH 2 2)
     , _itEffect = NoItEffect
     , _itID = Nothing
     }