Remove old zoning code

src/Dodge/Render/ShapePicture.hs

@@ -180,7 +180,7 @@ debugDraw' cfig w bl = case bl of
     Mouse_position -> drawMousePosition cfig w
     Walls_info -> drawWlIDs cfig w
     Pathing -> drawPathing cfig w
-    Show_nodes_near_select -> drawNodesNearSelect w
+    Show_nodes_near_select -> undefined --drawNodesNearSelect w
     Show_path_between -> drawPathBetween w
     Collision_test -> drawCollisionTest cfig w
 
@@ -212,13 +212,13 @@ drawPathBetween w =
     sp = _lSelect w
     ep = _rSelect w
 
-drawNodesNearSelect :: World -> Picture
-drawNodesNearSelect w =
-    setLayer DebugLayer $
-        runIdentity (S.foldMap_ (drawZoneCol orange pnZoneSize) (zoneAroundPoint pnZoneSize sp))
-            <> color green (drawCross sp)
-  where
-    sp = _lSelect w
+--drawNodesNearSelect :: World -> Picture
+--drawNodesNearSelect w =
+--    setLayer DebugLayer $
+--        runIdentity (S.foldMap_ (drawZoneCol orange pnZoneSize) (zoneAroundPoint pnZoneSize sp))
+--            <> color green (drawCross sp)
+--  where
+--    sp = _lSelect w
 
 drawInspectWalls :: World -> Picture
 drawInspectWalls w =