Some cleanup, may have reintroduced leak in autoDoorPane

2021-03-05 14:14:52 +01:00
parent 5f8b5881e5
commit cb5a83d17a
4 changed files with 46 additions and 93 deletions
@@ -564,9 +564,12 @@ testPic w = blank

 wallsForGloom :: World -> [(Point2,Point2,Point2,Point2)]
 wallsForGloom w = map (linePairs . _wlLine) $ filter (not . _wlIsSeeThrough)
+                        $ filter wallCastsShadow
                        $ IM.elems $ wallsNearZones (zoneOfDoubleScreen w) w
    where linePairs (x:y:z:w:_) = (x,y,z,w)
          linePairs (x:y:_) = (x,y,x,y)
+          wallCastsShadow (AutoDoor {_wlCastShadow = b}) = b
+          wallCastsShadow _ = True

 wallsForGloom' :: World -> [(Point2,Point2)]
 wallsForGloom' w = map (wallPairBack . _wlLine) $ filter (not . _wlIsSeeThrough)