Add custom cursor

2021-03-26 11:44:13 +01:00
parent b46adf9898
commit e3e54165a9
4 changed files with 23 additions and 14 deletions
@@ -42,10 +42,19 @@ fixedCoordPictures :: World -> Picture
 fixedCoordPictures w = pictures
    [ hudDrawings w
    , scaler . onLayer MenuLayer $ menuScreen w
+    , customMouseCursor w
    ]
  where 
    scaler = setDepth (-1) . scale (2 / _windowX w) (2 / _windowY w)

+customMouseCursor :: World -> Picture
+customMouseCursor w = 
+    setDepth (-1)
+    . scale (2 /_windowX w) (2/ _windowY w) 
+    . uncurry translate (_mousePos w)
+    $ circleSolid 5
+
+
 testPic :: World -> [Picture]
 testPic w = [blank]