Add output folder

2 files changed, 8 insertions, 0 deletions

diff --git a/sources/main.c b/sources/main.c
index 309e8c3..3601fe3 100644
--- a/sources/main.c
+++ b/sources/main.c
@@ -48,6 +48,7 @@ int main(int argc, char* argv[]) {
   InitWindow(screen_width, screen_height, "SLGJ - 2024");
   SetTargetFPS(60);
 
+  printf("foi");
   char filename[] = SCRIPTS_PATH"main.scm";
 
   s7_load(s7, filename);
diff --git a/sources/text.h b/sources/text.h
index 74716c1..fed7181 100644
--- a/sources/text.h
+++ b/sources/text.h
@@ -17,6 +17,12 @@ static s7_pointer rl_draw_text(s7_scheme *s7, s7_pointer args) {
   return(NULL);
 }
 
+static s7_pointer rl_draw_texture(s7_scheme *s7, s7_pointer args) {
+  Texture2D *texture = (Texture2D *) s7_c_object_value(s7_car(args));
+  DrawTexture(*texture, 100, 100, WHITE);
+  return(NULL);
+}
+
 static s7_pointer rl_load_texture(s7_scheme *s7, s7_pointer args) {
   Texture2D texture = LoadTexture("./assets/test.png");
   Texture2D *texture_ptr = (Texture2D *) malloc(sizeof(Texture2D));
@@ -27,6 +33,7 @@ static s7_pointer rl_load_texture(s7_scheme *s7, s7_pointer args) {
 static void rl_text_define_methods(s7_scheme *s7) {
   s7_define_safe_function(s7, "rl-draw-text", rl_draw_text, 1, 0, false, "test");
   s7_define_safe_function(s7, "rl-load-texture", rl_load_texture, 0, 0, false, "test");
+  s7_define_safe_function(s7, "rl-draw-texture", rl_draw_texture, 1, 0, false, "test");
   
   texture_2d_tag = s7_make_c_type(s7, "texture-2d");
   s7_c_type_set_gc_free(s7, texture_2d_tag, free_texture_2d);