Make zoning more universal

src/Dodge/Default/World.hs

@@ -1,6 +1,9 @@
 module Dodge.Default.World where
 import Dodge.Data
+import Dodge.Zone.Size
+import Dodge.Zone.Object
 import Dodge.Base
+import Geometry.Vector3D
 --import Dodge.Config.KeyConfig
 --import Dodge.Menu
 --import Picture
@@ -28,14 +31,14 @@ defaultWorld = World
     , _defaultZoom = 1
     , _cameraViewFrom = V2 0 0
     , _viewDistance = 1000
-    , _modifications = IM.empty
-    , _creatures = IM.empty
-    , _creaturesZone = Zoning IM.empty
-    , _creatureGroups = IM.empty
+    , _modifications    = IM.empty
+    , _creatures        = IM.empty
+    , _crZoning         = Zoning IM.empty crZoneSize zoneOfCreature
+    , _creatureGroups   = IM.empty
     , _clouds = []
-    , _cloudsZone = Zoning IM.empty
+    , _clZoning         = Zoning IM.empty clZoneSize (zonePos (stripZ . _clPos))
     , _gusts = IM.empty
-    , _gustsZone = Zoning IM.empty
+    , _gsZoning         = Zoning IM.empty clZoneSize (zonePos _guPos)
     , _itemPositions = IM.empty
     , _props = IM.empty
     , _instantParticles = []
@@ -50,7 +53,7 @@ defaultWorld = World
     , _doors = IM.empty
     , _coordinates  = IM.empty
     , _triggers     = IM.empty
-    , _wallsZone = Zoning IM.empty
+    , _wlZoning     = Zoning IM.empty wlZoneSize zoneOfWall
     , _floorItems = IM.empty
     , _floorTiles = []
     , _randGen = mkStdGen 2
@@ -70,8 +73,8 @@ defaultWorld = World
 --    , _menuLayers = []
     , _clickMousePos = V2 0 0
     , _pathGraph = Data.Graph.Inductive.Graph.empty
-    , _pathGraphP = mempty
-    , _pathPoints = Zoning IM.empty
+    , _pathGraphP   = mempty
+    , _phZoning     = Zoning mempty wlZoneSize (zonePos snd)
     , _hud = HUD
         { _hudElement = DisplayInventory NoSubInventory
         , _carteCenter = V2 0 0