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

Work out screen coordinates for connecting infobox

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