view src/cs/drivers/drv_app/r2d/convertanim.pl @ 702:9394305d4ff5 default tip

etm_audio.c: fix off-by-one error in auw of FIR coefficients This fix was already made in FC Tourmaline a while back, but it is also the kind of bugfix that deserves to be backported to Magnetite and Selenite as well.
author Mychaela Falconia <falcon@freecalypso.org>
date Mon, 31 Oct 2022 00:14:44 +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);