summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/font.scm38
-rw-r--r--examples/fonts/Boxy-Bold.ttfbin0 -> 14432 bytes
2 files changed, 38 insertions, 0 deletions
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
--- /dev/null
+++ b/examples/fonts/Boxy-Bold.ttf
Binary files differ