Mercurial > hg > Members > kent > ChainUp

comparison images/src/make-run @ 0:a9991245138f default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Chain up is a card game.
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Tue, 09 Dec 2008 15:55:11 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:a9991245138f
1 #!/usr/bin/perl
2
3 $width=shift(@ARGV);
4 $last=pop(@ARGV);
5
6 foreach $card (@ARGV)
7 {
8 system("giftopnm $card.gif | pnmcut 0 0 $width 97 > $card.tmp");
9 push(@link,"$card.tmp");
10 }
11
12 system("giftopnm $last.gif > last.tmp");
13 system("pnmcat -lr @link last.tmp | ppmtogif -interlace -sort -transparent yellow");
14 system("rm @link last.tmp");