Draw floor of windows

src/Dodge/Floor.hs

@@ -32,7 +32,7 @@ lev1 = do
             (
             [return $ return $ Right deadEndRoom
             ]
-            ++ [slowDoorRoom]
+            ++ [roomMiniIntro]
             ++ [return $ connectRoom corridor
                ,return $ connectRoom door]
             ++ firstWeapon

src/Dodge/Rendering.hs

@@ -70,6 +70,7 @@ worldPictures w
                         , ptPicts'
                         , afterPtPicts'
                         , wlPicts'
+                        , wlPicts
 --                        , wallShadows
                         , smokeShadows
 --                        , itLabels
@@ -337,7 +338,8 @@ drawWall' w wall
         f (bpa,bpb) = intersectSegLineFrom' bpa bpb x (head p's)
         f' (bpa,bpb) = intersectSegLineFrom' bpa bpb y (last p's)
         points = orderPolygon (borderps ++ ps)
-        --points = orderPolygon (borderps ++ p's)
+        wallBase | _wlIsSeeThrough wall = polygon $ _wlLine wall
+                 | otherwise = blank
 
 drawWallShadow :: World -> Wall -> Drawing
 drawWallShadow w wall