X-Git-Url: http://uxul.de/gitweb/?a=blobdiff_plain;f=animation.lisp;fp=animation.lisp;h=fdec198b44bd9ae17db67e4a9b0992aab14859fa;hb=fe47814b2cd1ec57db67e494ff48faae46ffe21c;hp=f2825aa8e735584ac73833b8daff64b57e035eab;hpb=470725f4a2f682d02fb15183cc596c7fa5c7b761;p=uxul-world.git

diff --git a/animation.lisp b/animation.lisp
index f2825aa..fdec198 100755
--- a/animation.lisp
+++ b/animation.lisp
@@ -114,8 +114,7 @@ below, this will refer to an animation in the *graphics-table*." )))
 images-variable."
   ;(format t "make-animation is being called~%")
   (make-instance 'animation
-		 :full-widths (mapcar #'bmp-width image-list)
-		 :full-heights (mapcar #'bmp-height image-list)
-		 :images (mapcar #'load-bmp-blob-into-texture
-				 image-list)
+		 :full-widths (mapcar #'car image-list)
+		 :full-heights (mapcar #'cadr image-list)
+		 :images (mapcar #'cddr image-list)
 		 :sprite-delay frame-skip))
\ No newline at end of file