Partial fix of inventory rendering

2021-07-23 12:48:40 +02:00
parent b4d89b16fa
commit e453065afe
7 changed files with 79 additions and 14 deletions
@@ -46,6 +46,7 @@ module Picture
    , mixColors
    , zeroZ
    , setDepth
+    , addDepth
    , setLayer
    )
  where
@@ -148,6 +149,10 @@ setDepth :: Float -> Picture -> Picture
 {-# INLINE setDepth #-}
 setDepth d = OverPic (\(x,y,_) -> (x,y,d)) id

+addDepth :: Float -> Picture -> Picture
+{-# INLINE addDepth #-}
+addDepth d = OverPic (\(x,y,z) -> (x,y,z+d)) id
+
 setLayer :: Int -> Picture -> Picture
 {-# INLINE setLayer #-}
 setLayer = OnLayer