summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@member.fsf.org>2013-08-17 22:28:17 -0400
committerDavid Thompson <dthompson@member.fsf.org>2013-08-17 22:28:17 -0400
commit48d83a6b66a5e702ecdb5bd5d507d4916b306c15 (patch)
tree93c6b8095fefa5560bb9010dab77ef3d565faf3d
parentf82ce14de5fe99d2571fdd66b291d36dc358527d (diff)
Change origin to bottom-left corner of window.
-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