From 9e29550a205a03e7e58946654039338dc3325d2c Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Mon, 6 Apr 2026 10:20:47 +0100
Subject: [PATCH] Tweak mouse cursor

---
 src/Dodge/Render/Picture.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/src/Dodge/Render/Picture.hs b/src/Dodge/Render/Picture.hs
index fd199163f..53fcabccc 100644
--- a/src/Dodge/Render/Picture.hs
+++ b/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 =