From 1ba43f3bdce592e0bd6276fd3438e52bdcb820d3 Mon Sep 17 00:00:00 2001
From: jgk <justin.g.kruger@gmail.com>
Date: Fri, 19 Mar 2021 22:09:46 +0100
Subject: [PATCH] Correct shadows

---
 src/Picture/Render.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Picture/Render.hs b/src/Picture/Render.hs
index 3ab3281e9..fe0c51b8d 100644
--- a/src/Picture/Render.hs
+++ b/src/Picture/Render.hs
@@ -97,9 +97,9 @@ renderPicture' pdata rot zoom (tranx,trany) (winx,winy) wallPoints lightPoints
 --        blendFunc $= (Zero,One)
         drawShader (_wallShadowShader pdata) nWalls
 
---        cullFace $= Just Front
---        stencilOp $= (OpKeep,OpKeep,OpDecr)
---        drawShader (_wallShadowShader pdata) nWalls
+        cullFace $= Just Front
+        stencilOp $= (OpKeep,OpKeep,OpDecr)
+        drawShader (_wallShadowShader pdata) nWalls
 
         cullFace $= Nothing