Use monogram font.

4 files changed, 11 insertions, 4 deletions

diff --git a/fonts/VT323-Regular.ttf b/fonts/VT323-Regular.ttf
deleted file mode 100644
index 6aec599..0000000
--- a/fonts/VT323-Regular.ttf
+++ /dev/null
diff --git a/fonts/monogram-extended.ttf b/fonts/monogram-extended.ttf
new file mode 100644
index 0000000..4d4a390
--- /dev/null
+++ b/fonts/monogram-extended.ttf
diff --git a/game.css b/game.css
index d729dc9..b037a15 100644
--- a/game.css
+++ b/game.css
@@ -1,3 +1,10 @@
+@font-face {
+    font-family: 'monogram';
+    src: url('fonts/monogram-extended.ttf');
+    font-weight: normal;
+    font-style: normal;
+}
+
 body {
     background-color: #3f2832;
     margin: 0;
diff --git a/game.scm b/game.scm
index f746c29..70f9c21 100644
--- a/game.scm
+++ b/game.scm
@@ -1118,7 +1118,7 @@
          ;; TODO: Don't allocate strings every frame when the UI
          ;; values rarely change.
          (set-fill-color! context "#ffffff")
-         (set-font! context "bold 16px monospace")
+         (set-font! context "bold 16px monogram")
          (set-text-align! context "right")
          (fill-text context (string-append "x" (number->string *player-lives*))
                     (- game-width 4.0) y)
@@ -1140,17 +1140,17 @@
        (match *game-state*
          ('game-over
           (set-fill-color! context "#ffffff")
-          (set-font! context "bold 36px monospace")
+          (set-font! context "bold 36px monogram")
           (set-text-align! context "center")
           (fill-text context "GAME OVER" (/ game-width 2.0) (/ game-height 2.0)))
          ('game-win
           (set-fill-color! context "#ffffff")
-          (set-font! context "bold 36px monospace")
+          (set-font! context "bold 36px monogram")
           (set-text-align! context "center")
           (fill-text context "WELL DONE" (/ game-width 2.0) (/ game-height 2.0)))
          ('paused
           (set-fill-color! context "#ffffff")
-          (set-font! context "bold 36px monospace")
+          (set-font! context "bold 36px monogram")
           (set-text-align! context "center")
           (fill-text context "PAUSED" (/ game-width 2.0) (/ game-height 2.0)))
          (_ #t))