summaryrefslogtreecommitdiff
path: root/game.scm
diff options
context:
space:
mode:
Diffstat (limited to 'game.scm')
-rw-r--r--game.scm8
1 files changed, 4 insertions, 4 deletions
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))