From ce22c1916efd19c184b35146f81fd5dfee39909b Mon Sep 17 00:00:00 2001
From: Ricardo Wurmus <rekado@elephly.net>
Date: Wed, 25 Jul 2018 10:32:16 +0200
Subject: Use readable font everywhere.

---
 scenes/game.scm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'scenes/game.scm')

diff --git a/scenes/game.scm b/scenes/game.scm
index efaafe4..aeb699c 100644
--- a/scenes/game.scm
+++ b/scenes/game.scm
@@ -62,10 +62,6 @@
   (tile-map #:accessor tile-map #:init-form test-map))
 
 (define-asset game-font
-  (load-tile-font "assets/fonts/bubblemad_8x8.png" 8 8
-                  " !\"©_%❤'()*+,-./0123456789:←<=>?@abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))
-
-(define-asset talk-font
   (load-font "assets/fonts/good_neighbors_starling.xml"))
 
 (define (start-position game name)
@@ -328,7 +324,7 @@ be executed; if so, perform the action."
 
 (define* (render-text bubble text #:key (y-offset 0) (suffix '-text))
   "Fill the bubble with lines of text.  Return the number of lines."
-  (let ((lines (arrange-text text (asset-ref talk-font)
+  (let ((lines (arrange-text text (asset-ref game-font)
                              #:margin 4.0)))
     (for-each (lambda (line i)
                 (attach bubble (make <label>
@@ -336,7 +332,7 @@ be executed; if so, perform the action."
                                                        (string->symbol
                                                         (number->string i))
                                                        suffix)
-                                 #:font talk-font
+                                 #:font game-font
                                  #:text line
                                  #:position (vec2 4.0
                                                   (- 65 y-offset (* %line-height i))))))
-- 
cgit v1.2.3