1 files changed, 101 insertions, 0 deletions
diff --git a/c_src/sdl_rect.c b/c_src/sdl_rect.c
index 472cf01..ed42fdd 100644
--- a/c_src/sdl_rect.c
+++ b/c_src/sdl_rect.c
@@ -87,3 +87,104 @@ ERL_NIF_TERM rect_to_map(ErlNifEnv* env, const SDL_Rect* rect)
 
 	return map;
 }
+
+// enclose_points
+
+NIF_FUNCTION(enclose_points)
+{
+	SDL_Point* points = NULL;
+	SDL_Rect clip, result;
+	SDL_bool b;
+	ERL_NIF_TERM list, head;
+	unsigned int count;
+	int i = 0;
+
+	BADARG_IF(!enif_get_list_length(env, argv[0], &count));
+	BADARG_IF(!map_to_rect(env, argv[1], &clip));
+
+	points = (SDL_Point*)enif_alloc(count * sizeof(SDL_Point));
+
+	list = argv[0];
+	while (enif_get_list_cell(env, list, &head, &list)) {
+		if (!map_to_point(env, head, &(points[i++]))) {
+			enif_free(points);
+			return enif_make_badarg(env);
+		}
+	}
+
+	b = SDL_EnclosePoints(points, count, &clip, &result);
+
+	enif_free(points);
+
+	if (!b)
+		return atom_false;
+
+	return rect_to_map(env, &result);
+}
+
+// has_intersection
+
+NIF_FUNCTION(has_intersection)
+{
+	SDL_Rect a, b;
+
+	BADARG_IF(!map_to_rect(env, argv[0], &a));
+	BADARG_IF(!map_to_rect(env, argv[1], &b));
+
+	if (SDL_HasIntersection(&a, &b))
+		return atom_true;
+
+	return atom_false;
+}
+
+// intersect_rect
+
+NIF_FUNCTION(intersect_rect)
+{
+	SDL_Rect a, b, result;
+
+	BADARG_IF(!map_to_rect(env, argv[0], &a));
+	BADARG_IF(!map_to_rect(env, argv[1], &b));
+
+	if (!SDL_IntersectRect(&a, &b, &result))
+		return atom_false;
+
+	return rect_to_map(env, &result);
+}
+
+// intersect_rect_and_line
+
+NIF_FUNCTION(intersect_rect_and_line)
+{
+	SDL_Rect rect;
+	int x1, y1, x2, y2;
+
+	BADARG_IF(!map_to_rect(env, argv[0], &rect));
+	BADARG_IF(!enif_get_int(env, argv[1], &x1));
+	BADARG_IF(!enif_get_int(env, argv[2], &y1));
+	BADARG_IF(!enif_get_int(env, argv[3], &x2));
+	BADARG_IF(!enif_get_int(env, argv[4], &y2));
+
+	if (!SDL_IntersectRectAndLine(&rect, &x1, &y1, &x2, &y2))
+		return atom_false;
+
+	return enif_make_tuple4(env,
+		enif_make_int(env, x1),
+		enif_make_int(env, y1),
+		enif_make_int(env, x2),
+		enif_make_int(env, y2));
+}
+
+// union_rect
+
+NIF_FUNCTION(union_rect)
+{
+	SDL_Rect a, b, result;
+
+	BADARG_IF(!map_to_rect(env, argv[0], &a));
+	BADARG_IF(!map_to_rect(env, argv[1], &b));
+
+	SDL_UnionRect(&a, &b, &result);
+
+	return rect_to_map(env, &result);
+}