From 6b8bef2445f71bd777b41a94cb33558cbc5cd2fb Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 7 Jan 2019 22:53:13 -0500
Subject: surface: Add SDL_BlitSurface binding.

* sdl2/bindings.scm (sdl-blit-surface): New procedure.
* sdl2/surface.scm (blit-surface): New procedure.
---
 sdl2/bindings.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'sdl2/bindings.scm')

diff --git a/sdl2/bindings.scm b/sdl2/bindings.scm
index 84e49b8..7c16abb 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -943,6 +943,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-convert-surface-format
   '* "SDL_ConvertSurfaceFormat" (list '* uint32 uint32))
 
+(define-foreign sdl-blit-surface
+  int "SDL_UpperBlit" '(* * * *))
+
 
 ;;;
 ;;; Audio
-- 
cgit v1.2.3