From ecdb209d374e62144defa4b80d6a1c9f46a727d1 Mon Sep 17 00:00:00 2001 From: Jona Date: Fri, 5 May 2017 10:36:07 +0200 Subject: render: Add srcrect and dstrect arguments to render-copy. * sdl2/bindings.scm (sdl-rect): New variable. * sdl2/render.scm (render-copy): Add srcrect and dstrect arguments. --- 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 d69e737..dd0a619 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -49,6 +49,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-public sdl-color (list uint8 uint8 uint8 uint8)) +(define-public sdl-rect + (list int int int int)) + (define sdl-bool int) (define-public (boolean->sdl-bool b) -- cgit v1.2.3