1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
#include "raylib.h"
#include "s7.h"
#include <stdio.h>
#include <stdlib.h>
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_draw_texture(s7_scheme *s7, s7_pointer args) {
Texture2D *texture = (Texture2D *) s7_c_object_value(s7_car(args));
DrawTexture(*texture, 100, 100, WHITE);
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(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");
s7_define_safe_function(s7, "rl-draw-texture", rl_draw_texture, 1, 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);
}
|
