Update size of window and size of font

crypts-and-corpses.lisp

@@ -55,8 +55,8 @@
 
 (defun intro-message ()
   (loop as key = (terminal-read) do
-    (terminal-print 40 21  "Crypts and Corpses")
-    (terminal-print 39 22 "Press enter to start")
+    (terminal-print 40 16  "Crypts and Corpses")
+    (terminal-print 39 17 "Press enter to start")
     (terminal-refresh)
         until (= key bearlibterminal-ffi:+tk-enter+)))
 
@@ -93,8 +93,8 @@
 
 (defun start ()
   (terminal-open)
-  (terminal-set "window: size=100x50, title='Crypts and Corpses'")
-  (terminal-set "font: ./fonts/DejaVuSansMono.ttf, size=12")
+  (terminal-set "window: size=100x40, title='Crypts and Corpses'")
+  (terminal-set "font: ./fonts/DejaVuSansMono.ttf, size=16")
   (intro-message)
   (main-loop)
   (terminal-close))