Implement telescoping inventory selection

2023-02-10 10:57:00 +00:00
parent c354949ca9
commit a8e00ac025
10 changed files with 172 additions and 64 deletions
@@ -15,7 +15,7 @@ renderInfoListAt :: Float -> Float -> Configuration -> CamPos -> (Point2, [Strin
 renderInfoListAt x y cfig cam (p, ss) =
    renderListAt x y cfig (zip ss (repeat white))
        <> winScale cfig (color white $ lConnect (V2 (x - hw) (hh -25 - y)) (worldPosToScreen cam p))
-        <> listCursorNSW x y cfig 0 white 19 (length ss)
+        <> listCursorNSW x y cfig 0 0 white 19 (length ss)
  where
    hw = halfWidth cfig
    hh = halfHeight cfig