blob: 136c7572ce31a175f442f28b2449a5d43e625ade (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(define a 0)
(define b 0)
(define update
(lambda ()
(set! a (+ a 1))
(set! b (rl-load-texture))
(display b)
(newline)
(gc-run)
))
(define draw
(lambda ()
(rl-draw-text (number->string a))
))
|