Add general smooth scrolling, move camera into world

2023-03-26 20:09:00 +01:00
parent 73e742e1a2
commit 07a1d71039
32 changed files with 154 additions and 131 deletions
@@ -16,7 +16,7 @@ splashScreen =
 initialWorld :: World
 initialWorld =
    defaultWorld
-        & cWorld . cwCam . camZoom .~ 10
+        & wCam . 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]]