Tweak drawing of backpack equipment

2023-01-03 23:34:30 +00:00
parent 883e3513bc
commit ac8afe513b
9 changed files with 34 additions and 39 deletions
@@ -653,11 +653,6 @@ ppEvents w = IM.foldl' (flip $ \pp -> doPressPlateEvent (_ppEvent pp) pp) w $ w
 updateSeenWalls :: World -> World
 updateSeenWalls w = foldl' markWallSeen w (map (_wlID . snd) $ allVisibleWalls w)

--  where
--    f w' !i -- = w' & walls . ix i . wlSeen .~ True
--        = w' { _walls = IM.adjust mw i $ _walls w' }
--    mw wl = wl {_wlSeen = True}
-
 markWallSeen :: World -> Int -> World
 markWallSeen w i = w & cWorld . lWorld . seenWalls . at i .~ Just ()
 --markWallSeen !w !i = w & cWorld . lWorld . walls %~ IM.adjust markSeen i