summaryrefslogtreecommitdiff
path: root/examples/9-patch.scm
blob: debc69df52749ec002afe6877cd1db7c133dda78 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(use-modules (chickadee)
             (chickadee math rect)
             (chickadee math vector)
             (chickadee graphics 9-patch)
             (chickadee graphics text)
             (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." (vec2 200.0 266.0)))

(run-game #:load load #:draw draw)