Tweak inventory display

src/Picture/Base.hs

@@ -27,6 +27,7 @@ module Picture.Base (
     text,
     hackBoldText,
     hackDropShadow,
+    hackInvertText,
     textRight,
     textJustifyLeft,
     textJustifyRight,
@@ -196,6 +197,10 @@ text :: String -> Picture
 {-# INLINE text #-}
 text = drawText 0
 
+hackInvertText :: Color -> Color -> String -> Picture
+hackInvertText c1 c2 s = color c2 (polygon $ rectNSWE 200 0 0 (fromIntegral (length s) * 100))
+    <> color c1 (text s)
+
 hackBoldText :: String -> Picture
 hackBoldText s = text s <> translate 10 0 (text s)