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
@@ -124,7 +124,7 @@ debugDraw :: Configuration -> World -> Picture
 debugDraw cfig w
    | Enable_debug `S.member` _debug_booleans cfig =
        pic
-            <> setLayer FixedCoordLayer (toTopLeft cfig (listPicturesAt (0.5 * halfWidth cfig) 0 $ map text ts))
+            <> setLayer FixedCoordLayer (toTopLeft cfig (translate (0.5 * halfWidth cfig) 0 $ listPicturesAt $ map text ts))
    | otherwise = mempty
  where
    pic = foldMap (debugDraw' cfig w) (_debug_booleans cfig)