From 48d83a6b66a5e702ecdb5bd5d507d4916b306c15 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@member.fsf.org>
Date: Sat, 17 Aug 2013 22:28:17 -0400
Subject: Change origin to bottom-left corner of window.

---
 2d/texture.scm | 1 -
 2d/window.scm  | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

(limited to '2d')

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
-- 
cgit v1.2.3