Refactor wall zoning, remove streaming

src/Dodge/Render/Walls.hs

@@ -1,6 +1,9 @@
 module Dodge.Render.Walls
     ( wallsToDraw
     ) where
+import Dodge.Zoning.World
+import Dodge.Zoning.Base
+import Dodge.Zoning.Wall
 import Dodge.Data
 import Dodge.Wall.Draw
 import Dodge.Zone
@@ -21,13 +24,26 @@ wallsToDraw w
     = ( wls, wins,spic)
   where
     f wl = (_wlLine wl, _wlColor wl)
-    (wls, wins, spic) = runIdentity $ L.purely S.fold_ 
+    (wls, wins, spic) = L.fold
         ((,,)
         <$> L.prefilter wlOpaqueDraw (L.premap f L.list)
         <*> L.prefilter wlSeeThroughDraw (L.premap f L.list)
         <*> L.premap getWallSPic L.mconcat
-        ) (S.concat $ S.mapMaybe g $ zoneOfSight wlZoneSize w)
-    g (V2 i j) = w ^? wlZoning . znObjects . ix i . ix j
+        ) (wlsFromIXs w $ zonesExtract (w ^. wlZoning) $ zoneOfSight' wlZoneSize w)
+--wallsToDraw
+--    :: World
+--    -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )
+--wallsToDraw w
+--    = ( wls, wins,spic)
+--  where
+--    f wl = (_wlLine wl, _wlColor wl)
+--    (wls, wins, spic) = runIdentity $ L.purely S.fold_ 
+--        ((,,)
+--        <$> L.prefilter wlOpaqueDraw (L.premap f L.list)
+--        <*> L.prefilter wlSeeThroughDraw (L.premap f L.list)
+--        <*> L.premap getWallSPic L.mconcat
+--        ) (S.concat $ S.mapMaybe g $ zoneOfSight wlZoneSize w)
+--    g (V2 i j) = w ^? wlZoning . znObjects . ix i . ix j
     
 wlOpaqueDraw :: Wall -> Bool
 wlOpaqueDraw wl = wlIsOpaque wl && _wlHeight wl == 100