From 150738de9fb42159f6b60bc5cf817d99e6718988 Mon Sep 17 00:00:00 2001
From: Henrique Alves <henrique.alves@itsjungle.xyz>
Date: Wed, 24 Apr 2024 02:44:33 +0300
Subject: Successful test with s7!
---
scripts/main.scm | 10 +++++++++-
1 file changed, 9 insertions(+), 1 deletion(-)
(limited to 'scripts')
diff --git a/scripts/main.scm b/scripts/main.scm
index bccb72f..136c757 100644
--- a/scripts/main.scm
+++ b/scripts/main.scm
@@ -1,8 +1,16 @@
(define a 0)
(define b 0)
+(define update
+ (lambda ()
+ (set! a (+ a 1))
+ (set! b (rl-load-texture))
+ (display b)
+ (newline)
+ (gc-run)
+ ))
(define draw
(lambda ()
- (rl-draw-text)
+ (rl-draw-text (number->string a))
))
--
cgit v1.2.3