Zoom in when spawning

2025-12-06 00:04:00 +00:00
parent f9ce58b409
commit 189c3da84f
6 changed files with 75 additions and 72 deletions
@@ -24,7 +24,8 @@ drawMenuScreen mi = \case
 drawLoadingScreen :: [String] -> BlockStatus -> Config -> Picture
 drawLoadingScreen s _ cfig =
    polygon (rectWH (fromIntegral (cfig ^. windowX)) (fromIntegral (cfig ^. windowY)))
-        <> translateScreenPos
+        <> 
+    translateScreenPos
            cfig
            (ScreenPos (V2 0 0.2) (V2 (-300) (10 * fromIntegral (length s))))
            (drawList $ map text s)