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
@@ -128,14 +128,6 @@ visibleWalls sp ep =
        . overlapSegWalls sp ep
        . wlsNearSeg sp ep

--visibleWalls :: Point2 -> Point2 -> World -> StreamOf (Point2,Wall)
--{-# INLINE visibleWalls #-}
--visibleWalls sp ep = S.take 1 <=<  -- hlint, was using join and fmap
--    ( S.span (not . wlIsOpaque . snd)
--    . sortStreamOn (dist sp . fst)
--    . overlapSegWalls sp ep
--    . wlsNearSeg sp ep    )
-
 allVisibleWalls :: World -> [(Point2, Wall)]
 {-# INLINE allVisibleWalls #-}
 allVisibleWalls w = concatMap (flip (visibleWalls vPos) w . (+.+ vPos)) $ nRays 20