1 files changed, 6 insertions, 0 deletions
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