Fix bugs in zones near segments

src/Dodge/Data/Config.hs

@@ -66,6 +66,8 @@ windowYFloat = fromIntegral . _windowY
 data DebugBool
     = Show_ms_frame
     | Display_debug
+    | Debug_get
+    | Debug_put
     | Show_sound
     | Noclip
     | Cr_status

src/Dodge/Data/Universe.hs

@@ -11,6 +11,7 @@ module Dodge.Data.Universe (
     module Loop.Data,
 ) where
 
+import qualified Data.IntMap.Strict as IM
 import Geometry.Data
 import Sound.Data
 import qualified Data.Map.Strict as M
@@ -44,6 +45,7 @@ data Universe = Universe
     , _uvDebugFloat2 :: Float
     , _uvDebugV2_1 :: Point2
     , _uvDebugV2_2 :: Point2
+    , _uvDebugPut :: IM.IntMap String
     , _uvDebugPathShowType :: PathShowType
     , _uvDebugMessageOffset :: Int
     , _uvSoundQueue :: [SoundID]  -- sounds without a position, to be played once