Fix more edge cases in circle collision

src/Dodge/Update/Input/DebugTest.hs

@@ -1,6 +1,8 @@
 module Dodge.Update.Input.DebugTest (
     doDebugTest,
     doDebugTest2,
+    doDebugTestF6,
+    doDebugTestF7,
 ) where
 
 import Control.Lens
@@ -26,3 +28,18 @@ doDebugTest uv = fromMaybe uv $ do
 
 doDebugTest2 :: Universe -> Universe
 doDebugTest2 = uvDebugFloat1 .~ 20
+
+doDebugTestF6 :: Universe -> Universe
+doDebugTestF6 = uvIOEffects %~ \f u -> do
+    writeFile "log/heldL" $ show $ u ^. uvWorld . input . heldWorldPos . at ButtonLeft
+    writeFile "log/heldR" $ show $ u ^. uvWorld . input . heldWorldPos . at ButtonRight
+    f u
+
+doDebugTestF7 :: Universe -> Universe
+doDebugTestF7 = uvIOEffects %~ \f u -> do
+    l <- readFile "log/heldL"
+    r <- readFile "log/heldR"
+    f $ u
+        & uvWorld . input . heldWorldPos . at ButtonLeft .~ read l
+        & uvWorld . input . heldWorldPos . at ButtonRight .~ read r
+        

src/Dodge/Update/Input/InGame.hs

@@ -350,6 +350,8 @@ updateFunctionKey uv sc InitialPress = case sc of
     ScancodeF2 -> pauseAndFloatCam uv
     ScancodeF5 -> doQuicksave uv
     ScancodeF9 -> doQuickload uv
+    ScancodeF6 -> doDebugTestF6 uv
+    ScancodeF7 -> doDebugTestF7 uv
     ScancodeEscape -> pauseGame uv
     _ -> uv
 updateFunctionKey uv ScancodeF3 _ = doDebugTest uv