Draw floor of windows

2021-03-21 12:27:57 +01:00
parent e7b4e54f9a
commit a8ebf2f7f1
3 changed files with 10 additions and 8 deletions
@@ -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