Add custom cursor

2021-03-26 11:44:13 +01:00
parent b46adf9898
commit e3e54165a9
4 changed files with 23 additions and 14 deletions
@@ -36,13 +36,16 @@ import qualified SDL as SDL
 import qualified SDL.Mixer as Mix
 import Graphics.Rendering.OpenGL hiding (color,scale,translate,rotate)

+cursorVis :: Bool -> IO ()
+cursorVis b = SDL.cursorVisible $= b
+
 main :: IO ()
 main = do
    (sizex,sizey) <- loadConfig
    setupLoop 
        (sizex,sizey)
-        (doPreload >>= resizeSpareFBO sizex sizey)
-        cleanUpPreload
+        (cursorVis False >> doPreload >>= resizeSpareFBO sizex sizey)
+        (\x -> cursorVis True >> cleanUpPreload x)
        (fmap (setWindowSize sizex sizey) firstWorld)
        ( \preData w -> do
                      startTicks <- SDL.ticks