From a1fe5d2aa86f3c25fb88313fe4ebd4f53d3f8ed3 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Fri, 16 Dec 2016 15:52:39 -0500
Subject: surface: Add SDL_CreateRGBSurface binding.

---
 sdl2/bindings.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'sdl2/bindings.scm')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index e394586..ceabf06 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -899,6 +899,10 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 ;;; Surface
 ;;;
 
+(define-foreign sdl-create-rgb-surface
+  '* "SDL_CreateRGBSurface"
+  (list uint32 int int int uint32 uint32 uint32 uint32))
+
 (define-foreign sdl-free-surface
   void "SDL_FreeSurface" '(*))
 
-- 
cgit v1.2.3