73 lines
2.4 KiB
Perl
Executable File
73 lines
2.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# This script takes a bunch of world image files and combines them
|
|
# into one large image. This should be run from the directory
|
|
# where all the images are.
|
|
# Note that this takes a while to run. Probably pretty proportional
|
|
# to the size of the target image.
|
|
# This is somewhat hacked for my usage - it presumes you run this
|
|
# from the top level of the maps directory (eg, contains world, scorn,
|
|
# etc directories). This is smart enough to regen the image files
|
|
# that may be missing/out of date.
|
|
|
|
$DEST_WIDTH=3000;
|
|
$DEST_HEIGHT=3000;
|
|
|
|
$NUM_X=30;
|
|
$NUM_Y=30;
|
|
|
|
$START_X=100;
|
|
$START_Y=100;
|
|
|
|
$TILE_WIDTH = $DEST_WIDTH/$NUM_X;
|
|
$TILE_HEIGHT = $DEST_HEIGHT/$NUM_Y;
|
|
# This is the command to run the editor. Really, it can be anything that
|
|
# outputs a .png file. The %I and %O are substituted with actul
|
|
# path names.
|
|
$CFEDITOR="cd /export/home/crossfire/CFJavaEditor; java -Xmx128mb -classpath class/:lib/png.jar:lib/visualtek.jar cfeditor.CFJavaEditor -infile %I -outfile %O > /dev/null";
|
|
|
|
die ("No images directory - exiting\n") if (! -d "./images");
|
|
use Cwd;
|
|
$cwd = cwd();
|
|
|
|
|
|
# If we already have a combined image, then we only need to paste
|
|
# the new bits onto it, saving a bunch of time
|
|
if (! -f "images/combine.ppm") {
|
|
system("ppmmake \\#000 $DEST_WIDTH $DEST_HEIGHT > /tmp/tmp.ppm");
|
|
$first_run=1;
|
|
print "Creating images for the first time.\n";
|
|
} else {
|
|
system("cp images/combine.ppm /tmp/tmp.ppm");
|
|
$first_run=0;
|
|
}
|
|
|
|
print "Processing.";
|
|
for ($x=0; $x<$NUM_X; $x++) {
|
|
for ($y=0; $y<$NUM_Y; $y++) {
|
|
print ".";
|
|
$dx = $x + $START_X;
|
|
$dy = $y + $START_Y;
|
|
|
|
# These time values are the reverse in how you'd normally think about them - they
|
|
# are the time (in days) since the fiel was last modified. Thus, a file that hasn't
|
|
# been modified in a long time has a high value, a file modified recently has
|
|
# a low level.
|
|
$time1 = -M "images\/world_$dx\_$dy.png";
|
|
$time2 = -M "world\/world_$dx\_$dy";
|
|
if ($time1 > $time2) {
|
|
$cmd = $CFEDITOR;
|
|
$cmd =~ s#%I#$cwd/world/world_$dx\_$dy#;
|
|
$cmd =~ s#%O#$cwd/images/world_$dx\_$dy.png#;
|
|
system($cmd);
|
|
system("pngtopnm images/world_$dx\_$dy.png | pnmscale -xysize $TILE_WIDTH $TILE_HEIGHT > /tmp/ppm.tmp");
|
|
$sx = $x * $TILE_WIDTH;
|
|
$sy = $y * $TILE_HEIGHT;
|
|
system("pnmpaste /tmp/ppm.tmp $sx $sy /tmp/tmp.ppm > /tmp/tmp.ppm1");
|
|
unlink("/tmp/tmp.ppm");
|
|
rename("/tmp/tmp.ppm1", "/tmp/tmp.ppm");
|
|
}
|
|
}
|
|
}
|
|
system("mv /tmp/tmp.ppm images/combine.ppm");
|
|
print "\n";
|