FreeCalypso > hg > fc-tourmaline
view src/cs/drivers/drv_app/r2d/convertanim.pl @ 44:1821e301a65b
R2D: new Tourmaline driver selection
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sat, 17 Oct 2020 19:45:18 +0000 |
parents | 4e78acac3d88 |
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);