scripts/main.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(define a 0)
;;(define b 0)

(define update
  (lambda ()
    (set! a (+ a 1))
    ;;(set! b (rl-load-texture))
    ;;(display b)
    
    ))

(define draw
  (lambda ()
    (rl-draw-text (number->string a))
    ))