summaryrefslogtreecommitdiff
path: root/2d/wrappers
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-08-15 07:24:24 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-08-15 07:24:24 -0400
commitaf6de2c8121f00c3f96d9ba7443a217125a03dc6 (patch)
tree19017fd8e31722756c339fe91a2e33fcd2a16ec3 /2d/wrappers
parent7952dee4951bdf1e56eedd664a55b4c4dc218fb9 (diff)
Add wrapper for FreeImage_FlipVertical.
Diffstat (limited to '2d/wrappers')
-rw-r--r--2d/wrappers/freeimage.scm12
1 files changed, 12 insertions, 0 deletions
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)