diff options
| author | David Thompson <dthompson2@worcester.edu> | 2021-04-07 17:04:39 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2021-04-07 17:07:35 -0400 |
| commit | 37a466f7089b88f5554eafbe9b4bcee7290868c7 (patch) | |
| tree | 67bb4450e20a55eff4c9d25ae4d966478c45b24a /examples/9-patch.scm | |
| parent | 42f3ce0e79f0fe488c6844a8819fab1659177a01 (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.scm | 17 |
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) |