Mercurial > hg > Members > kent > ChainUp
view images/src/make-run @ 0:a9991245138f default tip
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 |
line wrap: on
line source
#!/usr/bin/perl $width=shift(@ARGV); $last=pop(@ARGV); foreach $card (@ARGV) { system("giftopnm $card.gif | pnmcut 0 0 $width 97 > $card.tmp"); push(@link,"$card.tmp"); } system("giftopnm $last.gif > last.tmp"); system("pnmcat -lr @link last.tmp | ppmtogif -interlace -sort -transparent yellow"); system("rm @link last.tmp");