From d69f711275675d4b5da88117b14c1d15be232cf5 Mon Sep 17 00:00:00 2001 From: sanine Date: Mon, 22 Aug 2022 14:01:39 -0500 Subject: add image/ --- src/image/image.c | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 src/image/image.c (limited to 'src/image/image.c') diff --git a/src/image/image.c b/src/image/image.c new file mode 100644 index 0000000..cf08625 --- /dev/null +++ b/src/image/image.c @@ -0,0 +1,43 @@ +#include +#include +#define STB_IMAGE_IMPLEMENTATION +#include "stb_image.h" +#include "image.h" + +int load_image(lua_State *L) +{ + char *filename; + lua_Integer requested_channels; + hs_parse_args(L, hs_str(filename), hs_int(requested_channels)); + + int width, height, channels; + unsigned char *data = stbi_load(filename, &width, &height, &channels, requested_channels); + + if (data == NULL) hs_throw_error(L, "failed to load image '%s'", filename); + + lua_pushlightuserdata(L, data); + lua_pushinteger(L, width); + lua_pushinteger(L, height); + lua_pushinteger(L, channels); + return 4; +} + + +int free_image(lua_State *L) +{ + void *data; + hs_parse_args(L, hs_light(data)); + stbi_image_free(data); + return 0; +} + + +void setup_image(lua_State *L, int honey_index) +{ + hs_create_table(L, + hs_str_cfunc("load", load_image), + hs_str_cfunc("destroy", free_image), + ); + + lua_setfield(L, honey_index, "image"); +} -- cgit v1.2.1