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

Cleanup

Browse Source
This commit is contained in:
justin
2024-11-04 19:30:15 +00:00
parent 0237e655b5
commit 3f9b31a838
4 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/HUD.hs
+3 -2
View File
@@ -131,10 +131,11 @@ getMouseInvSel w = case w ^? hud . hudElement . subInventory . nsSelected of
drawDISelections :: World -> Picture
drawDISelections w = fromMaybe mempty $ do
((_, j), (_, b)) <- getMouseInvSel w
((i, j), (a, b)) <- getMouseInvSel w
guard $ i == a
sss <- w ^? hud . hudElement . diSections
let idp = invDisplayParams w
let f x = selSecDrawCursorAt 15 idp BackdropCursor sss (0,x)
let f x = selSecDrawCursorAt 15 idp BackdropCursor sss (i,x)
return . color (withAlpha 0.2 white) . foldMap f $ [min j b..max j b]
drawSubInventory :: SubInventory -> Configuration -> World -> Picture