List rendering work

2023-05-05 10:22:46 +01:00
parent 988bb7591d
commit 865706df3b
7 changed files with 60 additions and 58 deletions
@@ -142,7 +142,7 @@ extraPics cfig u =
        <> debugDraw cfig w
        <> foldMap (`_debugPic` u) (_uvDebug u)
        <> setLayer FixedCoordLayer
-            (listPicturesAt (1.3 * halfWidth cfig) 0 cfig 
+            (toTopLeft cfig . listPicturesAt (1.3 * halfWidth cfig) 0 
                . take 50 . drop (u ^. uvDebugMessageOffset)
                . map text $ foldMap (`_debugMessage` u) (_uvDebug u))
  where