diff options
| author | Loïc Hoguin <[email protected]> | 2014-04-07 21:52:07 +0200 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2014-04-07 21:52:07 +0200 |
| commit | bab7bbd62a903b53c4a92203b17a20a0373b667e (patch) | |
| tree | a7700cfe7ec9494a6ceba79f2ae7c7916153f333 | |
| parent | 280b58e6aa3876e42ca0c7215b9d65f44e618520 (diff) | |
| download | esdl2-bab7bbd62a903b53c4a92203b17a20a0373b667e.tar.gz esdl2-bab7bbd62a903b53c4a92203b17a20a0373b667e.tar.bz2 esdl2-bab7bbd62a903b53c4a92203b17a20a0373b667e.zip | |
Add sdl_texture:set_blend_mode/2
| -rw-r--r-- | c_src/esdl2.h | 1 | ||||
| -rw-r--r-- | c_src/sdl_texture.c | 22 | ||||
| -rw-r--r-- | src/esdl2.erl | 4 | ||||
| -rw-r--r-- | src/sdl_texture.erl | 5 |
4 files changed, 32 insertions, 0 deletions
diff --git a/c_src/esdl2.h b/c_src/esdl2.h index 6516bee..043789f 100644 --- a/c_src/esdl2.h +++ b/c_src/esdl2.h @@ -201,6 +201,7 @@ F(get_texture_blend_mode, 1) \ F(get_texture_color_mod, 1) \ F(set_texture_alpha_mod, 2) \ + F(set_texture_blend_mode, 2) \ /* 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 350491f..b9ec140 100644 --- a/c_src/sdl_texture.c +++ b/c_src/sdl_texture.c @@ -150,3 +150,25 @@ NIF_FUNCTION(set_texture_alpha_mod) return nif_thread_call(env, thread_set_texture_alpha_mod, 2, NIF_RES_GET(Texture, texture_res), alpha); } + +// set_texture_blend_mode + +NIF_CALL_HANDLER(thread_set_texture_blend_mode) +{ + if (SDL_SetTextureBlendMode(args[0], (long)args[1])) + return sdl_error_tuple(env); + + return atom_ok; +} + +NIF_FUNCTION(set_texture_blend_mode) +{ + void* texture_res; + SDL_BlendMode mode; + + BADARG_IF(!enif_get_resource(env, argv[0], res_Texture, &texture_res)); + BADARG_IF(!atom_to_blend_mode(env, argv[1], &mode)); + + return nif_thread_call(env, thread_set_texture_blend_mode, 2, + NIF_RES_GET(Texture, texture_res), mode); +} diff --git a/src/esdl2.erl b/src/esdl2.erl index c0579fc..07f64de 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -91,6 +91,7 @@ -export([get_texture_blend_mode/1]). -export([get_texture_color_mod/1]). -export([set_texture_alpha_mod/2]). +-export([set_texture_blend_mode/2]). %% sdl_version -export([get_version/0]). @@ -336,6 +337,9 @@ get_texture_color_mod(_) -> set_texture_alpha_mod(_, _) -> erlang:nif_error({not_loaded, ?MODULE}). +set_texture_blend_mode(_, _) -> + erlang:nif_error({not_loaded, ?MODULE}). + %% sdl_version get_version() -> diff --git a/src/sdl_texture.erl b/src/sdl_texture.erl index c28c7a9..f9a010c 100644 --- a/src/sdl_texture.erl +++ b/src/sdl_texture.erl @@ -20,6 +20,7 @@ -export([get_blend_mode/1]). -export([get_color_mod/1]). -export([set_alpha_mod/2]). +-export([set_blend_mode/2]). create_from_file(Renderer, Filename) -> {ok, Surface} = sdl_surface:load(Filename), @@ -53,3 +54,7 @@ get_color_mod(Texture) -> set_alpha_mod(Texture, Alpha) -> esdl2:set_texture_alpha_mod(Texture, Alpha), receive {'_nif_thread_ret_', Ret} -> Ret end. + +set_blend_mode(Texture, BlendMode) -> + esdl2:set_texture_blend_mode(Texture, BlendMode), + receive {'_nif_thread_ret_', Ret} -> Ret end. |