From 0e627ad72df828882664b87293f9fec3602c5ceb Mon Sep 17 00:00:00 2001 From: Leo Prikler Date: Tue, 1 Dec 2020 15:16:50 +0100 Subject: 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. --- sdl2/bindings.scm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) (limited to 'sdl2/bindings.scm') 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 -- cgit v1.2.3