Tweak mouse over alpha

2024-11-25 22:04:23 +00:00
parent f36f4b8536
commit a4998716e9
1 changed files with 3 additions and 1 deletions
@@ -115,8 +115,10 @@ drawMouseOver cfig w =
        sss <- w ^? hud . hudElement . diSections
        let idp = invDisplayParams w
        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)
+--    curs = BoundaryCursor [West]
    curs = BackdropCursor
    combinvsel = do
        (j, i) <-