FreeCalypso > hg > fc-magnetite
view src/cs/drivers/drv_app/r2d/convertanim.pl @ 251:6c594ce434f8
doc/Compiling: update for the FCDEV3B and for fc-host-tools-r5
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Thu, 03 Aug 2017 05:20:46 +0000 |
parents | 945cf7f506b2 |
children |
line wrap: on
line source
#!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);