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 ++++++
 sdl2/render.scm   | 26 +++++++++++++++++---------
 2 files changed, 23 insertions(+), 9 deletions(-)

(limited to 'sdl2')

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" '(* *))
 
diff --git a/sdl2/render.scm b/sdl2/render.scm
index e2fb05c..c91699d 100644
--- a/sdl2/render.scm
+++ b/sdl2/render.scm
@@ -127,15 +127,23 @@ color."
         (sdl-error "surface->texture" "failed to convert surface to texture")
         (wrap-texture ptr))))
 
-(define* (render-copy renderer texture #:key srcrect dstrect)
+
+(define* (render-copy renderer texture
+                      #:key (angle 0) srcrect dstrect center)
   "Copy TEXTURE to the rendering target of RENDERER."
-  (let ((result (ffi:sdl-render-copy (unwrap-renderer renderer)
-                                     (unwrap-texture texture)
-                                     (if srcrect
-                                         (make-c-struct ffi:sdl-rect srcrect)
-                                         %null-pointer)
-                                     (if dstrect
-                                         (make-c-struct ffi:sdl-rect dstrect)
-                                         %null-pointer))))
+  (let ((result (ffi:sdl-render-copy-ex
+                 (unwrap-renderer renderer)
+                 (unwrap-texture texture)
+                 (if srcrect
+                     (make-c-struct ffi:sdl-rect srcrect)
+                     %null-pointer)
+                 (if dstrect
+                     (make-c-struct ffi:sdl-rect dstrect)
+                     %null-pointer)
+                 angle
+                 (if center
+                     (make-c-struct ffi:sdl-point center)
+                     %null-pointer)
+                 0)))
     (unless (zero? result)
       (sdl-error "render-copy" "failed to copy texture"))))
-- 
cgit v1.2.3