Implement (partially) updating pathing grid when opening doors

src/Dodge/Render/ShapePicture.hs

@@ -69,7 +69,6 @@ cullPoint cfig w p
     | debugOn Close_shape_culling cfig = pointInPolygon p (_boundBox w)
     | otherwise = dist (_cameraCenter w) p < _viewDistance w
 
--- TODO filter out pictures not in the frame
 extraPics :: Configuration -> World -> Picture
 extraPics cfig w = pictures (_decorations w)
     <> concatMapPic (dbArg _ptDraw) (_particles    w)
@@ -77,8 +76,6 @@ extraPics cfig w = pictures (_decorations w)
     <> concatMapPic (dbArg _bmDraw) (_electronBeams $ _beams w)
     <> concatMapPic (dbArg _lsPict) (_lightSources w)
     <> testPic cfig w
-    <> _debugPicture w
---    <> runIdentity (S.foldMap_ clDraw (_clouds w))
     <> concatMapPic clDraw (_clouds w      )
     <> concatMapPic ppDraw (_pressPlates w )
     <> viewClipBounds cfig w