summaryrefslogtreecommitdiff
path: root/sdl2/bindings.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2019-01-08 21:29:58 -0500
committerDavid Thompson <dthompson2@worcester.edu>2019-01-08 21:29:58 -0500
commit4b2c190732b9022e7546c5d2724a82905b6555ee (patch)
tree822878ab93b2001dee580559003ca1766c250cc5 /sdl2/bindings.scm
parent5ef8b648869d109ea840d20d5d59df1455687d49 (diff)
surface: Add SDL_FillRect binding.
* sdl2/bindings.scm (sdl-fill-rect): New procedure. * sdl2/surface.scm (fill-rect): New procedure. * doc/api.texi (Surfaces): Document it.
Diffstat (limited to 'sdl2/bindings.scm')
-rw-r--r--sdl2/bindings.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index 1f97186..c314a23 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -949,6 +949,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
(define-foreign sdl-blit-scaled
int "SDL_UpperBlitScaled" '(* * * *))
+(define-foreign sdl-fill-rect
+ int "SDL_FillRect" (list '* '* uint32))
+
;;;
;;; Audio