From cef05d32d6a8e38d8d84a5a7efac4494b00f1ce9 Mon Sep 17 00:00:00 2001
From: Henrique Alves <henrique.alves@itsjungle.xyz>
Date: Mon, 22 Apr 2024 10:32:24 +0300
Subject: Testing texture API

---
 scripts/main.scm | 21 +++++++++++++--------
 1 file changed, 13 insertions(+), 8 deletions(-)

(limited to 'scripts')

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)
+  )
-- 
cgit v1.2.3