summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--2d/texture.scm1
-rw-r--r--2d/window.scm2
2 files changed, 1 insertions, 2 deletions
diff --git a/2d/texture.scm b/2d/texture.scm
index 79c4b55..6d04770 100644
--- a/2d/texture.scm
+++ b/2d/texture.scm
@@ -133,7 +133,6 @@
(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)
diff --git a/2d/window.scm b/2d/window.scm
index 9c863f6..de824d8 100644
--- a/2d/window.scm
+++ b/2d/window.scm
@@ -45,7 +45,7 @@ initializes OpenGL state."
(gl-viewport 0 0 width height)
(set-gl-matrix-mode (matrix-mode projection))
(gl-load-identity)
- (gl-ortho 0 width height 0 -1 1)
+ (gl-ortho 0 width 0 height -1 1)
(set-gl-matrix-mode (matrix-mode modelview))
(gl-load-identity)
;; Enable texturing and alpha blending