Improve mouse menu controls, tweak charmap

src/Dodge/Render/Picture.hs

@@ -13,14 +13,18 @@ import Geometry
 import Picture
 
 fixedCoordPictures :: Universe -> Picture
-fixedCoordPictures u =
-    drawConcurrentMessage u <> customMouseCursor cfig (u ^. uvWorld . input) <> case u ^. uvScreenLayers of
-        [] -> drawHUD u
-        (lay : _) -> setDepth (-1) (menuScreen' cfig lay)
---            <> (setDepth (-1) . winScale cfig $ menuScreen cfig lay)
+fixedCoordPictures u = drawMenuOrHUD cfig u 
+    <> drawConcurrentMessage u 
+    <> customMouseCursor cfig (u ^. uvWorld . input)
+    <> listPicturesAt (halfWidth cfig) 0 cfig (map text (_uvTestString u u))
   where
     cfig = _uvConfig u
 
+drawMenuOrHUD :: Configuration -> Universe -> Picture
+drawMenuOrHUD cfig u = case u ^. uvScreenLayers of
+    [] -> drawHUD u
+    (lay : _) -> drawMenuScreen cfig lay
+
 drawConcurrentMessage :: Universe -> Picture
 drawConcurrentMessage u =
     stackPicturesAt