Camera position refactor

2022-10-28 15:32:46 +01:00
parent 27fe1c7a96
commit 2e7cd0aec2
24 changed files with 184 additions and 163 deletions
@@ -31,7 +31,7 @@ updateWheelEvent yi w = case w ^. cWorld . lWorld . hud . hudElement of
            (_, EquipOptions{}) -> scrollRBOption y w
            (Nothing, _) -> closeObjScrollDir y w
            (Just f, _) -> doHeldScroll f y (you w) w
-        | lbDown -> w & cWorld . lWorld . cwCam . cwcZoom +~ y
+        | lbDown -> w & cWorld . lWorld . camPos . camZoom +~ y
        | invKeyDown -> changeSwapInvSel yi w
        | otherwise -> stopSoundFrom (CrReloadSound 0) $ changeAugInvSel yi w
    DisplayInventory (TweakInventory mi)