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

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 553ec85..6689e67 100644
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -76,7 +76,7 @@
 	       (let ((width (surface-w image)) (height (surface-h image))
 		     (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)