From 3d91eb43ace55bbcce85b5fcfd9dc04ba3dfe236 Mon Sep 17 00:00:00 2001
From: Pierre-Antoine Rouby <contact@parouby.fr>
Date: Wed, 22 May 2019 08:27:55 +0200
Subject: render: Add SDL_RenderDrawLine binding.

* sdl2/bindings.scm (sdl-render-draw-line): New procedure.
* sdl2/render.scm (render-draw-line): New procedure.
* doc/api.texi: Document it.
---
 sdl2/bindings.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'sdl2/bindings.scm')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index 854bdc9..c31bbd2 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -245,6 +245,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-set-render-draw-color
   int "SDL_SetRenderDrawColor" (list '* uint8 uint8 uint8 uint8))
 
+(define-foreign sdl-render-draw-line
+  int "SDL_RenderDrawLine" (list '* int int int int))
+
 
 ;;;
 ;;; Events
-- 
cgit v1.2.3