From bab7bbd62a903b53c4a92203b17a20a0373b667e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Mon, 7 Apr 2014 21:52:07 +0200
Subject: Add sdl_texture:set_blend_mode/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 6516bee..043789f 100644
--- a/c_src/esdl2.h
+++ b/c_src/esdl2.h
@@ -201,6 +201,7 @@
 	F(get_texture_blend_mode, 1) \
 	F(get_texture_color_mod, 1) \
 	F(set_texture_alpha_mod, 2) \
+	F(set_texture_blend_mode, 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 350491f..b9ec140 100644
--- a/c_src/sdl_texture.c
+++ b/c_src/sdl_texture.c
@@ -150,3 +150,25 @@ NIF_FUNCTION(set_texture_alpha_mod)
 	return nif_thread_call(env, thread_set_texture_alpha_mod, 2,
 		NIF_RES_GET(Texture, texture_res), alpha);
 }
+
+// set_texture_blend_mode
+
+NIF_CALL_HANDLER(thread_set_texture_blend_mode)
+{
+	if (SDL_SetTextureBlendMode(args[0], (long)args[1]))
+		return sdl_error_tuple(env);
+
+	return atom_ok;
+}
+
+NIF_FUNCTION(set_texture_blend_mode)
+{
+	void* texture_res;
+	SDL_BlendMode mode;
+
+	BADARG_IF(!enif_get_resource(env, argv[0], res_Texture, &texture_res));
+	BADARG_IF(!atom_to_blend_mode(env, argv[1], &mode));
+
+	return nif_thread_call(env, thread_set_texture_blend_mode, 2,
+		NIF_RES_GET(Texture, texture_res), mode);
+}
diff --git a/src/esdl2.erl b/src/esdl2.erl
index c0579fc..07f64de 100644
--- a/src/esdl2.erl
+++ b/src/esdl2.erl
@@ -91,6 +91,7 @@
 -export([get_texture_blend_mode/1]).
 -export([get_texture_color_mod/1]).
 -export([set_texture_alpha_mod/2]).
+-export([set_texture_blend_mode/2]).
 
 %% sdl_version
 -export([get_version/0]).
@@ -336,6 +337,9 @@ get_texture_color_mod(_) ->
 set_texture_alpha_mod(_, _) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
 
+set_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 c28c7a9..f9a010c 100644
--- a/src/sdl_texture.erl
+++ b/src/sdl_texture.erl
@@ -20,6 +20,7 @@
 -export([get_blend_mode/1]).
 -export([get_color_mod/1]).
 -export([set_alpha_mod/2]).
+-export([set_blend_mode/2]).
 
 create_from_file(Renderer, Filename) ->
 	{ok, Surface} = sdl_surface:load(Filename),
@@ -53,3 +54,7 @@ get_color_mod(Texture) ->
 set_alpha_mod(Texture, Alpha) ->
 	esdl2:set_texture_alpha_mod(Texture, Alpha),
 	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
+set_blend_mode(Texture, BlendMode) ->
+	esdl2:set_texture_blend_mode(Texture, BlendMode),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
-- 
cgit v1.2.3