Move towards serializing saves/loads faster

src/Dodge/Render/List.hs

@@ -59,6 +59,29 @@ listCursorNESW = listCursorChooseBorder [True, True, True, True]
 listCursorNSW :: Float -> Float -> Configuration -> Int -> Color -> Int -> Int -> Picture
 listCursorNSW = listCursorChooseBorder [True, False, True, True]
 
+fillScreenText :: Configuration -> String -> Picture
+fillScreenText cfig str =
+    winScale cfig
+        . scale wscale hscale
+        . centerText
+        $ str
+  where
+    wscale = hw*0.02/fromIntegral (length str)
+    hscale = hh*0.01
+    hw = halfWidth cfig
+    hh = halfHeight cfig
+
+
+fillWidthText :: Configuration -> String -> Picture
+fillWidthText cfig str =
+    winScale cfig
+        . scale thescale thescale
+        . centerText
+        $ str
+  where
+    thescale = hw*0.02/fromIntegral (length str)
+    hw = halfWidth cfig
+
 listTextPictureAt :: Float -> Float -> Configuration -> Int -> Picture -> Picture
 listTextPictureAt xoff yoff cfig yint =
     winScale cfig