Zoom in when spawning

2025-12-06 00:04:00 +00:00
parent f9ce58b409
commit 189c3da84f
6 changed files with 75 additions and 72 deletions
@@ -13,7 +13,8 @@ respawn w = w & uncurry spawnAt (w ^. cWorld . lWorld . respawnPos)

 spawnAt :: Point2 -> Float -> World -> World
 spawnAt p d w = w
-    & wCam . camZoom .~ 1000
+    & wCam . camZoom .~ 0.000000001
+    & wCam . camDefaultZoom .~ 0.000000001
    & wSoundFilter .~ FilterBySoundOrigin (S.singleton SpawnSound)
 --        & cWorld . lWorld . creatures . at 0 %~ (fmap f . (<|> Just startCr))
        & cWorld . lWorld . creatures . at 0 ?~ f startCr