Tweak terminal screen drawing

This commit is contained in:
2026-04-06 10:03:48 +01:00
parent c041a4d174
commit 4723b45ef6
6 changed files with 97 additions and 92 deletions
+5 -5
View File
@@ -42,7 +42,7 @@ module Picture.Base (
color,
zeroZ,
setDepth,
addDepth,
-- addDepth,
setLayer,
mirroryz,
mirrorxz,
@@ -122,10 +122,10 @@ setDepth :: Float -> Picture -> Picture
--setDepth d = map $ second $ overPos (\(x,y,_) -> (x,y,d))
setDepth d = fmap $ overPos (\(V3 x y _) -> V3 x y d)
addDepth :: Float -> Picture -> Picture
{-# INLINE addDepth #-}
--addDepth d = map $ second $ overPos (\(x,y,z) -> (x,y,z+d))
addDepth d = fmap $ overPos (\(V3 x y z) -> V3 x y (z + d))
--addDepth :: Float -> Picture -> Picture
--{-# INLINE addDepth #-}
----addDepth d = map $ second $ overPos (\(x,y,z) -> (x,y,z+d))
--addDepth d = fmap $ overPos (\(V3 x y z) -> V3 x y (z + d))
-- TODO change the Int here to a dedicated type
setLayer :: Layer -> Picture -> Picture