(broken) commit

src/Dodge/Debug.hs

@@ -1,5 +1,6 @@
 module Dodge.Debug where
 
+import Dodge.Debug.Picture
 import Control.Lens
 import Dodge.Data.Universe
 import qualified Data.Set as S
@@ -13,5 +14,11 @@ debugEvents u = case dbools ^. at Enable_debug of
 
 debugEvent :: DebugBool -> Universe -> Universe
 debugEvent db u = case db of
-    Collision_test -> u
+    Collision_test -> u & uvDebug . at Collision_test ?~ collisionDebugItem u
     _ -> u
+
+collisionDebugItem :: Universe -> DebugItem
+collisionDebugItem u = DebugItem
+    { _debugPic = drawCollisionTest $ u ^. uvWorld
+    , _debugInfo = []
+    }