toggle mouse state

examples/example03/Main.hs

@@ -114,6 +114,7 @@ handle (SDL.KeyboardEvent dat) = do
     handleKey key
 handle (SDL.MouseMotionEvent dat) = do
   sd <- getAffection
+  curMode <- SDL.getMouseLocationMode
   let (V2 rx ry) = fromIntegral <$> SDL.mouseMotionEventRelMotion dat
       c = camera sd
   putAffection sd
@@ -123,24 +124,28 @@ handle (SDL.MouseMotionEvent dat) = do
           let (V3 sx sy sz) = rotVecByEuler (cameraRot c) (V3 (rx / 10) 0 (ry / 10))
           in  c {cameraFocus = cameraFocus c + V3 sx 0 sy}
         [] ->
-          let dphi = pi / 4 / 45 / 10
+          if curMode == SDL.RelativeLocation
-              (Euler yaw pitch roll) = cameraRot c
+          then
-              nangle
+            let dphi = pi / 4 / 45 / 10
-                | nangle' >= qc = qc - mu
+                (Euler yaw pitch roll) = cameraRot c
-                | nangle' <= -qc = -qc + mu
+                nangle
-                | otherwise     = nangle'
+                  | nangle' >= qc = qc - mu
-                where
+                  | nangle' <= -qc = -qc + mu
-                  nangle' = (dphi * ry) + roll
+                  | otherwise     = nangle'
-                  qc = pi / 2
+                  where
-                  mu = 0.01
+                    nangle' = (dphi * ry) + roll
-              nrot =
+                    qc = pi / 2
-                Euler
+                    mu = 0.01
-                  yaw
+                nrot =
-                  (pitch + (rx * dphi))
+                  Euler
-                  nangle
+                    yaw
-          in  c
+                    (pitch + (rx * dphi))
-            { cameraRot = nrot
+                    nangle
-            }
+            in c
+              { cameraRot = nrot
+              }
+          else
+            c
         _ ->
           c
     }
@@ -149,12 +154,15 @@ handle _ = return ()
 
 handleKey :: SDL.Keycode -> Affection StateData ()
 handleKey code
-  | code == SDL.KeycodeR =
+  | code == SDL.KeycodeR = do
-    GL.clearColor $= GL.Color4 1 0 0 1
+    curMode <- SDL.getMouseLocationMode
-  | code == SDL.KeycodeG =
+    if curMode == SDL.AbsoluteLocation
-    GL.clearColor $= GL.Color4 0 1 0 1
+    then do
-  | code == SDL.KeycodeB =
+      _ <- SDL.setMouseLocationMode SDL.RelativeLocation
-    GL.clearColor $= GL.Color4 0 0 1 1
+      return ()
+    else do
+      _ <- SDL.setMouseLocationMode SDL.AbsoluteLocation
+      return ()
   | code == SDL.KeycodeP = do
     r <- liftIO $ randomRIO (0, 1)
     g <- liftIO $ randomRIO (0, 1)