Continue improving mouse|inventory interface

src/Dodge/Render/Picture.hs

@@ -84,8 +84,11 @@ mouseCursorType u = case u ^. uvWorld . input . mouseContext of
     MouseMenuClick {} -> drawMenuClick 5
     MouseMenuCursor -> drawMenuCursor 5
     MouseInGame -> drawPlus 5
-    OverInvDrag (Just _) -> drawDrag 5
-    OverInvDrag Nothing -> drawDragDrop 5
+    OverInvDrag 0 (Just _) -> drawDrag 5
+    OverInvDrag 0 Nothing -> drawDragDrop 5
+    OverInvDrag 3 (Just _) -> drawDrag 5
+    OverInvDrag 3 Nothing -> drawDragPickup 5
+    OverInvDrag _ _ -> drawEmptySet 5
     OverInvDragSelect {} -> drawDragSelect 5
     OverInvSelect {} -> drawSelect 5
     OverInvFilt {} -> drawCombFilter 5
@@ -175,6 +178,15 @@ drawDragDrop x =
     z = 1.5 * x
     y = 0.7 * 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
+  where
+    z = 1.5 * x
+    y = 0.7 * x
+
 --drawFiltDrag :: Float -> Picture
 --drawFiltDrag x = polygonWire
 --    [ V2 0 y