render: Add more bindings.

* sdl2/bindings.scm (sdl-render-get-integer-scale, sdl-render-get-scale)
(sdl-render-get-logical-size, sdl-render-get-viewport)
(sdl-render-set-integer-scale, sdl-render-set-scale)
(sdl-render-set-logical-size, sdl-render-set-viewport): New procedures.
* sdl2/render.scm (render-get-integer-scale, render-get-logical-size)
(render-get-scale, render-get-viewport, render-set-integer-scale)
(render-set-logical-size, render-set-scale, render-set-viewport):
New procedures.
* doc/api.texi: Document new (sdl2 render) bindings.

1 files changed, 24 insertions, 0 deletions

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index d2f3bbe..586011e 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -333,6 +333,30 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-render-fill-rects
   int "SDL_RenderFillRects" (list '* '* int))
 
+(define-foreign sdl-render-get-integer-scale
+  sdl-bool "SDL_RenderGetIntegerScale" (list '*))
+
+(define-foreign sdl-render-get-logical-size
+  void "SDL_RenderGetLogicalSize" (list '* '* '*))
+
+(define-foreign sdl-render-get-scale
+  void "SDL_RenderGetScale" (list '* '* '*))
+
+(define-foreign sdl-render-get-viewport
+  void "SDL_RenderGetViewport" (list '* '*))
+
+(define-foreign sdl-render-set-integer-scale
+  int "SDL_RenderSetIntegerScale" (list '* sdl-bool))
+
+(define-foreign sdl-render-set-logical-size
+  int "SDL_RenderSetLogicalSize" (list '* int int))
+
+(define-foreign sdl-render-set-scale
+  int "SDL_RenderSetScale" (list '* float float))
+
+(define-foreign sdl-render-set-viewport
+  int "SDL_RenderSetViewport" (list '* '*))
+
 
 ;;;
 ;;; Events