From 5ef8b648869d109ea840d20d5d59df1455687d49 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Tue, 8 Jan 2019 21:19:52 -0500
Subject: surface: Add SDL_BlitScaled binding.

* sdl2/bindings.scm (sdl-blit-scaled): New procedure.
* sdl2/surface.scm (blit-scaled): New procedure.
* doc/api.texi (Surfaces): Document it.
---
 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 7c16abb..1f97186 100644
--- a/sdl2/bindings.scm
+++ b/sdl2/bindings.scm
@@ -946,6 +946,9 @@ RETURN-TYPE and accept arguments of ARG-TYPES."
 (define-foreign sdl-blit-surface
   int "SDL_UpperBlit" '(* * * *))
 
+(define-foreign sdl-blit-scaled
+  int "SDL_UpperBlitScaled" '(* * * *))
+
 
 ;;;
 ;;; Audio
-- 
cgit v1.2.3