Cleanup zoning

src/Dodge/Render/ShapePicture.hs

@@ -16,7 +16,6 @@ import Dodge.Graph
 import Dodge.GameRoom
 import Dodge.Update.Camera
 import Dodge.Item.Draw
-import Dodge.Wall.Zone
 --import Dodge.Zone
 import Geometry
 import Geometry.Zone
@@ -127,7 +126,7 @@ drawFarWallDetect w = setLayer DebugLayer
     . color yellow 
     . concatMap (\q -> line 
         [ p
-        , fst $ collidePoint p q $ S.filter wlIsOpaque $ wallsAlongLine p q w
+        , fst $ collidePoint p q $ S.filter wlIsOpaque $ wlsNearSeg p q w
         ]   )
     $ runIdentity $ S.toList_ $ streamViewpoints p w
   where