Color scroll lines in inventory display

2023-05-10 18:01:14 +01:00
parent 69fbf5926a
commit 312f342e09
4 changed files with 32 additions and 16 deletions
@@ -236,7 +236,8 @@ tweakString tp = rightPad 12 ' ' (show $ _tweakType tp) ++ " " ++ showTweak tp

 invHead :: Configuration -> String -> Picture
 invHead cfig =
-    translate (- halfWidth cfig + subInvX + 20) (halfHeight cfig - 40)
+    translateScreenPos cfig (fromTopLeft (V2 (subInvX + 20) 80))
+    -- (- halfWidth cfig + subInvX + 20) (halfHeight cfig - 80)
        . dShadCol white
        . scale 0.4 0.4
        . text