summaryrefslogtreecommitdiff
path: root/examples/9-patch.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2021-04-07 17:04:39 -0400
committerDavid Thompson <dthompson2@worcester.edu>2021-04-07 17:07:35 -0400
commit37a466f7089b88f5554eafbe9b4bcee7290868c7 (patch)
tree67bb4450e20a55eff4c9d25ae4d966478c45b24a /examples/9-patch.scm
parent42f3ce0e79f0fe488c6844a8819fab1659177a01 (diff)
graphics: Rewrite 9-patch implementation and move it to its own module.
Diffstat (limited to 'examples/9-patch.scm')
-rw-r--r--examples/9-patch.scm17
1 files changed, 17 insertions, 0 deletions
diff --git a/examples/9-patch.scm b/examples/9-patch.scm
new file mode 100644
index 0000000..451f079
--- /dev/null
+++ b/examples/9-patch.scm
@@ -0,0 +1,17 @@
+(use-modules (chickadee)
+ (chickadee math rect)
+ (chickadee math vector)
+ (chickadee graphics font)
+ (chickadee graphics 9-patch)
+ (chickadee graphics texture))
+
+(define image #f)
+
+(define (load)
+ (set! image (load-image "images/dialog-box.png")))
+
+(define (draw alpha)
+ (draw-9-patch image (make-rect 192.0 192.0 256.0 96.0) #:margin 4.0)
+ (draw-text "I am error." #v(200.0 266.0)))
+
+(run-game #:load load #:draw draw)