From 58bc5f7437ed9ae39be24816c0f5276ee7694bb9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Mon, 7 Apr 2014 16:16:01 +0200
Subject: Add sdl_renderer:set_clip_rect/{2,5}

---
 c_src/esdl2.h        |  1 +
 c_src/sdl_renderer.c | 27 +++++++++++++++++++++++++++
 src/esdl2.erl        |  4 ++++
 src/sdl_renderer.erl | 10 ++++++++++
 4 files changed, 42 insertions(+)

diff --git a/c_src/esdl2.h b/c_src/esdl2.h
index 6648e7e..9ddd2d5 100644
--- a/c_src/esdl2.h
+++ b/c_src/esdl2.h
@@ -186,6 +186,7 @@
 	F(render_get_scale, 1) \
 	F(render_get_viewport, 1) \
 	F(render_present, 1) \
+	F(render_set_clip_rect, 5) \
 	F(render_set_logical_size, 3) \
 	F(set_render_draw_color, 5) \
 	/* sdl_surface */ \
diff --git a/c_src/sdl_renderer.c b/c_src/sdl_renderer.c
index 483b60b..9d873bb 100644
--- a/c_src/sdl_renderer.c
+++ b/c_src/sdl_renderer.c
@@ -757,6 +757,33 @@ NIF_FUNCTION(render_present)
 		NIF_RES_GET(Renderer, renderer_res));
 }
 
+// render_set_clip_rect
+
+NIF_CALL_HANDLER(thread_render_set_clip_rect)
+{
+	SDL_Rect rect = {(long)args[1], (long)args[2], (long)args[3], (long)args[4]};
+
+	if (SDL_RenderSetClipRect(args[0], &rect))
+		return sdl_error_tuple(env);
+
+	return atom_ok;
+}
+
+NIF_FUNCTION(render_set_clip_rect)
+{
+	void* renderer_res;
+	int x, y, w, h;
+
+	BADARG_IF(!enif_get_resource(env, argv[0], res_Renderer, &renderer_res));
+	BADARG_IF(!enif_get_int(env, argv[1], &x));
+	BADARG_IF(!enif_get_int(env, argv[2], &y));
+	BADARG_IF(!enif_get_int(env, argv[3], &w));
+	BADARG_IF(!enif_get_int(env, argv[4], &h));
+
+	return nif_thread_call(env, thread_render_set_clip_rect, 5,
+		NIF_RES_GET(Renderer, renderer_res), x, y, w, h);
+}
+
 // render_set_logical_size
 
 NIF_CALL_HANDLER(thread_render_set_logical_size)
diff --git a/src/esdl2.erl b/src/esdl2.erl
index 2fe78f2..e63c3eb 100644
--- a/src/esdl2.erl
+++ b/src/esdl2.erl
@@ -74,6 +74,7 @@
 -export([render_get_scale/1]).
 -export([render_get_viewport/1]).
 -export([render_present/1]).
+-export([render_set_clip_rect/5]).
 -export([render_set_logical_size/3]).
 -export([set_render_draw_color/5]).
 
@@ -284,6 +285,9 @@ render_get_viewport(_) ->
 render_present(_) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
 
+render_set_clip_rect(_, _, _, _, _) ->
+	erlang:nif_error({not_loaded, ?MODULE}).
+
 render_set_logical_size(_, _, _) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
 
diff --git a/src/sdl_renderer.erl b/src/sdl_renderer.erl
index 7de570f..c70ba7c 100644
--- a/src/sdl_renderer.erl
+++ b/src/sdl_renderer.erl
@@ -41,6 +41,8 @@
 -export([get_viewport/1]).
 -export([present/1]).
 -export([set_draw_color/5]).
+-export([set_clip_rect/2]).
+-export([set_clip_rect/5]).
 -export([set_logical_size/3]).
 
 create(Window, Index, Flags) ->
@@ -155,6 +157,14 @@ set_draw_color(Renderer, R, G, B, A) ->
 	esdl2:set_render_draw_color(Renderer, R, G, B, A),
 	receive {'_nif_thread_ret_', Ret} -> Ret end.
 
+set_clip_rect(Renderer, #{x:=X, y:=Y, w:=W, h:=H}) ->
+	esdl2:render_set_clip_rect(Renderer, X, Y, W, H),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
+set_clip_rect(Renderer, X, Y, W, H) ->
+	esdl2:render_set_clip_rect(Renderer, X, Y, W, H),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
 set_logical_size(Renderer, W, H) ->
 	esdl2:render_set_logical_size(Renderer, W, H),
 	receive {'_nif_thread_ret_', Ret} -> Ret end.
-- 
cgit v1.2.3