Add more debug info for selected creatures

2023-04-30 13:55:54 +01:00
parent 5b1212e4f6
commit 08e71e5451
17 changed files with 116 additions and 50 deletions
@@ -140,9 +140,11 @@ extraPics cfig u =
        <> concatMapPic ppDraw (_pressPlates lw)
        <> viewClipBounds cfig w
        <> debugDraw cfig w
-        <> foldMap _debugPic (_uvDebug u)
+        <> foldMap (`_debugPic` u) (_uvDebug u)
        <> setLayer FixedCoordLayer
-            (listPicturesAt (1.3 * halfWidth cfig) 0 cfig (map text (foldMap _debugMessage (_uvDebug u))))
+            (listPicturesAt (1.3 * halfWidth cfig) 0 cfig 
+                . take 50 . drop (u ^. uvDebugMessageOffset)
+                . map text $ foldMap (`_debugMessage` u) (_uvDebug u))
  where
    w = u ^. uvWorld
    lw = w ^. cWorld . lWorld