Work on debugging

src/Dodge/Render/ShapePicture.hs

@@ -2,6 +2,7 @@ module Dodge.Render.ShapePicture (
     worldSPic,
 ) where
 
+import Dodge.Render.List
 import Control.Lens
 import Control.Monad (guard)
 import Data.Foldable
@@ -139,6 +140,9 @@ extraPics cfig u =
         <> concatMapPic ppDraw (_pressPlates lw)
         <> viewClipBounds cfig w
         <> debugDraw cfig w
+        <> foldMap _debugPic (_uvDebug u)
+        <> setLayer FixedCoordLayer
+            (listPicturesAt (1.3 * halfWidth cfig) 0 cfig (map text (foldMap _debugMessage (_uvDebug u))))
   where
     w = u ^. uvWorld
     lw = w ^. cWorld . lWorld