From 895180d78f951d92b7888f134da426ad606d043d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 4 Jun 2019 20:16:08 +0200 Subject: render: Add SDL_RenderDrawRect and SDL_RenderFillRect bindings. * sdl2/bindings.scm (sdl-render-draw-rect, sdl-render-draw-rects, sdl-render-fill-rect, sdl-render-fill-rects): New procedures. * sdl2/render.scm (render-draw-rect, render-draw-rects, render-fill-rect, render-fill-rects): New procedures. * doc/api.texi: Document new procedures. --- sdl2/bindings.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'sdl2/bindings.scm') diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm index 900b641..ae7f0d0 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -261,6 +261,18 @@ RETURN-TYPE and accept arguments of ARG-TYPES." (define-foreign sdl-render-draw-points int "SDL_RenderDrawPoints" (list '* '* int)) +(define-foreign sdl-render-draw-rect + int "SDL_RenderDrawRect" (list '* '*)) + +(define-foreign sdl-render-draw-rects + int "SDL_RenderDrawRects" (list '* '* int)) + +(define-foreign sdl-render-fill-rect + int "SDL_RenderFillRect" (list '* '*)) + +(define-foreign sdl-render-fill-rects + int "SDL_RenderFillRects" (list '* '* int)) + ;;; ;;; Events -- cgit v1.2.3