X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela_objects.lisp;h=178c4acf99ad85d984d915837c092b36dffac218;hb=d0e2cdc7308eabc4727729f9ac085f2959696b90;hp=e5d049dbf576e36e2c8304b772f54a331125c13d;hpb=1d764c22c8ce063f3c69dd1605b7da47999ae1df;p=gacela.git

diff --git a/gacela_objects.lisp b/gacela_objects.lisp
index e5d049d..178c4ac 100755
--- a/gacela_objects.lisp
+++ b/gacela_objects.lisp
@@ -87,7 +87,9 @@
 	       (:get-attr attr)
 	       (:get-bhv bhv)
 	       (:set-bhv (setq bhv (car param)))
-	       (:render ,@look))))
+	       (:render (glPushMatrix)
+			,@(mapcar (lambda (x) (if (stringp x) `(draw-image ,x) x)) look)
+			(glPopMatrix)))))
      (add-object ',name)
      ',name))