FreeCalypso > hg > fc-selenite
diff src/cs/drivers/drv_app/r2d/convertanim.pl @ 0:b6a5e36de839
src/cs: initial import from Magnetite
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sun, 15 Jul 2018 04:39:26 +0000 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/src/cs/drivers/drv_app/r2d/convertanim.pl Sun Jul 15 04:39:26 2018 +0000 @@ -0,0 +1,37 @@ +#!perl + +$nb=$ARGV[0]; +$name=$ARGV[1]; + +for($i=0;$i<$nb;$i++) +{ + $t=sprintf "%02d",($i+1); + $filename=$name.$t.".tga"; + print "tor2d.pl $filename image$t\n"; + system("tor2d.pl $filename image$t"); +} + +open(OUT,">E:\\BT\\Drivers\\Common\\R2D\\r2d_anim.c") or die "Cannot create anim file :$!\n"; + +for($i=0;$i<$nb;$i++) +{ + $t=sprintf "%02d",($i+1); + print OUT "#include \"image$t.c\"\n"; +} + +print OUT "\n"; +print OUT "#define r2d_create_anim_context() \\\n"; +for($i=0;$i<$nb;$i++) +{ + $t=sprintf "%02d",($i+1); + if ($i == ($nb-1)) + { + print OUT "picgc[$i]=r2d_new_picture_context((UINT32*)image$t); \n"; +} +else +{ +print OUT "picgc[$i]=r2d_new_picture_context((UINT32*)image$t); \\\n"; +} + +} +close(OUT); \ No newline at end of file