X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=animation.lisp;fp=animation.lisp;h=ec09fc44a737db3d477b3c0b88a0629c8674e72f;hp=3d86d5b61e98543f6a4da9c7e971e1f3f10ca4ad;hb=074a5863f985bd9a078f41af96310fd55828df3f;hpb=ce717bf849f95f3de30061b413c9c196b60b2363

diff --git a/animation.lisp b/animation.lisp
index 3d86d5b..ec09fc4 100755
--- a/animation.lisp
+++ b/animation.lisp
@@ -132,26 +132,25 @@ images-variable."
   (make-instance 'animation
 		 :images-2x (mapcar
 			     #'(lambda (x)
-				 (sdl:convert-surface :surface (sdl-image:load-image
-								(car x)
-								:image-type :BMP :alpha 1 )))
+				 (sdl:convert-surface :surface (sdl:load-image
+								(car x) :alpha 1 )))
 			     image-list)
 		 :images-1x (mapcar
 			     #'(lambda (x)
-				 (sdl:convert-surface :surface (sdl-image:load-image
+				 (sdl:convert-surface :surface (sdl:load-image
 								(cadr x)
-								:image-type :BMP :alpha 1 )))
+								:alpha 1 )))
 			     image-list)
 		 :images-.5x (mapcar
 			     #'(lambda (x)
-				 (sdl:convert-surface :surface (sdl-image:load-image
+				 (sdl:convert-surface :surface (sdl:load-image
 								(caddr x)
-								:image-type :BMP :alpha 1 )))
+								:alpha 1 )))
 			     image-list)
 		 :images-.25x (mapcar
 			     #'(lambda (x)
-				 (sdl:convert-surface :surface (sdl-image:load-image
+				 (sdl:convert-surface :surface (sdl:load-image
 								(cadddr x)
-								:image-type :BMP :alpha 1 )))
+								:alpha 1 )))
 			     image-list)
 		 :sprite-delay frame-skip))
\ No newline at end of file