blob: 2507424797ab702925281ae8464f577f41985e5f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(load "./scripts/keys.scm")
(define a 0)
(define b (rl-load-texture))
(define (update)
(cond ((rl-is-key-down KEY_RIGHT) (set! b (rl-load-texture))) ;; right
((rl-is-key-down KEY_LEFT) (set! a (+ a 1))) ;; left
((rl-is-key-down KEY_DOWN) (gc)) ;; down
)
)
(define (draw)
(rl-draw-text (number->string a))
(rl-draw-texture b)
)
|
