diff options
-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 |