diff options
Diffstat (limited to 'scripts/main.scm')
| -rw-r--r-- | scripts/main.scm | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/scripts/main.scm b/scripts/main.scm index 1a5ebb1..f480053 100644 --- a/scripts/main.scm +++ b/scripts/main.scm @@ -2,17 +2,31 @@ (load "./scripts/structs.scm") (load "./scripts/utils.scm") (load "./scripts/prompt.scm") +(load "./scripts/gol.scm") -;; (define a 0) -;; (define b (rl-load-texture)) - +(define camera-offset (make-point)) (define (update) (prompt-update) + + (if (rl-is-key-down KEY_DOWN) + (run-step) + ) ) (define (draw) (prompt-draw) + + (for-each (lambda (cell) + (rl-draw-rectangle + (* (car cell) 30) + (* (cdr cell) 30) + 30 + 30 + (make-color 190 100 255)) + + ) (hash-table-keys current-cells)) + ) |