Flip freeimage bitmaps vertically because the y-axis is the reverse of what we want.

1 files changed, 9 insertions, 4 deletions

diff --git a/2d/texture.scm b/2d/texture.scm
index 76c5b92..79c4b55 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -129,13 +129,18 @@
                   (freeimage-get-height bitmap)
                   0 0 1 1)))
 
+(define (load-bitmap filename)
+  (let* ((bitmap (freeimage-load (freeimage-get-file-type filename) filename))
+         (32bit-bitmap (freeimage-convert-to-32-bits bitmap)))
+    (freeimage-unload bitmap)
+    (freeimage-flip-vertical 32bit-bitmap)
+    32bit-bitmap))
+
 (define (load-texture filename)
   "Loads a texture from a file."
-  (let* ((bitmap (freeimage-load (freeimage-get-file-type filename) filename))
-         (32bit-bitmap (freeimage-convert-to-32-bits bitmap))
-         (texture (bitmap->texture 32bit-bitmap)))
+  (let* ((bitmap (load-bitmap filename))
+         (texture (bitmap->texture bitmap)))
     (freeimage-unload bitmap)
-    (freeimage-unload 32bit-bitmap)
     texture))
 
 (define* (draw-texture texture x y #:optional (color #xffffffff))