diff options
| author | David Thompson <dthompson@member.fsf.org> | 2013-08-17 22:28:17 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@member.fsf.org> | 2013-08-17 22:28:17 -0400 |
| commit | 48d83a6b66a5e702ecdb5bd5d507d4916b306c15 (patch) | |
| tree | 93c6b8095fefa5560bb9010dab77ef3d565faf3d | |
| parent | f82ce14de5fe99d2571fdd66b291d36dc358527d (diff) | |
Change origin to bottom-left corner of window.
| -rw-r--r-- | 2d/texture.scm | 1 | ||||
| -rw-r--r-- | 2d/window.scm | 2 |
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 |