(no commit message)

[gacela.git] / gacela_objects.lisp

diff --git a/gacela_objects.lisp b/gacela_objects.lisp
index e5d049dbf576e36e2c8304b772f54a331125c13d..178c4acf99ad85d984d915837c092b36dffac218 100755 (executable)
--- 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))