Fix error in circle wall collision detection

The wall zoning did not take into account the radius of the circle

src/Dodge/Update/Input/InGame.hs

@@ -4,6 +4,7 @@ module Dodge.Update.Input.InGame (
     updateMouseInGame,
 ) where
 
+import Dodge.Update.Input.DebugTest
 import Dodge.Item.InvSize
 import Data.Monoid
 import NewInt
@@ -351,6 +352,8 @@ updateFunctionKey uv sc InitialPress = case sc of
     ScancodeF9 -> doQuickload uv
     ScancodeEscape -> pauseGame uv
     _ -> uv
+updateFunctionKey uv ScancodeF3 _ = doDebugTest uv
+updateFunctionKey uv ScancodeF4 _ = doDebugTest2 uv
 updateFunctionKey uv _ _ = uv
 
 updatePressedButtonsCarte :: World -> World
@@ -585,3 +588,4 @@ maybeExitCombine w
     | ButtonRight `M.member` (w ^. input . mouseButtons) = w
     | otherwise =
         w & hud . hudElement . subInventory .~ NoSubInventory
+