From 9ffb8b1f126dfbf3a7e4a2d68d2e77afeca26a83 Mon Sep 17 00:00:00 2001
From: Pierre-Antoine Rouby <contact@parouby.fr>
Date: Fri, 24 May 2019 22:22:45 +0200
Subject: render: Add SDL_RenderDrawPoint binding.

* sdl2/bindings.scm (sdl-render-draw-line): New procedure.
* sdl2/render.scm (render-draw-line): New procedure.
* doc/api.texi (Rendering): Document it.
---
 doc/api.texi      | 5 +++++
 sdl2/bindings.scm | 4 ++++
 sdl2/render.scm   | 6 ++++++
 3 files changed, 15 insertions(+)

diff --git a/doc/api.texi b/doc/api.texi
index 6e9e945..00fe3a8 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -1061,6 +1061,11 @@ Draw a line from (@var{x1}, @var{y1}) to (@var{x2}, @var{y2}) on the
 current rendering target of @var{renderer}.
 @end deffn
 
+@deffn {Procedure} render-draw-point renderer x y
+Draw a point at (@var{x}, @var{y}) on the current rendering target
+of @var{renderer}.
+@end deffn
+
 @deffn {Procedure} surface->texture renderer surface
 Convert @var{surface} to a texture suitable for @var{renderer}.
 @end deffn
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index c31bbd2..e81abf7 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -1,6 +1,7 @@
 ;;; guile-sdl2 --- FFI bindings for SDL2
 ;;; Copyright © 2015, 2016 David Thompson <davet@gnu.org>
 ;;; Copyright © 2018 Eero Leno <eero@leno.fi>
+;;; Copyright © 2019 Pierre-Antoine Rouby <contact@parouby.fr>
 ;;;
 ;;; This file is part of guile-sdl2.
 ;;;
@@ -248,6 +249,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-render-draw-line
   int "SDL_RenderDrawLine" (list '* int int int int))
 
+(define-foreign sdl-render-draw-point
+  int "SDL_RenderDrawPoint" (list '* int int))
+
 
 ;;;
 ;;; Events
diff --git a/sdl2/render.scm b/sdl2/render.scm
index 18b800d..9e4bf57 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -1,5 +1,6 @@
 ;;; guile-sdl2 --- FFI bindings for SDL2
 ;;; Copyright © 2015 David Thompson <davet@gnu.org>
+;;; Copyright © 2019 Pierre-Antoine Rouby <contact@parouby.fr>
 ;;;
 ;;; This file is part of guile-sdl2.
 ;;;
@@ -38,6 +39,7 @@
             render-copy
             set-render-draw-color
             render-draw-line
+            render-draw-point
 
             surface->texture))
 
@@ -111,6 +113,10 @@ color."
   "Draw line on RENDERER."
   (ffi:sdl-render-draw-line (unwrap-renderer renderer) x1 y1 x2 y2))
 
+(define (render-draw-point renderer x y)
+  "Draw point on RENDERER."
+  (ffi:sdl-render-draw-point (unwrap-renderer renderer) x y))
+
 
 ;;;
 ;;; Texture
-- 
cgit v1.2.3