X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=src%2Fgacela_draw.scm;h=b9a2c5a06967fb679132b5db4ee362be1a7d5f82;hb=5529af7c3a48a6231247ae8d472f359b6c75e938;hp=196473529bbb005ea82d67b263f216c17cf6ba83;hpb=141a622804c650ab7e2b61ecc3af87c4be6495c5;p=gacela.git

diff --git a/src/gacela_draw.scm b/src/gacela_draw.scm
index 1964735..b9a2c5a 100644
--- a/src/gacela_draw.scm
+++ b/src/gacela_draw.scm
@@ -27,7 +27,7 @@
 
 (define-macro (progn-textures . code)
   `(let ((result #f))
-     (init-video-mode)
+     (init-gacela)
      (glEnable GL_TEXTURE_2D)
      (set! result (begin ,@code))
      (glDisable GL_TEXTURE_2D)
@@ -60,7 +60,7 @@
 	(else (glVertex2f x y))))
 
 (define (load-image-for-texture filename)
-  (init-video-mode)
+  (init-gacela)
   (let ((image (IMG_Load filename)))
     (cond (image
 	   (let* ((width (surface-w image)) (height (surface-h image))