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, 39 insertions, 0 deletions

diff --git a/doc/api.texi b/doc/api.texi
index 9620f87..a158795 100644
--- a/doc/api.texi
+++ b/doc/api.texi
@@ -1048,6 +1048,45 @@ Clear the rendering target @var{renderer} with the current drawing color.
 Display @var{renderer}.
 @end deffn
 
+@deffn {Procedure} renderer-integer-scale renderer
+Returns @code{#t} if @var{renderer} currently uses integer scaling and
+@code{#f} otherwise.  Integer scaling can be used together with
+logical size to effectively restrict the drawing region to an area
+even if the window is larger than that.
+@end deffn
+
+@deffn {Procedure} set-renderer-integer-scale! renderer enable?
+If @var{enable?} is @code{#t}, enable integer scaling, otherwise
+disable it.
+@end deffn
+
+@deffn {Procedure} renderer-logical-size renderer
+Return the current logical size used by @var{renderer}.
+@end deffn
+
+@deffn {Procedure} set-renderer-logical-size! renderer width height
+Set the logical size of @var{renderer} to @var{width} x @var{height}.
+@end deffn
+
+@deffn {Procedure} renderer-scale renderer
+Return the scaling factors @code{(X Y)} used by @var{renderer} to
+scale coordinates.
+@end deffn
+
+@deffn {Procedure} set-renderer-scale! renderer scale-x scale-y
+Set the factors by which @var{renderer} scales coordinates according
+to the scaling factors @var{scale-x} and @var{scale-y}.
+@end deffn
+
+@deffn {Procedure} renderer-viewport renderer
+Return the rectangle that @var{renderer} currently draws on.  If the
+entire region is used, all values of that rectangle will be 0.
+@end deffn
+
+@deffn {Procedure} set-renderer-viewport! renderer rect
+Set the drawing area for @var{renderer} to @var{rect}.
+@end deffn
+
 @deffn {Procedure} render-copy renderer @
                                       texture @
                                       [#:angle 0] @