diff options
| author | Pierre-Antoine Rouby <contact@parouby.fr> | 2019-05-20 18:03:18 +0200 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2019-05-21 08:05:35 -0400 |
| commit | 13ed39d65ed2637973c64303e8b90c3eac1b550e (patch) | |
| tree | 8016c92c9d95402358a5bdd4558b3e432ca76257 /sdl2/bindings.scm | |
| parent | 4b2c190732b9022e7546c5d2724a82905b6555ee (diff) | |
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.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 6 |
1 files changed, 6 insertions, 0 deletions
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" '(* *)) |