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/shapes.h | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 sources/shapes.h (limited to 'sources/shapes.h') diff --git a/sources/shapes.h b/sources/shapes.h new file mode 100644 index 0000000..dc73011 --- /dev/null +++ b/sources/shapes.h @@ -0,0 +1,20 @@ +#include "raylib.h" +#include "s7.h" +#include +#include + +static s7_pointer rl_draw_rectangle(s7_scheme *s7, s7_pointer args) { + Color *c = (Color *)s7_c_object_value(s7_car(s7_cdr(s7_cdr(s7_cdr(s7_cdr(args)))))); + + DrawRectangle(s7_integer(s7_car(args)), + s7_integer(s7_car(s7_cdr(args))), + s7_integer(s7_car(s7_cdr(s7_cdr(args)))), + s7_integer(s7_car(s7_cdr(s7_cdr(s7_cdr(args))))), + *c); + + return(NULL); +} + +static void rl_shapes_define_methods(s7_scheme *s7) { + s7_define_function(s7, "rl-draw-rectangle", rl_draw_rectangle, 5, 0, false, "test"); +} -- cgit v1.2.3