From f58c4f1c171a11e043483615badf8cba21fee527 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lo=C3=AFc=20Hoguin?= <essen@ninenines.eu>
Date: Mon, 7 Apr 2014 16:31:32 +0200
Subject: Add sdl_renderer:set_scale/3

---
 c_src/esdl2.h        |  1 +
 c_src/sdl_renderer.c | 41 +++++++++++++++++++++++++++++++++++++++++
 src/esdl2.erl        |  4 ++++
 src/sdl_renderer.erl |  5 +++++
 4 files changed, 51 insertions(+)

diff --git a/c_src/esdl2.h b/c_src/esdl2.h
index 9ddd2d5..021d5bb 100644
--- a/c_src/esdl2.h
+++ b/c_src/esdl2.h
@@ -188,6 +188,7 @@
 	F(render_present, 1) \
 	F(render_set_clip_rect, 5) \
 	F(render_set_logical_size, 3) \
+	F(render_set_scale, 3) \
 	F(set_render_draw_color, 5) \
 	/* sdl_surface */ \
 	F(img_load, 1) \
diff --git a/c_src/sdl_renderer.c b/c_src/sdl_renderer.c
index 9d873bb..85432c2 100644
--- a/c_src/sdl_renderer.c
+++ b/c_src/sdl_renderer.c
@@ -807,6 +807,47 @@ NIF_FUNCTION(render_set_logical_size)
 		NIF_RES_GET(Renderer, renderer_res), w, h);
 }
 
+// render_set_scale
+
+NIF_CALL_HANDLER(thread_render_set_scale)
+{
+	int ret;
+
+	ret = SDL_RenderSetScale(args[0], *((double*)args[1]), *((double*)args[2]));
+
+	enif_free(args[1]);
+	enif_free(args[2]);
+
+	if (ret)
+		return sdl_error_tuple(env);
+
+	return atom_ok;
+}
+
+NIF_FUNCTION(render_set_scale)
+{
+	void* renderer_res;
+	double *scaleXPtr, *scaleYPtr;
+
+	BADARG_IF(!enif_get_resource(env, argv[0], res_Renderer, &renderer_res));
+
+	scaleXPtr = (double*)enif_alloc(sizeof(double));
+	if (!enif_get_double(env, argv[1], scaleXPtr)) {
+		enif_free(scaleXPtr);
+		return enif_make_badarg(env);
+	}
+
+	scaleYPtr = (double*)enif_alloc(sizeof(double));
+	if (!enif_get_double(env, argv[2], scaleYPtr)) {
+		enif_free(scaleXPtr);
+		enif_free(scaleYPtr);
+		return enif_make_badarg(env);
+	}
+
+	return nif_thread_call(env, thread_render_set_scale, 3,
+		NIF_RES_GET(Renderer, renderer_res), scaleXPtr, scaleYPtr);
+}
+
 // set_render_draw_color
 
 NIF_CALL_HANDLER(thread_set_render_draw_color)
diff --git a/src/esdl2.erl b/src/esdl2.erl
index e63c3eb..e3815c6 100644
--- a/src/esdl2.erl
+++ b/src/esdl2.erl
@@ -76,6 +76,7 @@
 -export([render_present/1]).
 -export([render_set_clip_rect/5]).
 -export([render_set_logical_size/3]).
+-export([render_set_scale/3]).
 -export([set_render_draw_color/5]).
 
 %% sdl_surface
@@ -291,6 +292,9 @@ render_set_clip_rect(_, _, _, _, _) ->
 render_set_logical_size(_, _, _) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
 
+render_set_scale(_, _, _) ->
+	erlang:nif_error({not_loaded, ?MODULE}).
+
 set_render_draw_color(_, _, _, _, _) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
 
diff --git a/src/sdl_renderer.erl b/src/sdl_renderer.erl
index afbda19..fbe2518 100644
--- a/src/sdl_renderer.erl
+++ b/src/sdl_renderer.erl
@@ -44,6 +44,7 @@
 -export([set_clip_rect/5]).
 -export([set_draw_color/5]).
 -export([set_logical_size/3]).
+-export([set_scale/3]).
 
 clear(Renderer) ->
 	esdl2:render_clear(Renderer),
@@ -168,3 +169,7 @@ set_draw_color(Renderer, R, G, B, A) ->
 set_logical_size(Renderer, W, H) ->
 	esdl2:render_set_logical_size(Renderer, W, H),
 	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
+set_scale(Renderer, ScaleX, ScaleY) ->
+	esdl2:render_set_scale(Renderer, ScaleX, ScaleY),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
-- 
cgit v1.2.3