X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=animation.lisp;fp=animation.lisp;h=3d86d5b61e98543f6a4da9c7e971e1f3f10ca4ad;hp=c64a20a5a30353e4acbff7a0c649fb6a7c7f7dc7;hb=3513580fa41deb8023977f77e64997708ff26455;hpb=3a5b6fe5b066ace9e3d03ec20c96c224cdbeb0b8

diff --git a/animation.lisp b/animation.lisp
index c64a20a..3d86d5b 100755
--- a/animation.lisp
+++ b/animation.lisp
@@ -126,20 +126,6 @@ below, this will refer to an animation in the *graphics-table*." )))
   "rewind the animation"
   (setf (slot-value obj 'sprite-image-number) 0))
 
-#|(defun load-png-image (filename)
-  (sdl-image:load-image (gethash filename *file-table*) :image-type :PNG :alpha 1 )) ;; :alpha t))
-
-(defun hashed-load-image (filename)
-  "loads an image by its filename, if it wasnt loaded yet. returns a
-reference, if the current filename already exists."
-  (let ((ret (gethash filename *graphics-table* nil)))
-    (cond
-      (ret ret)
-      (T
-       (setf ret (load-png-image filename))
-       (setf (gethash filename *graphics-table*) ret)
-       ret))))|#
-
 (defun make-animation (frame-skip &rest image-list)
   "Create an animation from the list of animation-names given in the
 images-variable."
@@ -148,24 +134,24 @@ images-variable."
 			     #'(lambda (x)
 				 (sdl:convert-surface :surface (sdl-image:load-image
 								(car x)
-								:image-type :PNG :alpha 1 )))
+								:image-type :BMP :alpha 1 )))
 			     image-list)
 		 :images-1x (mapcar
 			     #'(lambda (x)
 				 (sdl:convert-surface :surface (sdl-image:load-image
 								(cadr x)
-								:image-type :PNG :alpha 1 )))
+								:image-type :BMP :alpha 1 )))
 			     image-list)
 		 :images-.5x (mapcar
 			     #'(lambda (x)
 				 (sdl:convert-surface :surface (sdl-image:load-image
 								(caddr x)
-								:image-type :PNG :alpha 1 )))
+								:image-type :BMP :alpha 1 )))
 			     image-list)
 		 :images-.25x (mapcar
 			     #'(lambda (x)
 				 (sdl:convert-surface :surface (sdl-image:load-image
 								(cadddr x)
-								:image-type :PNG :alpha 1 )))
+								:image-type :BMP :alpha 1 )))
 			     image-list)
 		 :sprite-delay frame-skip))
\ No newline at end of file