maps/Info/combine.pl

#!/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 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";
Revision:	1.1.1.1 (vendor branch)
Committed:	Sat Feb 4 23:56:12 2006 UTC (20 years ago) by root
Content type:	text/plain
Branch:	UPSTREAM, MAIN
CVS Tags:	post_fixaltar, last_stable, post_fixaltar2, rel-2_82, rel-2_81, rel-2_80, pre_coinconvert, UPSTREAM_2006_03_15, rel-3_0, rel-2_6, rel-2_7, rel-2_4, rel-2_5, rel-2_2, rel-2_0, rel-2_1, rel-2_72, rel-2_73, rel-2_71, rel-2_76, rel-2_77, rel-2_74, rel-2_75, rel-2_54, rel-2_55, rel-2_56, rel-2_79, UPSTREAM_2006_02_01, rel-2_53, pre_material_cfarch_normalize_run, rel-2_32, pre_fixconverter, post_coinconvert, pre_fixaltar2, pre_map_rename, UPSTREAM_2006_02_22, rel-2_90, rel-2_92, rel-2_93, rel-2_78, post_fixconverter, pre_fixaltar, rel-2_61, rel-2_43, rel-2_42, rel-2_41, HEAD
Changes since 1.1:	+0 -0 lines
Log Message:	Initial Import
#	Content
1	#!/usr/bin/perl
2	# This script takes a bunch of world image files and combines them
3	# into one large image. This should be run from the directory
4	# where all the images are.
5	# Note that this takes a while to run. Probably pretty proportional
6	# to the the size of the target image.
7	# This is somewhat hacked for my usage - it presumes you run this
8	# from the top level of the maps directory (eg, contains world, scorn,
9	# etc directories). This is smart enough to regen the image files
10	# that may be missing/out of date.
11
12	$DEST_WIDTH=3000;
13	$DEST_HEIGHT=3000;
14
15	$NUM_X=30;
16	$NUM_Y=30;
17
18	$START_X=100;
19	$START_Y=100;
20
21	$TILE_WIDTH = $DEST_WIDTH/$NUM_X;
22	$TILE_HEIGHT = $DEST_HEIGHT/$NUM_Y;
23	# This is the command to run the editor. Really, it can be anything that
24	# outputs a .png file. The %I and %O are substituted with actul
25	# path names.
26	$CFEDITOR="cd /export/home/crossfire/CFJavaEditor; java -Xmx128mb -classpath class/:lib/png.jar:lib/visualtek.jar cfeditor.CFJavaEditor -infile %I -outfile %O > /dev/null";
27
28	die ("No images directory - exiting\n") if (! -d "./images");
29	use Cwd;
30	$cwd = cwd();
31
32
33	# If we already have a combined image, then we only need to paste
34	# the new bits onto it, saving a bunch of time
35	if (! -f "images/combine.ppm") {
36	system("ppmmake \\#000 $DEST_WIDTH $DEST_HEIGHT > /tmp/tmp.ppm");
37	$first_run=1;
38	print "Creating images for the first time.\n";
39	} else {
40	system("cp images/combine.ppm /tmp/tmp.ppm");
41	$first_run=0;
42	}
43
44	print "Processing.";
45	for ($x=0; $x<$NUM_X; $x++) {
46	for ($y=0; $y<$NUM_Y; $y++) {
47	print ".";
48	$dx = $x + $START_X;
49	$dy = $y + $START_Y;
50
51	# These time values are the reverse in how you'd normally think about them - they
52	# are the time (in days) since the fiel was last modified. Thus, a file that hasn't
53	# been modified in a long time has a high value, a file modified recently has
54	# a low level.
55	$time1 = -M "images\/world_$dx\_$dy.png";
56	$time2 = -M "world\/world_$dx\_$dy";
57	if ($time1 > $time2) {
58	$cmd = $CFEDITOR;
59	$cmd =~ s#%I#$cwd/world/world_$dx\_$dy#;
60	$cmd =~ s#%O#$cwd/images/world_$dx\_$dy.png#;
61	system($cmd);
62	system("pngtopnm images/world_$dx\_$dy.png \| pnmscale -xysize $TILE_WIDTH $TILE_HEIGHT > /tmp/ppm.tmp");
63	$sx = $x * $TILE_WIDTH;
64	$sy = $y * $TILE_HEIGHT;
65	system("pnmpaste /tmp/ppm.tmp $sx $sy /tmp/tmp.ppm > /tmp/tmp.ppm1");
66	unlink("/tmp/tmp.ppm");
67	rename("/tmp/tmp.ppm1", "/tmp/tmp.ppm");
68	}
69	}
70	}
71	system("mv /tmp/tmp.ppm images/combine.ppm");
72	print "\n";