Single source of truth for wall pathing

src/Dodge/Data/GenWorld.hs

@@ -52,9 +52,9 @@ data PSType
         , _putEndPoint :: Point2
         }
     | PutWall {_pwPoly :: [Point2], _pwWall :: Wall}
-    | PutSlideDr Door Wall (S.Set EdgeObstacle) Float Point2 Point2
+    | PutSlideDr Bool Door Wall (S.Set EdgeObstacle) Float Point2 Point2
 --    | PutDoor Color EdgeObstacle WdBl [(Point2, Point2)]
-    | PutDoor (S.Set EdgeObstacle) WdBl Float Point2A Point2A -- [(Point2, Point2)]
+    | PutDoor Bool (S.Set EdgeObstacle) WdBl Float Point2A Point2A -- [(Point2, Point2)]
     | RandPS (State StdGen PSType)
     | PutForeground ForegroundShape
     | PutWorldUpdate (Int -> PlacementSpot -> GenWorld -> GenWorld)

src/Dodge/Data/Wall.hs

@@ -19,7 +19,7 @@ data Wall = Wall
     { _wlLine :: (Point2, Point2)
     , _wlID :: Int
     , _wlOpacity :: Opacity
-    , _wlPathFlag :: S.Set WallFlag
+--    , _wlPathFlag :: S.Set WallFlag
     , _wlTouchThrough :: Bool
     , _wlUnshadowed :: Bool
     , _wlRotateTo :: Bool

src/Dodge/Data/Wall/Structure.hs

@@ -9,7 +9,7 @@ import Data.Aeson.TH
 
 data WallStructure
     = StandaloneWall
-    | DoorPart {_wsDoor :: Int}
+    | DoorPart {_wsDoor :: Int, _wsIsAutoDoor :: Bool}
     | MachinePart {_wsMachine :: Int}
     | BlockPart {_wsBlock :: Int}
     | CreaturePart {_wlStCreature :: Int}