FreeCalypso > hg > fc-selenite
view src/cs/drivers/drv_app/r2d/convertanim.pl @ 194:a18bf8df5fab
aci_pei.c: sync with Magnetite for (MMI != 0)
There was a change in Magnetite aci3 for (MMI != 0) configuration;
this config does not exist in Selenite, but this change is being
pulled in as a sync in order to keep the diff between Magnetite
and Selenite to a minimum.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sat, 23 May 2020 07:21:43 +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);