List rendering work

2023-05-05 10:22:46 +01:00
parent 988bb7591d
commit 865706df3b
7 changed files with 60 additions and 58 deletions
@@ -19,7 +19,7 @@ fixedCoordPictures u =
    drawMenuOrHUD cfig u
        <> drawConcurrentMessage u
        <> customMouseCursor u
-        <> listPicturesAt (halfWidth cfig) 0 cfig (map text (_uvTestString u u))
+        <> toTopLeft cfig (listPicturesAt (halfWidth cfig) 0 (map text (_uvTestString u u)))
        <> displayFrameTicks u
  where
    cfig = _uvConfig u
@@ -52,9 +52,8 @@ drawMenuOrHUD cfig u = case u ^. uvScreenLayers of
 drawConcurrentMessage :: Universe -> Picture
 drawConcurrentMessage u =
    stackPicturesAt
-        (halfWidth cfig)
-        (windowYFloat cfig - 50)
-        cfig
+        0
+        (halfHeight cfig - 50)
        (map (centerText . f) $ u ^.. uvSideEffects . each)
  where
    cfig = _uvConfig u