Tweak mouse cursor

src/Dodge/Render/Picture.hs

@@ -2,6 +2,7 @@
 
 module Dodge.Render.Picture (fixedCoordPictures) where
 
+import Linear hiding (rotate)
 import qualified SDL
 import Control.Lens
 import qualified Data.Map.Strict as M
@@ -14,7 +15,6 @@ import Dodge.Render.List
 import Dodge.Render.MenuScreen
 import Geometry
 import HelpNum
-import Linear (_xy)
 import Picture
 
 fixedCoordPictures :: Universe -> Picture
@@ -83,8 +83,8 @@ drawConcurrentMessage u =
 drawMouseCursor :: Universe -> Picture
 drawMouseCursor u =
     uncurryV translate (u ^. uvWorld . input . mousePos)
-        . color white
-        . setDepth (-1)
+        . (each . vxCol . _xyz +~ 1)
+        . (each . vxPos . _z -~ 1)
         $ mouseCursorType u
 
 mouseCursorType :: Universe -> Picture
@@ -194,7 +194,11 @@ drawJumpDown x =
     rotate (0.25 * pi) $ line [V2 x 0, V2 0 0, V2 0 x]
 
 drawDragSelect :: Float -> Picture
-drawDragSelect x = polygonWire $ rectWH (0.5 * x) x
+drawDragSelect x = polygonWire (rectWH (0.5 * x) x)
+    <> (polygon (rectWH (0.5*x) x)
+        & each . vxCol . _xyz -~ 1
+        & each . vxPos . _z +~ 0.05
+        )
 
 drawDrag :: Float -> Picture
 drawDrag x =