FreeCalypso > hg > fc-tourmaline
view src/cs/drivers/drv_app/r2d/convertanim.pl @ 47:502a0a3f6a49
C139 LCD support reinstated in the new way
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sun, 18 Oct 2020 02:03:10 +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);