Commit before changing text rendering

src/Dodge/Rendering.hs

@@ -396,6 +396,7 @@ lineOnScreen w (p1:p2:_) = errorPointInPolygon 8 p1 sp || errorPointInPolygon 9
 
 
 drawWallShadow :: World -> Wall -> Drawing
+--drawWallShadow w _ = blank
 drawWallShadow w wall
     | isRHS sightFrom x y = blank
   --  | otherwise = onLayerL l $ color shadCol $ polygon $ points
@@ -404,7 +405,8 @@ drawWallShadow w wall
         colorAndLayer | _wlIsSeeThrough wall = setLayer 2
                                                 . onLayerL [levLayer ShadowLayer] 
                                                 . color (withAlpha 0.2 $ _wlColor wall)
-                      | otherwise = onLayerL [levLayer ShadowLayer,2]
+                      | otherwise = setLayer 1 
+                                        . onLayerL [levLayer ShadowLayer,2]
                                         . color black
         (x:y:_) = _wlLine wall 
         ps = linePointsBetween x y