From 2fb7f399f322122f2d5e5f436673fe386242505e Mon Sep 17 00:00:00 2001 From: David Thompson Date: Fri, 16 Dec 2016 21:49:11 -0500 Subject: surface: Add SDL_CreateRGBSurfaceFrom 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 ceabf06..e3167a0 100644 --- a/sdl2/bindings.scm +++ b/sdl2/bindings.scm @@ -903,6 +903,10 @@ RETURN-TYPE and accept arguments of ARG-TYPES." '* "SDL_CreateRGBSurface" (list uint32 int int int uint32 uint32 uint32 uint32)) +(define-foreign sdl-create-rgb-surface-from + '* "SDL_CreateRGBSurfaceFrom" + (list '* int int int int uint32 uint32 uint32 uint32)) + (define-foreign sdl-free-surface void "SDL_FreeSurface" '(*)) -- cgit v1.2.3