Fix block wall rendering

2021-03-21 13:19:38 +01:00
parent 19fa3c1667
commit 8108772894
4 changed files with 0 additions and 24 deletions
@@ -97,7 +97,6 @@ addBlockNoShadow (p:ps) hp col isSeeThrough degradability hasAllShadows w
                                               , _blVisible = True
                                               , _blShadows = []
                                               , _blDegrades = degradability
-                                               , _wlCastShadow = bool
                                               }
                             ) is lines shadowList
        wallInZone wl | dist (_wlLine wl !! 0) (_wlLine wl !! 1) <= 2*zoneSize 
@@ -131,7 +130,6 @@ addBlock (p:ps) hp col isSeeThrough degradability w
                                               , _blVisible = True
                                               , _blShadows = []
                                               , _blDegrades = degradability
-                                               , _wlCastShadow = True
                                               }
                             ) is lines
        wallInZone wl | dist (_wlLine wl !! 0) (_wlLine wl !! 1) <= 2*zoneSize