X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_draw.lisp;h=521093b5e6c1d65ee83d5979f5eeedef5f9677c0;hb=27b9bb922e43e418305b28d8139408634d4be1a3;hp=553ec8570f06663dfa8257297b8ed260c95852ce;hpb=6b5631c92ca29a80af99d228b3fe346c5b5e8eee;p=gacela.git

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 553ec85..521093b 100644
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -74,9 +74,10 @@
    (image real-w real-h) (load-image-for-texture filename)
         (cond (image
 	       (let ((width (surface-w image)) (height (surface-h image))
+		     (byteorder (cond 
 		     (texture (car (glGenTextures 1))))
 		 (glBindTexture GL_TEXTURE_2D texture)
-		 (glTexImage2D GL_TEXTURE_2D 0 3 width height 0 GL_RGB GL_UNSIGNED_BYTE (surface-pixels image))
+		 (glTexImage2D GL_TEXTURE_2D 0 3 width height 0 GL_RGBA GL_UNSIGNED_BYTE (surface-pixels image))
 		 (glTexParameteri GL_TEXTURE_2D GL_TEXTURE_MIN_FILTER min-filter)
 		 (glTexParameteri GL_TEXTURE_2D GL_TEXTURE_MAG_FILTER mag-filter)
 		 (SDL_FreeSurface image)