summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/images/AUTHORS9
-rw-r--r--examples/images/dialog-box.pngbin0 -> 407 bytes
-rw-r--r--examples/nine-patch.scm23
3 files changed, 32 insertions, 0 deletions
diff --git a/examples/images/AUTHORS b/examples/images/AUTHORS
new file mode 100644
index 0000000..58442fd
--- /dev/null
+++ b/examples/images/AUTHORS
@@ -0,0 +1,9 @@
+-*- org -*-
+
+* chickadee.png
+ By Refuzzle, CC0
+ http://opengameart.org/content/winter-birds
+
+* dialog-box.png
+ By DragonDePlatino, CC BY-SA 3.0
+ http://opengameart.org/content/dawnlike-16x16-universal-rogue-like-tileset-v181
diff --git a/examples/images/dialog-box.png b/examples/images/dialog-box.png
new file mode 100644
index 0000000..a3b3329
--- /dev/null
+++ b/examples/images/dialog-box.png
Binary files differ
diff --git a/examples/nine-patch.scm b/examples/nine-patch.scm
new file mode 100644
index 0000000..5255d34
--- /dev/null
+++ b/examples/nine-patch.scm
@@ -0,0 +1,23 @@
+(use-modules (chickadee)
+ (chickadee math rect)
+ (chickadee math vector)
+ (chickadee render font)
+ (chickadee render sprite)
+ (chickadee render texture))
+
+(define image #f)
+(define font #f)
+
+(define (load)
+ (set! image (load-image "images/dialog-box.png"))
+ (set! font (load-font "fonts/good_neighbors_starling.xml")))
+
+(define (draw alpha)
+ (draw-nine-patch image (make-rect 192.0 192.0 256.0 96.0) #:margin 6)
+ (draw-text font "I am error." (vec2 200.0 266.0)))
+
+(add-hook! load-hook load)
+(add-hook! draw-hook draw)
+(add-hook! quit-hook abort-game)
+
+(run-game)