Add sdl_renderer:draw_point/{2,3}

4 files changed, 37 insertions, 0 deletions

diff --git a/c_src/esdl2.h b/c_src/esdl2.h
index 74e6115..f9c99f0 100644
--- a/c_src/esdl2.h
+++ b/c_src/esdl2.h
@@ -175,6 +175,7 @@
 	F(render_copy_ex, 7) \
 	F(render_draw_line, 5) \
 	F(render_draw_lines, 2) \
+	F(render_draw_point, 3) \
 	F(render_present, 1) \
 	F(render_set_logical_size, 3) \
 	F(set_render_draw_color, 5) \
diff --git a/c_src/sdl_renderer.c b/c_src/sdl_renderer.c
index 7229d21..f856e03 100644
--- a/c_src/sdl_renderer.c
+++ b/c_src/sdl_renderer.c
@@ -429,6 +429,29 @@ NIF_FUNCTION(render_draw_lines)
 		NIF_RES_GET(Renderer, renderer_res), points, len);
 }
 
+// render_draw_point
+
+NIF_CALL_HANDLER(thread_render_draw_point)
+{
+	if (SDL_RenderDrawPoint(args[0], (long)args[1], (long)args[2]))
+		return sdl_error_tuple(env);
+
+	return atom_ok;
+}
+
+NIF_FUNCTION(render_draw_point)
+{
+	void* renderer_res;
+	int x, y;
+
+	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));
+
+	return nif_thread_call(env, thread_render_draw_point, 3,
+		NIF_RES_GET(Renderer, renderer_res), x, y);
+}
+
 // render_present
 
 NIF_CAST_HANDLER(thread_render_present)
diff --git a/src/esdl2.erl b/src/esdl2.erl
index 0a1b421..ba9a1a1 100644
--- a/src/esdl2.erl
+++ b/src/esdl2.erl
@@ -63,6 +63,7 @@
 -export([render_copy_ex/7]).
 -export([render_draw_line/5]).
 -export([render_draw_lines/2]).
+-export([render_draw_point/3]).
 -export([render_present/1]).
 -export([render_set_logical_size/3]).
 -export([set_render_draw_color/5]).
@@ -241,6 +242,9 @@ render_draw_line(_, _, _, _, _) ->
 render_draw_lines(_, _) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
 
+render_draw_point(_, _, _) ->
+	erlang:nif_error({not_loaded, ?MODULE}).
+
 render_present(_) ->
 	erlang:nif_error({not_loaded, ?MODULE}).
 
diff --git a/src/sdl_renderer.erl b/src/sdl_renderer.erl
index 45aa159..b9f333e 100644
--- a/src/sdl_renderer.erl
+++ b/src/sdl_renderer.erl
@@ -26,6 +26,8 @@
 -export([draw_line/3]).
 -export([draw_line/5]).
 -export([draw_lines/2]).
+-export([draw_point/2]).
+-export([draw_point/3]).
 -export([present/1]).
 -export([set_draw_color/5]).
 -export([set_logical_size/3]).
@@ -86,6 +88,13 @@ draw_lines(Renderer, Points) ->
 	esdl2:render_draw_lines(Renderer, Points),
 	receive {'_nif_thread_ret_', Ret} -> Ret end.
 
+draw_point(Renderer, #{x:=X, y:=Y}) ->
+	draw_point(Renderer, X, Y).
+
+draw_point(Renderer, X, Y) ->
+	esdl2:render_draw_point(Renderer, X, Y),
+	receive {'_nif_thread_ret_', Ret} -> Ret end.
+
 present(Renderer) ->
 	esdl2:render_present(Renderer).