diff options
| author | Henrique Alves <henrique.alves@itsjungle.xyz> | 2024-04-22 10:32:24 +0300 |
|---|---|---|
| committer | Henrique Alves <henrique.alves@itsjungle.xyz> | 2024-04-22 10:32:24 +0300 |
| commit | cef05d32d6a8e38d8d84a5a7efac4494b00f1ce9 (patch) | |
| tree | c8275c6c573deca60efa14a96f26d7c7a37847d3 /scripts | |
| parent | a73b626d98e331605fdfd293ab4c006a84cfd8b8 (diff) | |
| download | gamejam-slgj-2024-cef05d32d6a8e38d8d84a5a7efac4494b00f1ce9.tar.gz gamejam-slgj-2024-cef05d32d6a8e38d8d84a5a7efac4494b00f1ce9.tar.bz2 gamejam-slgj-2024-cef05d32d6a8e38d8d84a5a7efac4494b00f1ce9.zip | |
Testing texture API
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/main.scm | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/scripts/main.scm b/scripts/main.scm index 779a351..1900911 100644 --- a/scripts/main.scm +++ b/scripts/main.scm @@ -1,11 +1,16 @@ (define a 0) +(define b 0) -(define update - (lambda () - (set! a (+ a 1)) - )) +(define (update) + (set! a (+ a 1)) + (set! b (rl-load-texture "./assets/test.png")) + ;; Not displaying the next lines makes the crash take longer to happen + (display a) + (newline) + (display b) + (newline) + ) -(define draw - (lambda () - (rl-draw-text (string-append (number->string a) " oi ")) - )) +(define (draw) + (newline) + ) |