From ad578c225116d00639c139ccaec34a70800b51d2 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 26 Jan 2017 19:37:55 -0500
Subject: examples: Add nine-patch example.

* examples/nine-patch.scm: New file.
* examples/images/dialog-box.png: New file.
* examples/AUTHORS: New file.
---
 examples/nine-patch.scm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 examples/nine-patch.scm

(limited to 'examples/nine-patch.scm')

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)
-- 
cgit v1.2.3