Mercurial > hg > Members > kent > ChainUp

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 #!/usr/bin/perl
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 $width=shift(@ARGV);
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 $last=pop(@ARGV);
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 foreach $card (@ARGV)
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 {
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 system("giftopnm $card.gif | pnmcut 0 0 $width 97 > $card.tmp");
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 push(@link,"$card.tmp");
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 }
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 system("giftopnm $last.gif > last.tmp");
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 system("pnmcat -lr @link last.tmp | ppmtogif -interlace -sort -transparent yellow");
a9991245138f Chain up is a card game.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 system("rm @link last.tmp");