Make parameters for display of list pictures more sensible

2023-05-10 02:25:38 +01:00
parent f569f3f173
commit 12aa1361eb
5 changed files with 29 additions and 31 deletions
@@ -15,7 +15,7 @@ renderInfoListAt :: Float -> Float -> Configuration -> Camera -> (Point2, [Strin
 renderInfoListAt x y cfig cam (p, ss) =
    toTopLeft cfig (renderListAt x y (zip ss (repeat white)))
        <> color white (lConnect (V2 (x - hw) (hh -25 - y)) (worldPosToScreen cam p))
-        <> toTopLeft cfig (listCursorNSW x y 0 0 white 19 (length ss))
+        <> toTopLeft cfig (translate x (-y) $ listCursorNSW 0 0 white 19 (length ss))
  where
    hw = halfWidth cfig
    hh = halfHeight cfig