Unify debug pictures

src/Dodge/Render/Picture.hs

@@ -35,7 +35,7 @@ fixedCoordPictures u =
                 . take 50
                 . drop (u ^. uvDebugMessageOffset)
                 . map text
-                $ foldMap (`_debugMessage` u) (_uvDebug u) -- other debug pics in extraPics
+                $ foldMap _debugMessage (_uvDebug u) -- other debug pics in extraPics
            )
   where
     cfig = _uvConfig u

src/Dodge/Render/ShapePicture.hs

@@ -110,8 +110,8 @@ extraPics cfig u =
         <> foldMap drawLightSource (_lightSources lw)
         <> foldMap ppDraw (_pressPlates lw)
         <> viewClipBounds cfig w
-        <> debugDraw cfig w
-        <> foldMap (`_debugPic` u) (_uvDebug u) -- debug messages are in fixed coord pics
+        <> showEnabledDebugs cfig
+        <> foldMap _debugPic (_uvDebug u) -- debug messages are in fixed coord pics
   where
     w = u ^. uvWorld
     lw = w ^. cWorld . lWorld