Attempt to globally translate drawn lists

2023-05-09 00:58:03 +01:00
parent 865706df3b
commit 93519345de
6 changed files with 30 additions and 33 deletions
@@ -142,7 +142,8 @@ extraPics cfig u =
        <> debugDraw cfig w
        <> foldMap (`_debugPic` u) (_uvDebug u)
        <> setLayer FixedCoordLayer
-            (toTopLeft cfig . listPicturesAt (1.3 * halfWidth cfig) 0 
+            (toTopLeft cfig . translate (1.3* halfWidth cfig) 0 
+                . listPicturesAt 
                . take 50 . drop (u ^. uvDebugMessageOffset)
                . map text $ foldMap (`_debugMessage` u) (_uvDebug u))
  where