From 2300d2813a524cbfeabac794335e7abe99263df6 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Tue, 29 Dec 2015 23:10:50 -0500 Subject: initial commit --- lorchatest.c | 37 +++++++++++++++++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 lorchatest.c (limited to 'lorchatest.c') diff --git a/lorchatest.c b/lorchatest.c new file mode 100644 index 0000000..bc53d07 --- /dev/null +++ b/lorchatest.c @@ -0,0 +1,37 @@ +#include + +extern void __fastcall__ draw_lorcha(int which, int displacement, int mask); + +void jsleep(int jiffies) { + POKE(20,0); + while(PEEK(20) < jiffies) + ; +} + +int main(void) { + int i, j; + + /* draw all 10 ships in normal state */ + for(i=0; i<10; i++) { + draw_lorcha(i, 0, 0); + } + + /* explode and sink all 10 ships */ + for(i=0; i<10; i++) { + /* blast effect */ + for(j=0; j<8; j++) { + draw_lorcha(i, 0, 0x80); + jsleep(2); + draw_lorcha(i, 0, 0); + jsleep(2); + } + + /* sinking */ + for(j=0; j<8; j++) { + draw_lorcha(i, j, 0); + jsleep(4); + } + } + +hang: goto hang; +} -- cgit v1.2.3