From 075dbfca506afcc8de2b48b47bcc8b47423cdbab Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Sat, 17 Aug 2013 23:00:36 -0400
Subject: Create a font example.

---
 examples/font.scm            |  38 ++++++++++++++++++++++++++++++++++++++
 examples/fonts/Boxy-Bold.ttf | Bin 0 -> 14432 bytes
 2 files changed, 38 insertions(+)
 create mode 100644 examples/font.scm
 create mode 100644 examples/fonts/Boxy-Bold.ttf

diff --git a/examples/font.scm b/examples/font.scm
new file mode 100644
index 0000000..3bb0af0
--- /dev/null
+++ b/examples/font.scm
@@ -0,0 +1,38 @@
+(use-modules (2d game-loop)
+             (2d window)
+             (2d helpers)
+             (figl gl)
+             (2d wrappers ftgl))
+
+(define window-width 800)
+(define window-height 600)
+(define font (ftgl-create-texture-font "fonts/Boxy-Bold.ttf"))
+(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)
+
+(define (quit-demo)
+  (close-window)
+  (quit))
+
+(define (key-down key mod unicode)
+  (cond ((any-equal? key 'escape 'q)
+         (quit-demo))))
+
+;; Draw our sprite
+(define (render)
+  (gl-color 1 1 1)
+  (ftgl-render-font font text (ftgl-render-mode all)))
+
+;; 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)
diff --git a/examples/fonts/Boxy-Bold.ttf b/examples/fonts/Boxy-Bold.ttf
new file mode 100644
index 0000000..8076dc5
Binary files /dev/null and b/examples/fonts/Boxy-Bold.ttf differ
-- 
cgit v1.2.3