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

Tweak mouse over alpha

Browse Source
This commit is contained in:
justin
2024-11-25 22:04:23 +00:00
parent f36f4b8536
commit a4998716e9
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/HUD.hs
+3 -1
View File
@@ -115,8 +115,10 @@ drawMouseOver cfig w =
sss <- w ^? hud . hudElement . diSections sss <- w ^? hud . hudElement . diSections
let idp = invDisplayParams w let idp = invDisplayParams w
return . translateScreenPos cfig (invDisplayParams w ^. ldpPos) return . translateScreenPos cfig (invDisplayParams w ^. ldpPos)
. color (withAlpha 0.2 white) . color (withAlpha 0.1 white)
-- . color white
$ selSecDrawCursorAt 15 idp curs sss (j, i) $ selSecDrawCursorAt 15 idp curs sss (j, i)
-- curs = BoundaryCursor [West]
curs = BackdropCursor curs = BackdropCursor
combinvsel = do combinvsel = do
(j, i) <- (j, i) <-