justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Add explicit layer datatype

Browse Source
This commit is contained in:
justin
2022-04-10 10:48:17 +01:00
parent edd82fb3ac
commit 77c3f83d20
27 changed files with 75 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Picture/SizeInvariant.hs
+4 -4
View File
@@ -14,7 +14,7 @@ fixedSizePicAt
-> World
-> Picture
fixedSizePicAt pic p w
= setLayer 4
= setLayer TopLayer
. setDepth 50
. translate x y
. scale theScale theScale
@@ -34,7 +34,7 @@ fixedSizePicClamp
-> World
-> Picture
fixedSizePicClamp xbord ybord pic p cfig w
= setLayer 4
= setLayer TopLayer
-- . setDepth 50
. translate x y
. scale theScale theScale
@@ -59,8 +59,8 @@ fixedSizePicClampArrow
-> World
-> Picture
fixedSizePicClampArrow xbord ybord pic p cfig w = pictures
[ setLayer 4 . translate x y . scale theScale theScale $ pic
, setLayer 4 . color white . setDepth 20 $ arrowPic
[ setLayer TopLayer . translate x y . scale theScale theScale $ pic
, setLayer TopLayer . color white . setDepth 20 $ arrowPic
]
where
winps = screenPolygon cfig w