From 872301b55c4df71d704e1b2e2e8947e040045b8e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Mon, 7 Apr 2014 21:13:08 +0200
Subject: Add sdl_texture:get_alpha_mod/1

---
 c_src/esdl2.h       |  1 +
 c_src/sdl_texture.c | 25 +++++++++++++++++++++++++
 src/esdl2.erl       |  4 ++++
 src/sdl_texture.erl |  8 ++++++++
 4 files changed, 38 insertions(+)

diff --git a/c_src/esdl2.h b/c_src/esdl2.h
index 3afef48..73f2ed2 100644
--- a/c_src/esdl2.h
+++ b/c_src/esdl2.h
@@ -197,6 +197,7 @@
 	F(img_load, 1) \
 	/* sdl_texture */ \
 	F(create_texture_from_surface, 2) \
+	F(get_texture_alpha_mod, 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 4741bb6..2b78cc9 100644
--- a/c_src/sdl_texture.c
+++ b/c_src/sdl_texture.c
@@ -49,3 +49,28 @@ NIF_FUNCTION(create_texture_from_surface)
 	return nif_thread_call(env, thread_create_texture_from_surface, 2,
 		NIF_RES_GET(Renderer, renderer_res), NIF_RES_GET(Surface, surface_res));
 }
+
+// get_texture_alpha_mod
+
+NIF_CALL_HANDLER(thread_get_texture_alpha_mod)
+{
+	Uint8 alpha;
+
+	if (SDL_GetTextureAlphaMod(args[0], &alpha))
+		return sdl_error_tuple(env);
+
+	return enif_make_tuple2(env,
+		atom_ok,
+		enif_make_uint(env, alpha)
+	);
+}
+
+NIF_FUNCTION(get_texture_alpha_mod)
+{
+	void* texture_res;
+
+	BADARG_IF(!enif_get_resource(env, argv[0], res_Texture, &texture_res));
+
+	return nif_thread_call(env, thread_get_texture_alpha_mod, 1,
+		NIF_RES_GET(Texture, texture_res));
+}
diff --git a/src/esdl2.erl b/src/esdl2.erl
index 5631512..44f7eb5 100644
--- a/src/esdl2.erl
+++ b/src/esdl2.erl
@@ -87,6 +87,7 @@
 
 %% sdl_texture
 -export([create_texture_from_surface/2]).
+-export([get_texture_alpha_mod/1]).
 
 %% sdl_version
 -export([get_version/0]).
@@ -320,6 +321,9 @@ img_load(_) ->
 create_texture_from_surface(_, _) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
 
+get_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 29c3018..276dce1 100644
--- a/src/sdl_texture.erl
+++ b/src/sdl_texture.erl
@@ -16,6 +16,7 @@
 
 -export([create_from_file/2]).
 -export([create_from_surface/2]).
+-export([get_alpha_mod/1]).
 
 create_from_file(Renderer, Filename) ->
 	{ok, Surface} = sdl_surface:load(Filename),
@@ -24,3 +25,10 @@ create_from_file(Renderer, Filename) ->
 create_from_surface(Renderer, Surface) ->
 	esdl2:create_texture_from_surface(Renderer, Surface),
 	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
+get_alpha_mod(Texture) ->
+	esdl2:get_texture_alpha_mod(Texture),
+	receive {'_nif_thread_ret_', Ret} ->
+		{ok, Alpha} = Ret,
+		Alpha
+	end.
-- 
cgit v1.2.3