FreeCalypso > hg > fc-selenite
view src/cs/drivers/drv_app/r2d/convertanim.pl @ 186:807fdc70cbd0
targets/gtm900mgc.h: sync with Magnetite
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sat, 15 Feb 2020 20:12:32 +0000 |
parents | b6a5e36de839 |
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);