Add wall drawing capability (for shadows)

2021-02-22 02:32:00 +01:00
parent 3dc566b6af
commit c75cda639b
7 changed files with 97 additions and 14 deletions
@@ -53,7 +53,9 @@ main = do
         \preData w -> --do render setparams w egFade
                      renderPicture' preData (_cameraRot w) (_cameraZoom w) 
                                             (_cameraPos w)
-                                             (_windowX w,_windowY w) (draw blank w)
+                                             (_windowX w,_windowY w) 
+                                            (wallsForGloom' w)
+                                            (draw blank w)
                      --renderPicture' preData (_windowX w,_windowY w) (Circle 5)
 --            renderPicture' preData 
 --                          (pictures [scale 0.5 0.9 $ polygon [(0,0),(0,-0.5),(-0.5,-0.5),(-0.5,0.0)]