diff options
| author | Loïc Hoguin <[email protected]> | 2014-04-07 21:47:34 +0200 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2014-04-07 21:47:34 +0200 |
| commit | c6077e4325974ce3fcb700269e6873ac265b334e (patch) | |
| tree | 24488b385b7e12c5ab8dc4e2a5b703ea5f264f61 | |
| parent | 581fcdd640b918055c06bb9f96ae8a098cb340f7 (diff) | |
| download | esdl2-c6077e4325974ce3fcb700269e6873ac265b334e.tar.gz esdl2-c6077e4325974ce3fcb700269e6873ac265b334e.tar.bz2 esdl2-c6077e4325974ce3fcb700269e6873ac265b334e.zip | |
Add sdl_texture:set_alpha_mod/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 b9289e5..6516bee 100644 --- a/c_src/esdl2.h +++ b/c_src/esdl2.h @@ -200,6 +200,7 @@ F(get_texture_alpha_mod, 1) \ F(get_texture_blend_mode, 1) \ F(get_texture_color_mod, 1) \ + F(set_texture_alpha_mod, 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 e421676..350491f 100644 --- a/c_src/sdl_texture.c +++ b/c_src/sdl_texture.c @@ -128,3 +128,25 @@ NIF_FUNCTION(get_texture_color_mod) return nif_thread_call(env, thread_get_texture_color_mod, 1, NIF_RES_GET(Texture, texture_res)); } + +// set_texture_alpha_mod + +NIF_CALL_HANDLER(thread_set_texture_alpha_mod) +{ + if (SDL_SetTextureAlphaMod(args[0], (long)args[1])) + return sdl_error_tuple(env); + + return atom_ok; +} + +NIF_FUNCTION(set_texture_alpha_mod) +{ + void* texture_res; + int alpha; + + BADARG_IF(!enif_get_resource(env, argv[0], res_Texture, &texture_res)); + BADARG_IF(!enif_get_int(env, argv[1], &alpha)); + + return nif_thread_call(env, thread_set_texture_alpha_mod, 2, + NIF_RES_GET(Texture, texture_res), alpha); +} diff --git a/src/esdl2.erl b/src/esdl2.erl index 00f2273..c0579fc 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -90,6 +90,7 @@ -export([get_texture_alpha_mod/1]). -export([get_texture_blend_mode/1]). -export([get_texture_color_mod/1]). +-export([set_texture_alpha_mod/2]). %% sdl_version -export([get_version/0]). @@ -332,6 +333,9 @@ get_texture_blend_mode(_) -> get_texture_color_mod(_) -> erlang:nif_error({not_loaded, ?MODULE}). +set_texture_alpha_mod(_, _) -> + erlang:nif_error({not_loaded, ?MODULE}). + %% sdl_version get_version() -> diff --git a/src/sdl_texture.erl b/src/sdl_texture.erl index 4412884..c28c7a9 100644 --- a/src/sdl_texture.erl +++ b/src/sdl_texture.erl @@ -19,6 +19,7 @@ -export([get_alpha_mod/1]). -export([get_blend_mode/1]). -export([get_color_mod/1]). +-export([set_alpha_mod/2]). create_from_file(Renderer, Filename) -> {ok, Surface} = sdl_surface:load(Filename), @@ -48,3 +49,7 @@ get_color_mod(Texture) -> {ok, Alpha} = Ret, Alpha end. + +set_alpha_mod(Texture, Alpha) -> + esdl2:set_texture_alpha_mod(Texture, Alpha), + receive {'_nif_thread_ret_', Ret} -> Ret end. |