Correctly add all obstructed paths to doors

src/Dodge/Render/ShapePicture.hs

@@ -149,15 +149,28 @@ drawInspectWalls w = foldMap (drawInspectWall w)
     (a,b) = _lLine w
 
 drawInspectWall :: World -> Wall -> Picture
-drawInspectWall _ wl = setLayer DebugLayer $ 
+drawInspectWall w wl = setLayer DebugLayer $ 
         color rose (thickLine 3 [a,b])
-    <> foldMap (drawZone wlZoneSize)
-        (runIdentity $ S.toList_ $ zoneOfWall wlZoneSize wl)  -- this won't work if wlZoneSize is not consistent
+--    <> foldMap (drawZone wlZoneSize)
+--        (runIdentity $ S.toList_ $ zoneOfWall wlZoneSize wl)  -- this won't work if wlZoneSize is not consistent
+    <> foldMap (drawDoorPaths w) (wl ^? wlStructure . wsDoor)
   where
     (a,b) = _wlLine wl 
---    $ line [a,b]
---  where
---    (a,b) = _wSelect w
+
+drawDoorPaths :: World -> Int -> Picture
+drawDoorPaths w drid = fromMaybe mempty $ do
+    paths <- w ^? doors . ix drid . drObstructs
+--    path <- listToMaybe paths
+--    undefined
+    return $ foldMap (drawPathEdge . (^. _3)) paths
+--    return $ (drawPathEdge . (^. _3)) path
+
+drawPathEdge :: PathEdge -> Picture
+drawPathEdge pe = setLayer DebugLayer $ color col $ arrow (_peStart pe) (_peEnd pe)
+  where
+    col = case _peObstacles pe of
+        pos | WallObstacle `Set.member` pos -> blue
+            | True -> red
 
 drawWorldSelect :: World -> Picture
 drawWorldSelect w = setLayer DebugLayer