diff options
| -rw-r--r-- | scripts/keys.scm | 3 | ||||
| -rw-r--r-- | scripts/main.scm | 10 |
2 files changed, 9 insertions, 4 deletions
diff --git a/scripts/keys.scm b/scripts/keys.scm new file mode 100644 index 0000000..963fb41 --- /dev/null +++ b/scripts/keys.scm @@ -0,0 +1,3 @@ +(define KEY_RIGHT 262) +(define KEY_LEFT 263) +(define KEY_DOWN 264) diff --git a/scripts/main.scm b/scripts/main.scm index 095fa98..2507424 100644 --- a/scripts/main.scm +++ b/scripts/main.scm @@ -1,14 +1,16 @@ +(load "./scripts/keys.scm") + (define a 0) (define b (rl-load-texture)) (define (update) - (cond ((rl-is-key-down 262) (set! b (rl-load-texture))) ;; right - ((rl-is-key-down 263) (set! a (+ a 1))) ;; left - ((rl-is-key-down 264) (gc)) ;; down + (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) + (rl-draw-texture b) ) |