Tweak terminal screen drawing
This commit is contained in:
+5
-5
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user