From 233d13ca4af2fb7627926f160b9c42638ad7b333 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 24 Jan 2017 20:16:08 -0500 Subject: render: Add bitmap font support. * chickadee/render/font.scm: New file. * Makefile.am (SOURCES): Add it. * examples/text.scm: New file. * examples/fonts/AUTHORS: New file. * examples/fonts/good_neighbors_starling.png: New file. * examples/fonts/good_neighbors_starling.xml: New file. --- examples/text.scm | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 examples/text.scm (limited to 'examples/text.scm') diff --git a/examples/text.scm b/examples/text.scm new file mode 100644 index 0000000..37ac22c --- /dev/null +++ b/examples/text.scm @@ -0,0 +1,26 @@ +(use-modules (chickadee) + (chickadee math vector) + (chickadee render font)) + +(define font #f) + +(define (load) + (set! font (load-font "fonts/good_neighbors_starling.xml"))) + +(define (draw alpha) + (draw-text font "(draw-text font \"Hello, world!\" (vec2 100.0 200.0))" + (vec2 100.0 200.0)) + (draw-text font "Chickadee is a game development toolkit for Guile Scheme." + (vec2 100.0 150.0)) + (draw-text font "The quick brown fox jumps over the lazy dog" + (vec2 100.0 100.0))) + +(add-hook! load-hook load) +(add-hook! draw-hook draw) +(add-hook! quit-hook abort-game) +(add-hook! key-press-hook + (lambda (key scan modifiers repeat?) + (when (eq? key 'q) + (abort-game)))) + +(run-game) -- cgit v1.2.3