Store paths crossing block walls in block

2022-07-02 15:31:27 +01:00
parent 75a98a572f
commit 3952ec6315
8 changed files with 52 additions and 17 deletions
@@ -15,6 +15,7 @@ defaultBlock = Block
    , _blDraw      = const mempty
    , _blDeath     = makeBlockDebris
    , _blObstructs = []
+    , _blPaths      = []
    }
 defaultDirtBlock :: Block
 defaultDirtBlock = defaultBlock & blHP .~ 50
@@ -77,6 +77,7 @@ defaultWorld = World
    , _pathGraph = Data.Graph.Inductive.Graph.empty
    , _pathGraphP   = mempty
    , _pnZoning     = Zoning mempty wlZoneSize (zonePos snd)
+    , _peZoning     = Zoning mempty wlZoneSize (\x (_,_,e) -> zoneOfSeg x (_peStart e) (_peEnd e))
    , _hud = HUD
        { _hudElement = DisplayInventory NoSubInventory
        , _carteCenter = V2 0 0