Add a nicer bitmap font

1 files changed, 15 insertions, 7 deletions

diff --git a/turbo.scm b/turbo.scm
index c90052a..400146b 100644
--- a/turbo.scm
+++ b/turbo.scm
@@ -8,6 +8,8 @@
 
 ;;;; Constants and variables
 
+(define the-font (load-bitmap-font "thick_8x8.xml"))
+
 (define lane-height 65)
 (define lane-length 192)
 (define road-start-y 80)
@@ -184,11 +186,10 @@
 
 (define (draw alpha)
   (draw-road road-section-position road-start-y road-num-lanes)
-  (draw-text "Turbo Racers!"
-	     (vec2 260.0 (- (window-height (current-window)) 25)))
-  
-  (draw-text (format #f "Speed: ~smph" (* player-speed 5))
-	     (vec2 450.0 20.0))
+  (draw-text "Turbo Racer 3000!"
+	     (vec2 170.0 (- (window-height (current-window)) 25))
+	     #:font the-font
+	     #:scale (vec2 2 2))
 
   (draw-sprite player-car player-position #:rotation player-rotation)
 
@@ -196,9 +197,16 @@
 	      (if (vehicle-active? veh)
 		  (draw-sprite (vehicle-sprite veh) (vehicle-position veh))))
 	    vehicles)
-    
+
+  (draw-text (format #f "Speed: ~smph" (* player-speed 5))
+	     (vec2 450.0 20.0)
+	     #:font the-font
+	     #:scale (vec2 2 2))
+  
   (if game-over
-      (draw-text "GAME OVER" (vec2 260 (/ (window-width (current-window)) 2)))))
+      (draw-text "GAME OVER" (vec2 260 (/ (window-width (current-window)) 2))
+		 #:font the-font
+		 #:scale (vec2 2 2))))
   
 
 (define (key-press key modifiers repeat?)