Refactor path zoning

src/Dodge/Default/World.hs

@@ -1,9 +1,5 @@
 module Dodge.Default.World where
 import Dodge.Data
-import Dodge.Zone.Size
-import Dodge.Zone.Object
---import Geometry.Vector3D
-import Geometry.Zone
 import Geometry.Data
 import Geometry.Polygon
 
@@ -76,8 +72,8 @@ defaultWorld = World
     , _clickMousePos = V2 0 0
     , _pathGraph = Data.Graph.Inductive.Graph.empty
 --    , _pathGraphP   = mempty
-    , _pnZoning     = Zoning mempty peZoneSize (zonePos snd)
-    , _peZoning     = Zoning mempty peZoneSize (\x (_,_,e) -> zoneOfSeg x (_peStart e) (_peEnd e))
+    , _pnZoning     = mempty
+    , _peZoning     = mempty
     , _hud = HUD
         { _hudElement = DisplayInventory NoSubInventory
         , _carteCenter = V2 0 0