summaryrefslogtreecommitdiff
path: root/scripts/main.scm
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))
    ))