diff options
| -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) |