Refactor window size, update selection cursor on new screen

2023-03-25 09:27:27 +00:00
parent 20c05be23f
commit ea0c942887
57 changed files with 346 additions and 310 deletions
@@ -14,7 +14,7 @@ import Picture
 renderInfoListAt :: Float -> Float -> Configuration -> CamPos -> (Point2, [String]) -> Picture
 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))
+        <> color white (lConnect (V2 (x - hw) (hh -25 - y)) (worldPosToScreen cam p))
        <> listCursorNSW x y cfig 0 0 white 19 (length ss)
  where
    hw = halfWidth cfig