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");