diff options
Diffstat (limited to 'sources/core.h')
| -rw-r--r-- | sources/core.h | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/sources/core.h b/sources/core.h index 7e387de..70a7d81 100644 --- a/sources/core.h +++ b/sources/core.h @@ -3,6 +3,14 @@ #include <stdio.h> #include <stdlib.h> +static s7_pointer rl_get_mouse_position(s7_scheme *s7, s7_pointer args) { + Vector2 mouse_pos = GetMousePosition(); + s7_pointer vec = s7_make_float_vector(s7, 2, 1, NULL); + s7_vector_set(s7, vec, 0, s7_make_real(s7, mouse_pos.x)); + s7_vector_set(s7, vec, 1, s7_make_real(s7, mouse_pos.y)); + return vec; +} + static s7_pointer rl_is_key_down(s7_scheme *s7, s7_pointer args) { int key = s7_integer(s7_car(args)); bool isKey = IsKeyDown(key); @@ -10,5 +18,6 @@ static s7_pointer rl_is_key_down(s7_scheme *s7, s7_pointer args) { } static void rl_core_define_methods(s7_scheme *s7) { - s7_define_function(s7, "rl-is-key-down", rl_is_key_down, 1, 0, false, "test"); + s7_define_function(s7, "rl-is-key-down", rl_is_key_down, 1, 0, false, "(rl-is-key-down KEY)"); + s7_define_function(s7, "rl-get-mouse-position", rl_get_mouse_position, 0, 0, false, "(rl-get-mouse-position)"); } |