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

Unify inventory sections further (slow?)

Browse Source
This commit is contained in:
justin
2023-02-11 13:10:10 +00:00
parent 286c84e50d
commit 24825728f5
7 changed files with 58 additions and 174 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/HUD.hs
+1 -1
View File
@@ -98,7 +98,7 @@ inventoryDisplay sss w cfig = listPicturesAtScaleOff
csize <- sss ^? sssSections . ix spos . ssCursor . _Just . scurSize
return $ listCursorDisplayParams ldps [North,South,West] cfig (yint + y) xint white 15 csize
ldps = invDisplayParams w
pics = foldMap (_ssShownItems) (_sssSections sss)
pics = foldMap _ssShownItems (_sssSections sss)
drawSubInventory :: SubInventory -> Configuration -> World -> Picture
drawSubInventory subinv cfig w = case subinv of
src/Dodge/Render/List.hs
+2 -2
View File
@@ -119,8 +119,8 @@ listCursorDisplayParams ::
Int ->
Int ->
Picture
listCursorDisplayParams ldp borders cfig yint xint col cursxsize cursysize =
listCursorChooseBorderScale ygap s borders xoff yoff cfig yint xint col cursxsize cursysize
listCursorDisplayParams ldp borders =
listCursorChooseBorderScale ygap s borders xoff yoff
where
ygap = _ldpVerticalGap ldp
s = _ldpScale ldp