From af6de2c8121f00c3f96d9ba7443a217125a03dc6 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Thu, 15 Aug 2013 07:24:24 -0400
Subject: Add wrapper for FreeImage_FlipVertical.

---
 2d/wrappers/freeimage.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to '2d/wrappers')

diff --git a/2d/wrappers/freeimage.scm b/2d/wrappers/freeimage.scm
index 17334f4..e7b1605 100644
--- a/2d/wrappers/freeimage.scm
+++ b/2d/wrappers/freeimage.scm
@@ -248,3 +248,15 @@
 
 (export freeimage-convert-to-24-bits
         freeimage-convert-to-32-bits)
+
+;;;
+;;; Rotation and flipping
+;;;
+
+(define-foreign %freeimage-flip-vertical uint8 "FreeImage_FlipVertical" '(*))
+
+(define (freeimage-flip-vertical bitmap)
+  (number->boolean
+   (%freeimage-flip-vertical (unwrap-freeimage-bitmap bitmap))))
+
+(export freeimage-flip-vertical)
-- 
cgit v1.2.3