Reorganise block module

2021-03-05 20:24:12 +01:00
parent fdca8a8760
commit bd16ad2a2a
5 changed files with 23 additions and 149 deletions
@@ -568,8 +568,11 @@ wallsForGloom w = map (linePairs . _wlLine) $ filter (not . _wlIsSeeThrough)
                        $ 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
+          wallCastsShadow wl = case wl ^? wlCastShadow of
+                                Just b  -> b
+                                Nothing -> True
+--(AutoDoor {_wlCastShadow = b}) = b
+--          wallCastsShadow _ = True

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