diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2018-07-25 10:32:16 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2018-07-27 17:15:48 +0200 |
commit | ce22c1916efd19c184b35146f81fd5dfee39909b (patch) | |
tree | 5a4daf687e1783f287f07bbde7e16255c987b58a /scenes/game.scm | |
parent | f3dd149c6bd081670f20649734d11f0ee8d3eddc (diff) |
Use readable font everywhere.
Diffstat (limited to 'scenes/game.scm')
-rw-r--r-- | scenes/game.scm | 8 |
1 files changed, 2 insertions, 6 deletions
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)))))) |