Add file

src/Dodge/Update/Input/DebugTest.hs

@@ -0,0 +1,28 @@
+module Dodge.Update.Input.DebugTest (
+    doDebugTest,
+    doDebugTest2,
+) where
+
+import Control.Lens
+import Data.Maybe
+import Dodge.Base.Collide
+import Dodge.Data.Universe
+import SDL
+
+doDebugTest :: Universe -> Universe
+--doDebugTest uv = uv & uvDebugFloat1 *~ 0.5
+doDebugTest uv = fromMaybe uv $ do
+    a <- w ^. input . heldWorldPos . at ButtonLeft
+    b <- w ^. input . heldWorldPos . at ButtonRight
+    let c = b - V2 (uv ^. uvDebugFloat1 * 0.5) 0
+    return $
+        if anythingHitCirc 2 a c w
+            then uv & uvDebugFloat1 *~ 0.5
+            else
+                uv & uvWorld . input . heldWorldPos . at ButtonRight ?~ c
+                    & uvDebugFloat1 *~ 0.5
+  where
+    w = uv ^. uvWorld
+
+doDebugTest2 :: Universe -> Universe
+doDebugTest2 = uvDebugFloat1 .~ 20