From 93cc969822df3b2a8c8f20809b2e8170d271f640 Mon Sep 17 00:00:00 2001 From: Christoph Senjak Date: Fri, 10 Apr 2009 23:09:04 +0200 Subject: [PATCH] Added "convert-surface" for graphic loading Now the graphic is reasonably fast on my laptop Added a simple (ugly, psychodelic) Background, just for testing-purposes. It looks ok and works fast enough. --- BUGS | 4 +-- README | 11 ++++++- animation.lisp | 4 +-- background_test_layer_1.png | Bin 0 -> 391 bytes background_test_layer_2.png | Bin 0 -> 1030 bytes background_test_layer_3.png | Bin 0 -> 1869 bytes compile.cl | 15 --------- draw.lisp | 59 +++++++++++++----------------------- 8 files changed, 35 insertions(+), 58 deletions(-) create mode 100644 background_test_layer_1.png create mode 100644 background_test_layer_2.png create mode 100644 background_test_layer_3.png delete mode 100755 compile.cl diff --git a/BUGS b/BUGS index 3e3a2a1..6d624d6 100644 --- a/BUGS +++ b/BUGS @@ -1,3 +1,3 @@ -2009/04/01 Background is too slow and "Jumps" +2009/04/09 Setting the Animation of Jumping doesnt always work correct -2009/04/09 Setting the Animation of Jumping doesnt always work correct \ No newline at end of file +2009/04/10 Random numeric type-errors diff --git a/README b/README index 6e0eaf2..7e933d9 100644 --- a/README +++ b/README @@ -1,3 +1,12 @@ This Game is under development and may not be ready to use yet. -It depends on Lispbuilder-SDL (SVN-Revision 759), LTK and lisp-magick. +It depends on Lispbuilder-SDL (SVN-Revision 759 should work), LTK and lisp-magick. + +To start the leveleditor, do (level-editor), it will return a sequence. Save this sequence +somewhere, say *a*. Then to play it, hit + +(start-game :room-function #'(lambda () (create-room-from-item-list *a*))) + +To edit *a* again, do (level-editor *a*), and your edited level will be returned. + +I cant promis that all revisions I will make will work. diff --git a/animation.lisp b/animation.lisp index db6c7bf..20fce5b 100755 --- 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 diff --git a/background_test_layer_1.png b/background_test_layer_1.png new file mode 100644 index 0000000000000000000000000000000000000000..90ee99f0b011ef5fc4bf5c8c15a5c188650350c8 GIT binary patch literal 391 zcmeAS@N?(olHy`uVBq!ia0vp^3LwnE1SJ1Ryj={W7>k44ofy`glX(f`a29w(7Bet# z3xhBt!>lS|xv6<249-QVi6yBi3gww4 z84B*6z5(HleBwYwUp!qLLp+Xe4Rho>pupjLD7bc7eJQ)Jvjm4$)vY9U*`*mPw>sr) zz4quq=keti85tfPe3bKnwRWFI>-!1`6&C4`g@wP8%bETq6fIugdA?w4*i^30Gcr%6 z#l2aTU~|pj2WQlU+2bP0l+XkK(fgkr literal 0 HcmV?d00001 diff --git a/background_test_layer_2.png b/background_test_layer_2.png new file mode 100644 index 0000000000000000000000000000000000000000..518b75e59d3435c4908f85f785a23b9a539dd6fc GIT binary patch literal 1030 zcmV+h1o``kP)Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FcU01FcV0GgZ_00007bV*G`2iXJ) z6gD8rg&Xn!000?uMObu0Z*6U5Zgc=ca%Ew3Wn>_CX>@2HM@dakSAh-}000AFNklH*EA^sRX&v#}aq$`iw z6*w14;G#t(tq#b<3>MJsGZMM>-)WnXP8XQ~j{h-?YWdP*R}(P%f@-FfVVoGDXluKBAH6)Qy{bM zr+C2AgJ&sW6rNR6tnO32faFwyTImFoDYT1#4$k9}VriE@pDy8d&6rrhXjYnje)Gnq zAOL8fA(pVHNW7y%&OoN<-x1->n9wZNJ}5#+OzJ>K*m1vXhga4<{oW}}*lDUHuRc}O z!Y4N$&R;E;ADUf?_IZGRs31!vFuTK(>-!dGoP~s=NYPB;tpgP}4X!}(pnz+u#=8mB zDjfRj8|wPExjVWvm9yFn|cuo!jhE-`KF2oFUk!qb<&EMDap&HFuIqCI6< zD6+!C>P;#l{ABWT6wJC)%o73@MVqt0$e5MU-5%g**bEscG>a5#1qGx(=$>e)3Jzx6 zDY>EU2)eZ(GlkQ4OQ>{!7~3bfoBR&M!Vgf)(EmhVkebTj1glx9|Mwuk(4BEMSrr0o_TJG1QFU4hjpNeKb= zF78{d&wO4$GGfyCP^Dh?fLnmXrcu9@v0DoM1(B5Z<+;F5%>V!Z07*qoM6N<$f@bp2 AK>z>% literal 0 HcmV?d00001 diff --git a/background_test_layer_3.png b/background_test_layer_3.png new file mode 100644 index 0000000000000000000000000000000000000000..5d88605f8b2d6ed84406f134888dcb7d133e3175 GIT binary patch literal 1869 zcmV-T2eSByP)Px#24YJ`L;(K){{a7>y{D4^000SaNLh0L01FcU01FcV0GgZ_00007bV*G`2iXJ) z6gdQO9^>o)000?uMObu0Z*6U5Zgc=ca%Ew3Wn>_CX>@2HM@dakSAh-}000K4Nklth1uhDf)6#CJJgmK?DuLz=y%`N#~0%KDoi5;9w$5 zA2wvLJqUt(5+$1qMOYYv;%Lr;6Sj^GJJcSi4o1>Cnys4;Icc-o`{$f{Z`#ZQmq7mf z{(OJG^EMN@P(A}yEK(|UAGME2AK7!?e=Yg#WPMNIUlM^xW`m%QWd;xtgNw4xz}{Q4F@fxUdcq7vA zp%7+^z$Kk{Bw35V1#i`zs3M05n@nU>9$>))RnOXF%GXT zkEDa!OusA|B}Biy#S{c54q+4Gp}oI#*ea$xob__^L0wKi-OP7?R{lo-*tnuk&u_3# zfiP?NSw77?AT6Lww&}q11mnh(u%K)LWGoM;HQfxW6Jo!bpam>ci)J-}sYlhCZmy>g z8Uuv>sIBXO>%gq;B^ZHg4S;P`SS^NEg{Ic4HQhX&QQfYdf~e#HU>5id_(t~E0DjVZPep-{@iOxY*8N;7 z{~DbZnQ5!M+Zi%$jsz(G9-aFEB}2Y#?S+S;K*)MW)!qqeeHNOV-7N4Ta1^^aL3ht? z7ebsFltK9it_ zmr`m`2yvaYGdUCG=YSK{qC9SEzLQg`Erj?JxI^daYr#VK2Jo4bvL2N$V+g`cAw&b% zu2b6)1Gm2loRCr;s?SDWlJ=`fPEM&?LWoPizdE-s8Myr!;HZ?rm7p~M0DH&P&6y=} z4!B3>9`0@3Q^@sLyan6zcL1q?E?_L&nx3Y5$4RHZx2+V|Dr|Y(ErATZVzW zDr*8lT0l61pv*=VRu7~HqzQtv-g|hX=?;_!nEZXN-$48a^6_-mCwCd$00000NkvXX Hu0mjf