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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
|
#include <lua.h>
#include <honeysuckle.h>
#include <cglm/cglm.h>
#include "util/util.h"
#include "glm.h"
int vec3_create(lua_State *L);
int vec3_set(lua_State *L);
int vec3_get(lua_State *L);
int vec3_normalize(lua_State *L);
int vec3_add(lua_State *L);
int vec3_sub(lua_State *L);
int vec3_scale(lua_State *L);
int vec3_dot(lua_State *L);
int vec3_cross(lua_State *L);
const char *vec3_tname = "glm.vec3";
void setup_vec3(lua_State *L, int glm_tbl)
{
luaL_newmetatable(L, vec3_tname);
lua_pop(L, 1);
int tbl = hs_create_table(L,
hs_str_cfunc("vec3", vec3_create),
hs_str_cfunc("vec3_set", vec3_set),
hs_str_cfunc("vec3_get", vec3_get),
hs_str_cfunc("vec3_normalize", vec3_normalize),
hs_str_cfunc("vec3_add", vec3_add),
hs_str_cfunc("vec3_sub", vec3_sub),
hs_str_cfunc("vec3_scale", vec3_scale),
hs_str_cfunc("vec3_dot", vec3_dot),
hs_str_cfunc("vec3_cross", vec3_cross),
);
append_table(L, glm_tbl, tbl);
lua_pop(L, 1);
}
int vec3_create(lua_State *L)
{
lua_newuserdata(L, 3*sizeof(float));
luaL_getmetatable(L, vec3_tname);
lua_setmetatable(L, -2);
return 1;
}
int vec3_set(lua_State *L)
{
float *vec = luaL_checkudata(L, 1, vec3_tname);
int index = luaL_checkinteger(L, 2);
double value = luaL_checknumber(L, 3);
array_set(L, 3, vec, index, value);
return 0;
}
int vec3_get(lua_State *L)
{
float *vec = luaL_checkudata(L, 1, vec3_tname);
int index = luaL_checkinteger(L, 2);
array_get(L, 3, vec, index);
return 1;
}
int vec3_normalize(lua_State *L)
{
float *vec = luaL_checkudata(L, 1, vec3_tname);
glm_vec3_normalize(vec);
return 0;
}
int vec3_add(lua_State *L)
{
float *a = luaL_checkudata(L, 1, vec3_tname);
float *b = luaL_checkudata(L, 2, vec3_tname);
float *dest = luaL_checkudata(L, 3, vec3_tname);
glm_vec3_add(a, b, dest);
return 0;
}
int vec3_sub(lua_State *L)
{
float *a = luaL_checkudata(L, 1, vec3_tname);
float *b = luaL_checkudata(L, 2, vec3_tname);
float *dest = luaL_checkudata(L, 3, vec3_tname);
glm_vec3_sub(a, b, dest);
return 0;
}
int vec3_scale(lua_State *L)
{
float *v = luaL_checkudata(L, 1, vec3_tname);
float s = luaL_checknumber(L, 2);
float *dest = luaL_checkudata(L, 3, vec3_tname);
glm_vec3_scale(v, s, dest);
return 0;
}
int vec3_dot(lua_State *L)
{
float *a = luaL_checkudata(L, 1, vec3_tname);
float *b = luaL_checkudata(L, 2, vec3_tname);
float result = glm_vec3_dot(a, b);
lua_pushnumber(L, result);
return 1;
}
int vec3_cross(lua_State *L)
{
float *a = luaL_checkudata(L, 1, vec3_tname);
float *b = luaL_checkudata(L, 2, vec3_tname);
float *dest = luaL_checkudata(L, 3, vec3_tname);
glm_vec3_cross(a, b, dest);
return 0;
}
|
