Added "convert-surface" for graphic loading

[uxul-world.git] / animation.lisp

diff --git a/animation.lisp b/animation.lisp
index db6c7bf..20fce5b 100755 (executable)
--- a/animation.lisp
+++ b/animation.lisp
@@ -114,8 +114,8 @@ images-variable."
   (make-instance 'animation
                 :images (mapcar
                          #'(lambda (x)
-                             (sdl-image:load-image
+                             (sdl:convert-surface :surface (sdl-image:load-image
                               x
-                              :image-type :PNG :alpha 1 ))
+                              :image-type :PNG :alpha 1 )))
                                 image-list)
                 :sprite-delay frame-skip))
\ No newline at end of file