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

Continue mouse/inventory refactor

Browse Source
This commit is contained in:
justin
2024-11-22 10:33:49 +00:00
parent 1250e2442a
commit bc2c9c9369
3 changed files with 40 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/Picture.hs
+7 -7
View File
@@ -84,10 +84,10 @@ mouseCursorType u = case u ^. uvWorld . input . mouseContext of
MouseMenuClick {} -> drawMenuClick 5
MouseMenuCursor -> drawMenuCursor 5
MouseInGame -> drawPlus 5
OverInvDrag 0 (Just _) -> drawDrag 5
OverInvDrag 0 Nothing -> drawDragDrop 5
OverInvDrag 3 (Just _) -> drawDrag 5
OverInvDrag 3 Nothing -> drawDragPickup 5
OverInvDrag 0 (Just (0,_)) -> drawDrag 5
OverInvDrag 0 _ -> drawDragDrop 5
OverInvDrag 3 (Just (3,_)) -> drawDrag 5
OverInvDrag 3 _ -> drawDragPickup 5
OverInvDrag _ _ -> drawEmptySet 5
OverInvDragSelect {} -> drawDragSelect 5
OverInvSelect {} -> drawSelect 5
@@ -180,9 +180,9 @@ drawDragDrop x =
drawDragPickup :: Float -> Picture
drawDragPickup x =
line (fmap (+V2 z (-x)) [V2 (-x) x,V2 0 x,V2 0 (-x)])
<> line (fmap (+V2 z (-x)) [V2 (-y) (y-x), V2 0 (-x), V2 y (y-x)])
-- <> drawSelect 5
line [V2 (-0.5 *x) 0, V2 (-z) 0, V2 (-z) z]
<> line [V2 (-(z+y)) (z-y), V2 (-z) z, V2 (y-z) (z-y)]
<> drawSelect 5
where
z = 1.5 * x
y = 0.7 * x