summaryrefslogtreecommitdiff
path: root/src/glm_mat4_bindings.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/glm_mat4_bindings.c')
-rw-r--r--src/glm_mat4_bindings.c399
1 files changed, 399 insertions, 0 deletions
diff --git a/src/glm_mat4_bindings.c b/src/glm_mat4_bindings.c
new file mode 100644
index 0000000..f10f954
--- /dev/null
+++ b/src/glm_mat4_bindings.c
@@ -0,0 +1,399 @@
+#include "glm_bindings.h"
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * Mat4 Functions
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
+int honey_glm_mat4_copy(lua_State* L)
+{
+ honey_glm_array* self, *dest;
+ honey_lua_parse_arguments
+ (L, 1, 2,
+ HONEY_USERDATA, &self,
+ HONEY_USERDATA, &dest);
+
+ if (dest->type != MAT4)
+ honey_lua_throw_error
+ (L, "destination must be MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+
+ glm_mat4_copy(self->data, dest->data);
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_mat4_eye(lua_State* L)
+{
+ honey_glm_array* self;
+ honey_lua_parse_arguments
+ (L, 1, 1, HONEY_USERDATA, &self);
+
+ glm_mat4_identity(self->data);
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_mat4_zero(lua_State* L)
+{
+ honey_glm_array* self;
+ honey_lua_parse_arguments
+ (L, 1, 1, HONEY_USERDATA, &self);
+
+ glm_mat4_zero(self->data);
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_mat4_mul(lua_State* L)
+{
+ honey_glm_array* self, *mult, *dest;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 2, HONEY_USERDATA, &self, HONEY_USERDATA, &mult,
+ 4, HONEY_USERDATA, &self, HONEY_USERDATA, &mult, HONEY_USERDATA, &dest);
+
+ if (mult->type != MAT4)
+ honey_lua_throw_error
+ (L, "second matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, mult->type);
+
+ if (choice == 1) {
+ if (dest->type != MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+ }
+ else {
+ honey_glm_new_mat4(L);
+ dest = lua_touserdata(L, -1);
+ }
+
+ glm_mat4_mul(self->data, mult->data, dest->data);
+
+ if (choice == 0)
+ return 1;
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_mat4_transpose(lua_State* L)
+{
+ honey_glm_array* self, *dest;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 1, HONEY_USERDATA, &self,
+ 2, HONEY_USERDATA, &self, HONEY_USERDATA, &dest);
+
+ if (choice == 1) {
+ if (dest->type != MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+ }
+
+ if (choice == 0)
+ glm_mat4_transpose(self->data);
+ else
+ glm_mat4_transpose_to(self->data, dest->data);
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_mat4_mulv(lua_State* L)
+{
+ honey_glm_array* self, *v, *dest;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 2, HONEY_USERDATA, &self, HONEY_USERDATA, &v,
+ 4, HONEY_USERDATA, &self, HONEY_USERDATA, &v, HONEY_USERDATA, &dest);
+
+ if (v->type != VEC4)
+ honey_lua_throw_error
+ (L, "vector must be of type VEC4 (%d); got %d instead",
+ VEC4, v->type);
+
+ if (choice == 0) {
+ honey_glm_new_vec4(L);
+ dest = lua_touserdata(L, -1);
+ }
+ else {
+ if (dest->type == MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+ }
+
+ glm_mat4_mulv(self->data, v->data, dest->data);
+
+ if (choice == 0)
+ return 1;
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_mat4_scale(lua_State* L)
+{
+ honey_glm_array* self;
+ float s;
+ int choice = honey_lua_parse_arguments
+ (L, 1,
+ 2, HONEY_USERDATA, &self, HONEY_NUMBER, &s);
+
+ glm_mat4_scale(self->data, s);
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_mat4_det(lua_State* L)
+{
+ honey_glm_array* self;
+ honey_lua_parse_arguments(L, 1, 1, HONEY_USERDATA, &self);
+
+ float det = glm_mat4_det(self->data);
+ lua_pushnumber(L, det);
+ return 1;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_mat4_inv(lua_State* L)
+{
+ honey_glm_array* self, *dest;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 1, HONEY_USERDATA, &self,
+ 2, HONEY_USERDATA, &self, HONEY_USERDATA, &dest);
+
+ if (choice == 0) {
+ honey_glm_new_mat4(L);
+ dest = lua_touserdata(L, -1);
+ }
+ else {
+ if (dest->type == MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+ }
+
+ glm_mat4_inv(self->data, dest->data);
+
+ if (choice == 0)
+ return 1;
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ *
+ * Affine Transforms
+ *
+ * ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+ */
+
+int honey_glm_translate(lua_State* L)
+{
+ honey_glm_array *self, *v, *dest;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 2, HONEY_USERDATA, &self, HONEY_USERDATA, &v,
+ 3, HONEY_USERDATA, &self, HONEY_USERDATA, &v, HONEY_USERDATA, &dest);
+
+ if (v->type != VEC3)
+ honey_lua_throw_error
+ (L, "translation vector must be of type VEC3 (%d); got %d instead",
+ VEC3, v->type);
+
+ if (choice == 0) {
+ glm_translate(self->data, v->data);
+ }
+ else {
+ if (dest->type != MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+ glm_translate_to(self->data, v->data, dest->data);
+ }
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_translate_x(lua_State* L)
+{
+ honey_glm_array* self;
+ float s;
+ honey_lua_parse_arguments(L, 1, 2, HONEY_USERDATA, &self, HONEY_NUMBER, &s);
+
+ glm_translate_x(self->data, s);
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_translate_y(lua_State* L)
+{
+ honey_glm_array* self;
+ float s;
+ honey_lua_parse_arguments(L, 1, 2, HONEY_USERDATA, &self, HONEY_NUMBER, &s);
+
+ glm_translate_y(self->data, s);
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_translate_z(lua_State* L)
+{
+ honey_glm_array* self;
+ float s;
+ honey_lua_parse_arguments(L, 1, 2, HONEY_USERDATA, &self, HONEY_NUMBER, &s);
+
+ glm_translate_z(self->data, s);
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_scalev(lua_State* L)
+{
+ honey_glm_array* self, *v, *dest;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 2, HONEY_USERDATA, &self, HONEY_USERDATA, &v,
+ 3, HONEY_USERDATA, &self, HONEY_USERDATA, &v, HONEY_USERDATA, &dest);
+
+ if (v->type != VEC3)
+ honey_lua_throw_error
+ (L, "scale vector must be of type VEC3 (%d); got %d instead",
+ VEC3, v->type);
+
+ if (choice == 0)
+ glm_scale(self->data, v->data);
+ else {
+ if (dest->type != MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+
+ glm_scale_to(self->data, v->data, dest->data);
+ }
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_rotate_x(lua_State* L)
+{
+ honey_glm_array* self, *dest;
+ float angle;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 2, HONEY_USERDATA, &self, HONEY_NUMBER, &angle,
+ 3, HONEY_USERDATA, &self, HONEY_NUMBER, &angle, HONEY_USERDATA, &dest);
+
+ if (choice == 0)
+ dest = self;
+ else {
+ if (dest->type != MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+ }
+
+ glm_rotate_x(self->data, angle, dest->data);
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_rotate_y(lua_State* L)
+{
+ honey_glm_array* self, *dest;
+ float angle;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 2, HONEY_USERDATA, &self, HONEY_NUMBER, &angle,
+ 3, HONEY_USERDATA, &self, HONEY_NUMBER, &angle, HONEY_USERDATA, &dest);
+
+ if (choice == 0)
+ dest = self;
+ else {
+ if (dest->type != MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+ }
+
+ glm_rotate_y(self->data, angle, dest->data);
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_rotate_z(lua_State* L)
+{
+ honey_glm_array* self, *dest;
+ float angle;
+ int choice = honey_lua_parse_arguments
+ (L, 2,
+ 2, HONEY_USERDATA, &self, HONEY_NUMBER, &angle,
+ 3, HONEY_USERDATA, &self, HONEY_NUMBER, &angle, HONEY_USERDATA, &dest);
+
+ if (choice == 0)
+ dest = self;
+ else {
+ if (dest->type != MAT4)
+ honey_lua_throw_error
+ (L, "destination matrix must be of type MAT4 (%d); got %d instead",
+ MAT4, dest->type);
+ }
+
+ glm_rotate_z(self->data, angle, dest->data);
+
+ return 0;
+}
+
+/* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ */
+
+int honey_glm_rotate(lua_State* L)
+{
+ honey_glm_array *self, *pivot, *axis;
+ float angle;
+ int choice = honey_lua_parse_arguments
+ (L, 1,
+ 4,
+ HONEY_USERDATA, &self, HONEY_USERDATA, &pivot,
+ HONEY_NUMBER, &angle, HONEY_USERDATA, &axis);
+
+ if (pivot->type != VEC3)
+ honey_lua_throw_error
+ (L, "pivot vector must be of type VEC3 (%d); got %d instead",
+ VEC3, pivot->type);
+
+ if (axis->type != VEC3)
+ honey_lua_throw_error
+ (L, "axis vector must be of type VEC3 (%d); got %d instead",
+ VEC3, axis->type);
+
+ glm_rotate_at(self->data, pivot->data, angle, axis->data);
+
+ return 0;
+}
generated by cgit v1.2.1 (git 2.18.0) at 2024-11-01 16:38:17 +0000