From 5a6ea82c9ad859972c01d2908b2f66fb3addcfbb Mon Sep 17 00:00:00 2001
From: Eero Leno <eero@leno.fi>
Date: Tue, 21 Aug 2018 15:20:08 +0300
Subject: Add binding for SDL_SetRenderDrawColor.

* sdl2/bindings.scm (sdl-set-render-draw-color): New procedure.
* sdl2/render.scm (set-render-draw-color): New procedure.
---
 sdl2/bindings.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'sdl2/bindings.scm')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index d333c59..84e49b8 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -1,5 +1,6 @@
 ;;; guile-sdl2 --- FFI bindings for SDL2
 ;;; Copyright © 2015, 2016 David Thompson <davet@gnu.org>
+;;; Copyright © 2018 Eero Leno <eero@leno.fi>
 ;;;
 ;;; This file is part of guile-sdl2.
 ;;;
@@ -235,6 +236,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-create-texture-from-surface
   '* "SDL_CreateTextureFromSurface" '(* *))
 
+(define-foreign sdl-set-render-draw-color
+  int "SDL_SetRenderDrawColor" (list '* uint8 uint8 uint8 uint8))
+
 
 ;;;
 ;;; Events
-- 
cgit v1.2.3