Improve normal maps on ground and walls

2023-03-19 23:52:19 +00:00
parent e90989ee2d
commit 33f31aa385
24 changed files with 112 additions and 178 deletions
@@ -5,7 +5,7 @@ import Geometry

 wlIsOpaque :: Wall -> Bool
 wlIsOpaque wl = case _wlOpacity wl of
-    Opaque -> True
+    Opaque {} -> True
    _ -> False

 wlIsSeeThrough :: Wall -> Bool