From c6077e4325974ce3fcb700269e6873ac265b334e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= Date: Mon, 7 Apr 2014 21:47:34 +0200 Subject: Add sdl_texture:set_alpha_mod/2 --- c_src/esdl2.h | 1 + c_src/sdl_texture.c | 22 ++++++++++++++++++++++ src/esdl2.erl | 4 ++++ src/sdl_texture.erl | 5 +++++ 4 files changed, 32 insertions(+) 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. -- cgit v1.2.3