List rendering work

2023-05-05 10:22:46 +01:00
parent 988bb7591d
commit 865706df3b
7 changed files with 60 additions and 58 deletions
@@ -13,9 +13,9 @@ import Picture

 renderInfoListAt :: Float -> Float -> Configuration -> Camera -> (Point2, [String]) -> Picture
 renderInfoListAt x y cfig cam (p, ss) =
-    renderListAt x y cfig (zip ss (repeat white))
+    toTopLeft cfig (renderListAt x y (zip ss (repeat white)))
        <> color white (lConnect (V2 (x - hw) (hh -25 - y)) (worldPosToScreen cam p))
-        <> listCursorNSW x y cfig 0 0 white 19 (length ss)
+        <> toTopLeft cfig (listCursorNSW x y 0 0 white 19 (length ss))
  where
    hw = halfWidth cfig
    hh = halfHeight cfig