diff options
author | Loïc Hoguin <[email protected]> | 2014-04-07 21:57:22 +0200 |
---|---|---|
committer | Loïc Hoguin <[email protected]> | 2014-04-07 21:57:22 +0200 |
commit | f5ecbb3b0282637423b236b2532d3e312cb8b291 (patch) | |
tree | e22a3266115d218541008dea2c174f6e7efa2425 | |
parent | bab7bbd62a903b53c4a92203b17a20a0373b667e (diff) | |
download | esdl2-f5ecbb3b0282637423b236b2532d3e312cb8b291.tar.gz esdl2-f5ecbb3b0282637423b236b2532d3e312cb8b291.tar.bz2 esdl2-f5ecbb3b0282637423b236b2532d3e312cb8b291.zip |
Add sdl_texture:set_color_mod/4
-rw-r--r-- | c_src/esdl2.h | 1 | ||||
-rw-r--r-- | c_src/sdl_texture.c | 24 | ||||
-rw-r--r-- | src/esdl2.erl | 4 | ||||
-rw-r--r-- | src/sdl_texture.erl | 5 |
4 files changed, 34 insertions, 0 deletions
diff --git a/c_src/esdl2.h b/c_src/esdl2.h index 043789f..2404355 100644 --- a/c_src/esdl2.h +++ b/c_src/esdl2.h @@ -202,6 +202,7 @@ F(get_texture_color_mod, 1) \ F(set_texture_alpha_mod, 2) \ F(set_texture_blend_mode, 2) \ + F(set_texture_color_mod, 4) \ /* sdl_version */ \ F(get_version, 0) \ F(get_revision, 0) \ diff --git a/c_src/sdl_texture.c b/c_src/sdl_texture.c index b9ec140..2179a09 100644 --- a/c_src/sdl_texture.c +++ b/c_src/sdl_texture.c @@ -172,3 +172,27 @@ NIF_FUNCTION(set_texture_blend_mode) return nif_thread_call(env, thread_set_texture_blend_mode, 2, NIF_RES_GET(Texture, texture_res), mode); } + +// set_texture_color_mod + +NIF_CALL_HANDLER(thread_set_texture_color_mod) +{ + if (SDL_SetTextureColorMod(args[0], (long)args[1], (long)args[2], (long)args[3])) + return sdl_error_tuple(env); + + return atom_ok; +} + +NIF_FUNCTION(set_texture_color_mod) +{ + void* texture_res; + int r, g, b; + + BADARG_IF(!enif_get_resource(env, argv[0], res_Texture, &texture_res)); + BADARG_IF(!enif_get_int(env, argv[1], &r)); + BADARG_IF(!enif_get_int(env, argv[2], &g)); + BADARG_IF(!enif_get_int(env, argv[3], &b)); + + return nif_thread_call(env, thread_set_texture_color_mod, 4, + NIF_RES_GET(Texture, texture_res), r, g, b); +} diff --git a/src/esdl2.erl b/src/esdl2.erl index 07f64de..ec07b2c 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -92,6 +92,7 @@ -export([get_texture_color_mod/1]). -export([set_texture_alpha_mod/2]). -export([set_texture_blend_mode/2]). +-export([set_texture_color_mod/4]). %% sdl_version -export([get_version/0]). @@ -340,6 +341,9 @@ set_texture_alpha_mod(_, _) -> set_texture_blend_mode(_, _) -> erlang:nif_error({not_loaded, ?MODULE}). +set_texture_color_mod(_, _, _, _) -> + erlang:nif_error({not_loaded, ?MODULE}). + %% sdl_version get_version() -> diff --git a/src/sdl_texture.erl b/src/sdl_texture.erl index f9a010c..16f199c 100644 --- a/src/sdl_texture.erl +++ b/src/sdl_texture.erl @@ -21,6 +21,7 @@ -export([get_color_mod/1]). -export([set_alpha_mod/2]). -export([set_blend_mode/2]). +-export([set_color_mod/4]). create_from_file(Renderer, Filename) -> {ok, Surface} = sdl_surface:load(Filename), @@ -58,3 +59,7 @@ set_alpha_mod(Texture, Alpha) -> set_blend_mode(Texture, BlendMode) -> esdl2:set_texture_blend_mode(Texture, BlendMode), receive {'_nif_thread_ret_', Ret} -> Ret end. + +set_color_mod(Texture, R, G, B) -> + esdl2:set_texture_color_mod(Texture, R, G, B), + receive {'_nif_thread_ret_', Ret} -> Ret end. |