From 13ed39d65ed2637973c64303e8b90c3eac1b550e Mon Sep 17 00:00:00 2001
From: Pierre-Antoine Rouby <contact@parouby.fr>
Date: Mon, 20 May 2019 18:03:18 +0200
Subject: render: Add SDL_RenderCopyEx binding.

* sdl2/bindings.scm (sdl-point): New variable.
  (sdl-render-copy-ex): New procedure.
* sdl2/render.scm (render-copy): Add optional arguments, angle and
  center.
* doc/api.texi (Rendering): Document it.
---
 sdl2/bindings.scm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'sdl2/bindings.scm')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index c314a23..854bdc9 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -53,6 +53,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-public sdl-rect
   (list int int int int))
 
+(define-public sdl-point
+  (list int int))
+
 (define sdl-bool int)
 
 (define-public (boolean->sdl-bool b)
@@ -233,6 +236,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-render-copy
   int "SDL_RenderCopy" '(* * * *))
 
+(define-foreign sdl-render-copy-ex
+  int "SDL_RenderCopyEx" (list '* '* '* '* double '* int))
+
 (define-foreign sdl-create-texture-from-surface
   '* "SDL_CreateTextureFromSurface" '(* *))
 
-- 
cgit v1.2.3