1 files changed, 261 insertions, 0 deletions
diff --git a/src/glm/camera.c b/src/glm/camera.c
new file mode 100644
index 0000000..abc5f4d
--- /dev/null
+++ b/src/glm/camera.c
@@ -0,0 +1,261 @@
+#include <string.h>
+#include <lua.h>
+#include <lauxlib.h>
+#include <cglm/cglm.h>
+#include "glm.h"
+
+
+int glm_frustum_bind(lua_State *L)
+{
+	float left = luaL_checknumber(L, 1);
+	float right = luaL_checknumber(L, 2);
+	float bottom = luaL_checknumber(L, 3);
+	float top = luaL_checknumber(L, 4);
+	float nearVal = luaL_checknumber(L, 5);
+	float farVal = luaL_checknumber(L, 6);
+	mat4 *dest = luaL_checkudata(L, 7, glm_mat4_tname);
+	glm_frustum(left, right, bottom, top, nearVal, farVal, *dest);
+	return 0;
+}
+
+
+int glm_ortho_bind(lua_State *L)
+{
+	float left = luaL_checknumber(L, 1);
+	float right = luaL_checknumber(L, 2);
+	float bottom = luaL_checknumber(L, 3);
+	float top = luaL_checknumber(L, 4);
+	float nearVal = luaL_checknumber(L, 5);
+	float farVal = luaL_checknumber(L, 6);
+	mat4 *dest = luaL_checkudata(L, 7, glm_mat4_tname);
+	glm_ortho(left, right, bottom, top, nearVal, farVal, *dest);
+	return 0;
+}
+
+
+int glm_ortho_aabb_bind(lua_State *L)
+{
+	vec3 *aa = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *bb = luaL_checkudata(L, 2, glm_vec3_tname);
+	mat4 *dest = luaL_checkudata(L, 3, glm_mat4_tname);
+	vec3 box[2];
+	memcpy(box, *aa, sizeof(vec3));
+	memcpy(box+1, *bb, sizeof(vec3));
+	glm_ortho_aabb(box, *dest);
+	return 0;
+}
+
+
+int glm_ortho_aabb_p_bind(lua_State *L)
+{
+	vec3 *aa = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *bb = luaL_checkudata(L, 2, glm_vec3_tname);
+	float padding = luaL_checknumber(L, 3);
+	mat4 *dest = luaL_checkudata(L, 4, glm_mat4_tname);
+	vec3 box[2];
+	memcpy(box, *aa, sizeof(vec3));
+	memcpy(box+1, *bb, sizeof(vec3));
+	glm_ortho_aabb_p(box, padding, *dest);
+	return 0;
+}
+
+
+int glm_ortho_aabb_pz_bind(lua_State *L)
+{
+	vec3 *aa = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *bb = luaL_checkudata(L, 2, glm_vec3_tname);
+	float padding = luaL_checknumber(L, 3);
+	mat4 *dest = luaL_checkudata(L, 4, glm_mat4_tname);
+	vec3 box[2];
+	memcpy(box, *aa, sizeof(vec3));
+	memcpy(box+1, *bb, sizeof(vec3));
+	glm_ortho_aabb_pz(box, padding, *dest);
+	return 0;
+}
+
+
+int glm_ortho_default_bind(lua_State *L)
+{
+	float aspect = luaL_checknumber(L, 1);
+	mat4 *dest = luaL_checkudata(L, 2, glm_mat4_tname);
+	glm_ortho_default(aspect, *dest);
+	return 0;
+}
+
+
+int glm_ortho_default_s_bind(lua_State *L)
+{
+	float aspect = luaL_checknumber(L, 1);
+	float size = luaL_checknumber(L, 2);
+	mat4 *dest = luaL_checkudata(L, 3, glm_mat4_tname);
+	glm_ortho_default_s(aspect, size, *dest);
+	return 0;
+}
+
+
+int glm_perspective_bind(lua_State *L)
+{
+	float fovy = luaL_checknumber(L, 1);
+	float aspect = luaL_checknumber(L, 2);
+	float nearVal = luaL_checknumber(L, 3);
+	float farVal = luaL_checknumber(L, 4);
+	mat4 *dest = luaL_checkudata(L, 5, glm_mat4_tname);
+	glm_perspective(fovy, aspect, nearVal, farVal, *dest);
+	return 0;
+}
+
+
+int glm_persp_move_far_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float deltaFar = luaL_checknumber(L, 2);
+	glm_persp_move_far(*proj, deltaFar);
+	return 0;
+}
+
+
+int glm_perspective_default_bind(lua_State *L)
+{
+	float aspect = luaL_checknumber(L, 1);
+	mat4 *dest = luaL_checkudata(L, 2, glm_mat4_tname);
+	glm_perspective_default(aspect, *dest);
+	return 0;
+}
+
+
+int glm_perspective_resize_bind(lua_State *L)
+{
+	float aspect = luaL_checknumber(L, 1);
+	mat4 *proj = luaL_checkudata(L, 2, glm_mat4_tname);
+	glm_perspective_resize(aspect, *proj);
+	return 0;
+}
+
+
+int glm_lookat_bind(lua_State *L)
+{
+	vec3 *eye = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *center = luaL_checkudata(L, 2, glm_vec3_tname);
+	vec3 *up = luaL_checkudata(L, 3, glm_vec3_tname);
+	mat4 *dest = luaL_checkudata(L, 4, glm_mat4_tname);
+	glm_lookat(*eye, *center, *up, *dest);
+	return 0;
+}
+
+
+int glm_look_bind(lua_State *L)
+{
+	vec3 *eye = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *dir = luaL_checkudata(L, 2, glm_vec3_tname);
+	vec3 *up = luaL_checkudata(L, 3, glm_vec3_tname);
+	mat4 *dest = luaL_checkudata(L, 4, glm_mat4_tname);
+	glm_look(*eye, *dir, *up, *dest);
+	return 0;
+}
+
+
+int glm_look_anyup_bind(lua_State *L)
+{
+	vec3 *eye = luaL_checkudata(L, 1, glm_vec3_tname);
+	vec3 *dir = luaL_checkudata(L, 2, glm_vec3_tname);
+	mat4 *dest = luaL_checkudata(L, 3, glm_mat4_tname);
+	glm_look_anyup(*eye, *dir, *dest);
+	return 0;
+}
+
+
+int glm_persp_decomp_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float nearVal, farVal, top, bottom, left, right;
+	glm_persp_decomp(*proj, &nearVal, &farVal, &top, &bottom, &left, &right);
+	lua_pushnumber(L, nearVal);
+	lua_pushnumber(L, farVal);
+	lua_pushnumber(L, top);
+	lua_pushnumber(L, bottom);
+	lua_pushnumber(L, left);
+	lua_pushnumber(L, right);
+	return 6;
+}
+
+
+/* glm_persp_decompv would provide an identical interface to glm_persp_decomp, so it's not bound */
+
+
+int glm_persp_decomp_x_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float left, right;
+	glm_persp_decomp_x(*proj, &left, &right);
+	lua_pushnumber(L, left);
+	lua_pushnumber(L, right);
+	return 2;
+}
+
+
+int glm_persp_decomp_y_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float top, bottom;
+	glm_persp_decomp_y(*proj, &top, &bottom);
+	lua_pushnumber(L, top);
+	lua_pushnumber(L, bottom);
+	return 2;
+}
+
+
+int glm_persp_decomp_z_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float nearVal, farVal;
+	glm_persp_decomp_z(*proj, &nearVal, &farVal);
+	lua_pushnumber(L, nearVal);
+	lua_pushnumber(L, farVal);
+	return 2;
+}
+
+
+int glm_persp_decomp_far_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float farVal;
+	glm_persp_decomp_far(*proj, &farVal);
+	return 0;
+}
+
+
+int glm_persp_decomp_near_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float nearVal;
+	glm_persp_decomp_near(*proj, &nearVal);
+	return 0;
+}
+
+
+int glm_persp_fovy_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float bind_result = glm_persp_fovy(*proj);
+	lua_pushnumber(L, bind_result);
+	return 1;
+}
+
+
+int glm_persp_aspect_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float bind_result = glm_persp_aspect(*proj);
+	lua_pushnumber(L, bind_result);
+	return 1;
+}
+
+
+int glm_persp_sizes_bind(lua_State *L)
+{
+	mat4 *proj = luaL_checkudata(L, 1, glm_mat4_tname);
+	float fovy = luaL_checknumber(L, 2);
+	vec4 *dest = luaL_checkudata(L, 3, glm_vec4_tname);
+	glm_persp_sizes(*proj, fovy, *dest);
+	return 0;
+}