src/glm/transform.c


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

#include <lua.h>
#include <honeysuckle.h>
#include <cglm/cglm.h>
#include "util/util.h"


int rotate_z(lua_State *L);


void setup_transform(lua_State *L, int glm_tbl)
{
	int tbl = hs_create_table(L,
		hs_str_cfunc("rotate_z", rotate_z),
	);

	append_table(L, glm_tbl, tbl);
	lua_pop(L, 1);
}


int rotate_z(lua_State *L)
{
	void *src_ptr, *dest_ptr;
	lua_Number angle;
	hs_parse_args(L, hs_user(src_ptr), hs_num(angle), hs_user(dest_ptr));
	mat4 *source = src_ptr;
	mat4 *dest = dest_ptr;

	glm_rotate_z(*source, angle, *dest);
	return 0;
}