Fix wall depth rendering

2021-03-22 00:05:24 +01:00
parent 5a5ca6f208
commit f19f879945
4 changed files with 8 additions and 14 deletions
@@ -132,7 +132,7 @@ translate x y pic = OverPic (translate3 x y) id 0 id pic

 setDepth :: Float -> Picture -> Picture
 {-# INLINE setDepth #-}
-setDepth d pic = OverPic (\(x,y,_) -> (x,y,-d)) id 0 id pic
+setDepth d pic = OverPic (\(x,y,_) -> (x,y,d)) id 0 id pic

 setLayer :: Int -> Picture -> Picture
 {-# INLINE setLayer #-}