summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--fonts/VT323-Regular.ttfbin149688 -> 0 bytes
-rw-r--r--fonts/monogram-extended.ttfbin0 -> 41508 bytes
-rw-r--r--game.css7
-rw-r--r--game.scm8
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
Binary files differ
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
Binary files differ
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))