From 7cedd7ce6e9f474170551ea64233f08517ca0a4e Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 17 Aug 2013 23:27:47 -0400 Subject: Update font example. --- examples/font.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'examples') diff --git a/examples/font.scm b/examples/font.scm index 3bb0af0..b6fd4a1 100644 --- a/examples/font.scm +++ b/examples/font.scm @@ -1,16 +1,13 @@ (use-modules (2d game-loop) (2d window) (2d helpers) - (figl gl) - (2d wrappers ftgl)) + (2d font)) (define window-width 800) (define window-height 600) -(define font (ftgl-create-texture-font "fonts/Boxy-Bold.ttf")) +(define font (load-font "fonts/Boxy-Bold.ttf" 48)) (define text "The quick brown fox jumped over the lazy dog.") -(ftgl-set-font-face-size font 48 72) - ;; Open the window. (open-window window-width window-height) @@ -24,15 +21,14 @@ ;; Draw our sprite (define (render) - (gl-color 1 1 1) - (ftgl-render-font font text (ftgl-render-mode all))) + (let ((fps (floor (inexact->exact (current-fps))))) + (render-font font (format #f "FPS: ~d" fps) #f #f))) ;; Register callbacks. (add-hook! on-quit-hook (lambda () (quit-demo))) (add-hook! on-render-hook (lambda () (render))) (add-hook! on-key-down-hook (lambda (key mod unicode) (key-down key mod unicode))) - ;; Start the game loop. ;; The render callback will be called through this procedure. (run-game-loop) -- cgit v1.2.3