blob: 5255d34e27bc0abffbb191438aea85219a12768e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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)
|
