Cleanup

src/Dodge/Render/ShapePicture.hs

@@ -388,7 +388,7 @@ viewClipBounds cfig w
 --  where 
 --    onScreen wall = uncurry (lineOnScreen w) $ _wlLine wall
 --    isVisible wl 
---        | wl ^? wlDraw == Just False = False
+--        | wl ^? wlUnshadowed == Just False = False
 --        | otherwise = onScreen wl
 --
 --lineOnScreen :: World -> Point2 -> Point2 -> Bool

src/Dodge/Render/ShapePicture.hs.orig

@@ -367,7 +367,7 @@ viewClipBounds cfig w
 --  where 
 --    onScreen wall = uncurry (lineOnScreen w) $ _wlLine wall
 --    isVisible wl 
---        | wl ^? wlDraw == Just False = False
+--        | wl ^? wlUnshadowed == Just False = False
 --        | otherwise = onScreen wl
 --
 --lineOnScreen :: World -> Point2 -> Point2 -> Bool

src/Dodge/Render/Walls.hs

@@ -29,16 +29,16 @@ wallsToDraw w
     g (V2 i j) = w ^? wlZoning . znObjects . ix i . ix j
     
 wlOpaqueDraw :: Wall -> Bool
-wlOpaqueDraw wl = wlIsOpaque wl && _wlDraw wl
+wlOpaqueDraw wl = wlIsOpaque wl && _wlUnshadowed wl
 wlSeeThroughDraw :: Wall -> Bool
-wlSeeThroughDraw wl = wlIsSeeThrough wl && _wlDraw wl
+wlSeeThroughDraw wl = wlIsSeeThrough wl && _wlUnshadowed wl
 
 getWallSPic :: Wall -> SPic
 getWallSPic wl = case wl ^? wlOpacity . opDraw of
     Nothing -> mempty
     Just f  -> f wl
 
---    (wins,wls) = partition theTest . IM.elems . IM.filter _wlDraw $ wallsDoubleScreen cfig w
+--    (wins,wls) = partition theTest . IM.elems . IM.filter _wlUnshadowed $ wallsDoubleScreen cfig w
 --    theTest wl = case _wlOpacity wl of
 --        Opaque -> False
 --        _ -> True