Space zooms to position on carte

2021-04-20 20:11:15 +02:00
parent 732e5281a8
commit 7c0fbe0ce2
2 changed files with 13 additions and 7 deletions
@@ -99,9 +99,9 @@ ppEvents w = IM.foldr' (\pp w -> _ppEvent pp pp w) w $ _pressPlates w
 updateSeenWalls :: World -> World
 updateSeenWalls w = foldr markSeen w wallsToUpdate
    where yPos = _crPos $ _creatures w IM.! 0
-          wallsToUpdate = map _wlID $ IM.elems $ wallsNearPoint yPos w
--          wallsToUpdate = concatMap (\p -> collidePointFindWalls yPos (yPos +.+p) $ wallsAlongLine yPos (yPos +.+ p) w)
--                                   $ nRays 60
+--          wallsToUpdate = map _wlID $ IM.elems $ wallsNearPoint yPos w
+          wallsToUpdate = concatMap (\p -> collidePointFindWalls yPos (yPos +.+p) $ wallsAlongLine yPos (yPos +.+ p) w)
+                                   $ nRays 60
          markSeen i = set (walls . ix i . wlSeen) True

 setTestStringIO :: IO World -> IO World