diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-06-04 20:16:08 +0200 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2019-06-04 15:45:46 -0400 |
| commit | 895180d78f951d92b7888f134da426ad606d043d (patch) | |
| tree | de29912b7dd0e97ea2ec5af3c46c7577675176b5 /sdl2/bindings.scm | |
| parent | 84e59980a606f54ea96bb1932ff9a6474a5aaf45 (diff) | |
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.
Diffstat (limited to 'sdl2/bindings.scm')
| -rw-r--r-- | sdl2/bindings.scm | 12 |
1 files changed, 12 insertions, 0 deletions
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 |