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
@@ -16,7 +16,7 @@ splashScreen =
 initialWorld :: World
 initialWorld =
    defaultWorld
-        & cWorld . camPos . camZoom .~ 10
+        & cWorld . cwCamPos . camZoom .~ 10
        & cWorld . lWorld . creatures .~ IM.fromList [(0, startCr)]
        & cWorld . lWorld . worldEvents .~ SoundStart BackgroundSound (V2 0 0) foamSprayFadeOutS Nothing :
        [MakeStartCloudAt (V3 x y 5) | x <- [-5, -4 .. 5], y <- [-5, -4 .. 5]]