0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

This is the other half of a rename

Browse source
This commit is contained in:
Eric S. Raymond 2008-02-09 22:11:49 +00:00
parent b34c790f71
commit 006ef441b1
1 changed files with 0 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
data/tools/mk-edges.pl
View file

@ -1,38 +0,0 @@
#!/usr/bin/env perl
#
# Automatically generate border images for tiles. Works by copying the way in
# which border tiles are done for an existing terrain type.
#
# For instance, if you made a new terrain type, 'lava.png' and you wanted
# to have the same style of edges as snow does, you could run the command
#
# data/tools/mk-edges.pl images/terrain/lava images/terrain/snow
#
# and it will make the edges for you.
print "usage: $0 <input> <stem>" and exit 0 if $#ARGV != 1;
my ($input,$stem) = @ARGV;
sub process {
my $in=shift || die;
my $edge=shift || die;
my $out=shift || die;
system <<EOF;
pngtopnm -alpha $edge >/tmp/edge-alpha.pgm;
pngtopnm $edge >/tmp/edge.ppm;
ppmtopgm /tmp/edge.ppm >/tmp/edge.pgm;
pngtopnm $in >/tmp/bg.ppm;
pnmcomp -alpha=/tmp/edge.pgm /tmp/bg.ppm /tmp/edge.ppm | pnmtopng -alpha /tmp/edge-alpha.pgm >$out;
EOF
}
foreach (glob "${stem}-*.png") {
my $edge=$1 if /$stem-(.*).png/;
if($edge=~/^[news-]*$/) {
process("${input}.png","${stem}-${edge}.png","${input}-${edge}.png");
}
}