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

Tweak mouse cursor

Browse Source
This commit is contained in:
justin
2026-04-06 10:20:47 +01:00
parent 4723b45ef6
commit 9e29550a20
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/Picture.hs
+8 -4
View File
@@ -2,6 +2,7 @@
module Dodge.Render.Picture (fixedCoordPictures) where module Dodge.Render.Picture (fixedCoordPictures) where
import Linear hiding (rotate)
import qualified SDL import qualified SDL
import Control.Lens import Control.Lens
import qualified Data.Map.Strict as M import qualified Data.Map.Strict as M
@@ -14,7 +15,6 @@ import Dodge.Render.List
import Dodge.Render.MenuScreen import Dodge.Render.MenuScreen
import Geometry import Geometry
import HelpNum import HelpNum
import Linear (_xy)
import Picture import Picture
fixedCoordPictures :: Universe -> Picture fixedCoordPictures :: Universe -> Picture
@@ -83,8 +83,8 @@ drawConcurrentMessage u =
drawMouseCursor :: Universe -> Picture drawMouseCursor :: Universe -> Picture
drawMouseCursor u = drawMouseCursor u =
uncurryV translate (u ^. uvWorld . input . mousePos) uncurryV translate (u ^. uvWorld . input . mousePos)
. color white . (each . vxCol . _xyz +~ 1)
. setDepth (-1) . (each . vxPos . _z -~ 1)
$ mouseCursorType u $ mouseCursorType u
mouseCursorType :: Universe -> Picture mouseCursorType :: Universe -> Picture
@@ -194,7 +194,11 @@ drawJumpDown x =
rotate (0.25 * pi) $ line [V2 x 0, V2 0 0, V2 0 x] rotate (0.25 * pi) $ line [V2 x 0, V2 0 0, V2 0 x]
drawDragSelect :: Float -> Picture 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 :: Float -> Picture
drawDrag x = drawDrag x =