1 files changed, 27 insertions, 5 deletions
diff --git a/sources/text.h b/sources/text.h
index a44bbce..74716c1 100644
--- a/sources/text.h
+++ b/sources/text.h
@@ -1,11 +1,33 @@
 #include "raylib.h"
-#include <libguile.h>
+#include "s7.h"
 #include <stdio.h>
+#include <stdlib.h>
 
-static void rl_draw_text() {
-  DrawText("a", 200, 80, 20, RED); //< this line segfaults
+int texture_2d_tag;
+
+static s7_pointer free_texture_2d(s7_scheme *s7, s7_pointer obj) {
+  Texture2D *texture = (Texture2D *) s7_c_object_value(obj);
+  UnloadTexture(*texture);
+  free(texture);
+  return(NULL);
+}
+
+static s7_pointer rl_draw_text(s7_scheme *s7, s7_pointer args) {
+  DrawText(s7_string(s7_car(args)), 200, 80, 20, RED);
+  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));
+  *texture_ptr = texture;
+  return (s7_make_c_object(s7, texture_2d_tag, (void *) texture_ptr));
 }
 
-static void rl_text_define_methods() {
-  SCM handler = scm_c_define_gsubr ("rl-draw-text", 0, 0, 0, rl_draw_text);
+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");
+  
+  texture_2d_tag = s7_make_c_type(s7, "texture-2d");
+  s7_c_type_set_gc_free(s7, texture_2d_tag, free_texture_2d);
 }