FreeCalypso > hg > fc-magnetite

comparison src/cs/drivers/drv_app/r2d/convertanim.pl @ 0:945cf7f506b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src/cs: chipsetsw import from tcs211-fcmodem binary blobs and LCD demo files have been excluded, all line endings are LF only
author Mychaela Falconia <falcon@freecalypso.org>
date Sun, 25 Sep 2016 22:50:11 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:945cf7f506b2
1 #!perl
2
3 $nb=$ARGV[0];
4 $name=$ARGV[1];
5
6 for($i=0;$i<$nb;$i++)
7 {
8 $t=sprintf "%02d",($i+1);
9 $filename=$name.$t.".tga";
10 print "tor2d.pl $filename image$t\n";
11 system("tor2d.pl $filename image$t");
12 }
13
14 open(OUT,">E:\\BT\\Drivers\\Common\\R2D\\r2d_anim.c") or die "Cannot create anim file :$!\n";
15
16 for($i=0;$i<$nb;$i++)
17 {
18 $t=sprintf "%02d",($i+1);
19 print OUT "#include \"image$t.c\"\n";
20 }
21
22 print OUT "\n";
23 print OUT "#define r2d_create_anim_context() \\\n";
24 for($i=0;$i<$nb;$i++)
25 {
26 $t=sprintf "%02d",($i+1);
27 if ($i == ($nb-1))
28 {
29 print OUT "picgc[$i]=r2d_new_picture_context((UINT32*)image$t); \n";
30 }
31 else
32 {
33 print OUT "picgc[$i]=r2d_new_picture_context((UINT32*)image$t); \\\n";
34 }
35
36 }
37 close(OUT);