diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-08-15 07:24:24 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-08-15 07:24:24 -0400 |
| commit | af6de2c8121f00c3f96d9ba7443a217125a03dc6 (patch) | |
| tree | 19017fd8e31722756c339fe91a2e33fcd2a16ec3 | |
| parent | 7952dee4951bdf1e56eedd664a55b4c4dc218fb9 (diff) | |
Add wrapper for FreeImage_FlipVertical.
| -rw-r--r-- | 2d/wrappers/freeimage.scm | 12 |
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) |