summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/api.texi6
-rw-r--r--sdl2/bindings.scm6
-rw-r--r--sdl2/render.scm26
3 files changed, 27 insertions, 11 deletions
diff --git a/doc/api.texi b/doc/api.texi
index 57e92d3..5be763c 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -1049,8 +1049,10 @@ Display @var{renderer}.
@deffn {Procedure} render-copy renderer @
texture @
- [#:srcrect]
- [#:dstrect]
+ [#:angle 0] @
+ [#:srcrect] @
+ [#:dstrect] @
+ [#:center]
Copy @var{texture} to the rendering target of @var{renderer}.
@end deffn
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"))))