Mercurial > hg > Members > kent > ChainUp

diff 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
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/images/src/make-run	Tue Dec 09 15:55:11 2008 +0900
@@ -0,0 +1,14 @@
+#!/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");