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
@@ -151,6 +151,7 @@ data World = World
    , _pathGraph            :: Gr Point2 PathEdge
    , _pathGraphP           :: S.Set (Point2,Point2)
    , _pnZoning             :: Zoning [] (Int,Point2)
+    , _peZoning             :: Zoning [] (Int,Int,PathEdge)
    , _hud                  :: HUD
    , _lightSources         :: IM.IntMap LightSource
    , _tempLightSources     :: [TempLightSource]
@@ -951,6 +952,7 @@ data Block = Block
    , _blDir        :: Float
    , _blDraw       :: Block -> SPic
    , _blDeath      :: Block -> World -> World
+    , _blPaths      :: [(Int,Int,PathEdge)]
    }
 data TerminalStatus = TerminalOff | TerminalBusy | TerminalReady
  deriving (Eq,Ord,Show)