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 /src | |
| parent | 581fcdd640b918055c06bb9f96ae8a098cb340f7 (diff) | |
| download | esdl2-c6077e4325974ce3fcb700269e6873ac265b334e.tar.gz esdl2-c6077e4325974ce3fcb700269e6873ac265b334e.tar.bz2 esdl2-c6077e4325974ce3fcb700269e6873ac265b334e.zip | |
Add sdl_texture:set_alpha_mod/2
Diffstat (limited to 'src')
| -rw-r--r-- | src/esdl2.erl | 4 | ||||
| -rw-r--r-- | src/sdl_texture.erl | 5 |
2 files changed, 9 insertions, 0 deletions
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. |