Testing texture API

1 files changed, 12 insertions, 0 deletions

diff --git a/sources/text.h b/sources/text.h
new file mode 100644
index 0000000..2f2584a
--- /dev/null
+++ b/sources/text.h
@@ -0,0 +1,12 @@
+#include "raylib.h"
+#include <libguile.h>
+
+static void rl_draw_text(SCM text) {
+  scm_t_string_failed_conversion_handler handler;
+  char* str = scm_to_stringn(text, NULL, NULL, handler);
+  DrawText(str, 200, 80, 20, RED);
+}
+
+static void rl_text_define_methods() {
+  scm_c_define_gsubr ("rl-draw-text", 1, 0, 0, rl_draw_text);
+}