Zoning/streaming refactor

src/Dodge/Beam.hs

@@ -10,7 +10,7 @@ import Geometry
 import LensHelp
 import Picture
 import RandomHelp
-import Dodge.Zone
+--import Dodge.Zone
 import Dodge.Base.Collide
 import Shape
 
@@ -114,7 +114,6 @@ defaultArcStep itparams w (ArcStep p dir _) = do
             . filter (\cr -> dist center (_crPos cr) < csize)
             . IM.elems
             $ _creatures w
-        wlsnearpoint = wallsNearPoint' p w
         mwl = listToMaybe
             . sortOn (dist p . fst)
             . mapMaybe (\ q -> sequence $ collidePointWallsFilterStream (const True) p (center +.+ q) w)