Attempt to globally translate drawn lists

src/Dodge/Render/Picture.hs

@@ -19,7 +19,7 @@ fixedCoordPictures u =
     drawMenuOrHUD cfig u
         <> drawConcurrentMessage u
         <> customMouseCursor u
-        <> toTopLeft cfig (listPicturesAt (halfWidth cfig) 0 (map text (_uvTestString u u)))
+        <> toTopLeft cfig (translate (halfWidth cfig) 0 $ listPicturesAt (map text (_uvTestString u u)))
         <> displayFrameTicks u
   where
     cfig = _uvConfig u
@@ -51,9 +51,8 @@ drawMenuOrHUD cfig u = case u ^. uvScreenLayers of
 
 drawConcurrentMessage :: Universe -> Picture
 drawConcurrentMessage u =
+    translate 0 (50 - halfHeight cfig) $
     stackPicturesAt
-        0
-        (halfHeight cfig - 50)
         (map (centerText . f) $ u ^.. uvSideEffects . each)
   where
     cfig = _uvConfig u