From f6e3396a5a653c3ae124afcd74bac5c9c7e50ae1 Mon Sep 17 00:00:00 2001 From: Henrique Alves Date: Sun, 28 Apr 2024 21:07:01 +0300 Subject: (wip) Basic textbox API --- sources/text.h | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'sources/text.h') diff --git a/sources/text.h b/sources/text.h index a0e3497..0759d2f 100644 --- a/sources/text.h +++ b/sources/text.h @@ -4,11 +4,17 @@ #include static s7_pointer rl_draw_text(s7_scheme *s7, s7_pointer args) { - printf("%s\n", s7_string(s7_car(args))); - DrawText(s7_string(s7_car(args)), 200, 80, 20, RED); + Color *c = (Color *)s7_c_object_value(s7_car(s7_cddddr(args))); + + DrawText(s7_string(s7_car(args)), + s7_integer(s7_cadr(args)), + s7_integer(s7_caddr(args)), + s7_integer(s7_cadddr(args)), + *c); + return(NULL); } static void rl_text_define_methods(s7_scheme *s7) { - s7_define_function(s7, "rl-draw-text", rl_draw_text, 1, 0, false, "test"); + s7_define_function(s7, "rl-draw-text", rl_draw_text, 5, 0, false, "test"); } -- cgit v1.2.3