projects
/
uxul-world.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
removed dependency on sdl-image, using sdl only. added copyright-notice for bmp.lisp
[uxul-world.git]
/
animation.lisp
diff --git
a/animation.lisp
b/animation.lisp
index
3d86d5b
..
ec09fc4
100755
(executable)
--- a/
animation.lisp
+++ b/
animation.lisp
@@
-132,26
+132,25
@@
images-variable."
(make-instance 'animation
:images-2x (mapcar
#'(lambda (x)
(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)
image-list)
:images-1x (mapcar
#'(lambda (x)
- (sdl:convert-surface :surface (sdl
-image
:load-image
+ (sdl:convert-surface :surface (sdl:load-image
(cadr x)
(cadr x)
- :
image-type :BMP :
alpha 1 )))
+ :alpha 1 )))
image-list)
:images-.5x (mapcar
#'(lambda (x)
image-list)
:images-.5x (mapcar
#'(lambda (x)
- (sdl:convert-surface :surface (sdl
-image
:load-image
+ (sdl:convert-surface :surface (sdl:load-image
(caddr x)
(caddr x)
- :
image-type :BMP :
alpha 1 )))
+ :alpha 1 )))
image-list)
:images-.25x (mapcar
#'(lambda (x)
image-list)
:images-.25x (mapcar
#'(lambda (x)
- (sdl:convert-surface :surface (sdl
-image
:load-image
+ (sdl:convert-surface :surface (sdl:load-image
(cadddr x)
(cadddr x)
- :
image-type :BMP :
alpha 1 )))
+ :alpha 1 )))
image-list)
:sprite-delay frame-skip))
\ No newline at end of file
image-list)
:sprite-delay frame-skip))
\ No newline at end of file