blob: 451f07943cdf39a5a16e9a70deb882a5d16bbb48 (
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 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)
|
