diff options
| author | Loïc Hoguin <[email protected]> | 2014-04-07 21:16:17 +0200 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2014-04-07 21:16:17 +0200 |
| commit | 333823ed12461420d48ea8c1e47743fe22eaf32f (patch) | |
| tree | ea6b7f6c2340954da146ca29200c26304db53958 | |
| parent | 872301b55c4df71d704e1b2e2e8947e040045b8e (diff) | |
| download | esdl2-333823ed12461420d48ea8c1e47743fe22eaf32f.tar.gz esdl2-333823ed12461420d48ea8c1e47743fe22eaf32f.tar.bz2 esdl2-333823ed12461420d48ea8c1e47743fe22eaf32f.zip | |
Add sdl_texture:get_blend_mode/1
| -rw-r--r-- | c_src/esdl2.h | 1 | ||||
| -rw-r--r-- | c_src/sdl_texture.c | 25 | ||||
| -rw-r--r-- | src/esdl2.erl | 4 | ||||
| -rw-r--r-- | src/sdl_texture.erl | 8 |
4 files changed, 38 insertions, 0 deletions
diff --git a/c_src/esdl2.h b/c_src/esdl2.h index 73f2ed2..ac5c45c 100644 --- a/c_src/esdl2.h +++ b/c_src/esdl2.h @@ -198,6 +198,7 @@ /* sdl_texture */ \ F(create_texture_from_surface, 2) \ F(get_texture_alpha_mod, 1) \ + F(get_texture_blend_mode, 1) \ /* 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 2b78cc9..04dc0f8 100644 --- a/c_src/sdl_texture.c +++ b/c_src/sdl_texture.c @@ -74,3 +74,28 @@ NIF_FUNCTION(get_texture_alpha_mod) return nif_thread_call(env, thread_get_texture_alpha_mod, 1, NIF_RES_GET(Texture, texture_res)); } + +// get_texture_blend_mode + +NIF_CALL_HANDLER(thread_get_texture_blend_mode) +{ + SDL_BlendMode mode; + + if (SDL_GetTextureBlendMode(args[0], &mode)) + return sdl_error_tuple(env); + + return enif_make_tuple2(env, + atom_ok, + blend_mode_to_atom(mode) + ); +} + +NIF_FUNCTION(get_texture_blend_mode) +{ + void* texture_res; + + BADARG_IF(!enif_get_resource(env, argv[0], res_Texture, &texture_res)); + + return nif_thread_call(env, thread_get_texture_blend_mode, 1, + NIF_RES_GET(Texture, texture_res)); +} diff --git a/src/esdl2.erl b/src/esdl2.erl index 44f7eb5..f4c9b28 100644 --- a/src/esdl2.erl +++ b/src/esdl2.erl @@ -88,6 +88,7 @@ %% sdl_texture -export([create_texture_from_surface/2]). -export([get_texture_alpha_mod/1]). +-export([get_texture_blend_mode/1]). %% sdl_version -export([get_version/0]). @@ -324,6 +325,9 @@ create_texture_from_surface(_, _) -> get_texture_alpha_mod(_) -> erlang:nif_error({not_loaded, ?MODULE}). +get_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 276dce1..fa29d96 100644 --- a/src/sdl_texture.erl +++ b/src/sdl_texture.erl @@ -17,6 +17,7 @@ -export([create_from_file/2]). -export([create_from_surface/2]). -export([get_alpha_mod/1]). +-export([get_blend_mode/1]). create_from_file(Renderer, Filename) -> {ok, Surface} = sdl_surface:load(Filename), @@ -32,3 +33,10 @@ get_alpha_mod(Texture) -> {ok, Alpha} = Ret, Alpha end. + +get_blend_mode(Texture) -> + esdl2:get_texture_blend_mode(Texture), + receive {'_nif_thread_ret_', Ret} -> + {ok, Alpha} = Ret, + Alpha + end. |