--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/chipsetsw/drivers/drv_app/r2d/lcds/D_Sample/Demo/convertanim.pl	Mon Jun 01 03:24:05 2015 +0000
@@ -0,0 +1,40 @@
+#!perl
+
+$nb=$ARGV[0];
+$name=$ARGV[1];
+
+
+for($i=0;$i<$nb;$i++)
+{
+   $t=sprintf "%02d",($i+1);
+   $filename=$name.$t.".tga";
+   rename "D:\\J2ME\\Drivers\\Common\\R2D\\LCDs\\D_Sample\\Demo\\Pictures\\"."$filename","Pictures\\$filename";
+   print "tor2d.pl Pictures/$filename image$t\n";
+   system("tor2d.pl Pictures/$filename image$t");
+}
+
+open(OUT,">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 NB_PIC $nb\n\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,R2D_FULL_KIND); \n";
+}
+else
+{
+print OUT "picgc[$i]=r2d_new_picture_context((UINT32*)image$t,R2D_FULL_KIND); \\\n";
+}
+
+}
+close(OUT);
\ No newline at end of file