# HG changeset patch # User "Rex Tsai " # Date 1225563793 -28800 # Node ID 7df753a9992643e75c96837c4b2a3c0ce3f538ee # Parent a60cf4d1a6ddfc4f4a1a7bec70beb903cfe7e616# Parent 8f699a9da6c0d4de2f7eec6f807dc73fe520cb22 merged diff -r 8f699a9da6c0 -r 7df753a99926 ally.pl --- a/ally.pl Sun Nov 02 02:26:28 2008 +0800 +++ b/ally.pl Sun Nov 02 02:23:13 2008 +0800 @@ -59,16 +59,16 @@ } "); -foreach my $x ($x1..$x2) +foreach my $y($y1..$y2) { print(OUT ""); - foreach my $y($y1..$y2) + foreach my $x ($x1..$x2) { # printf("
o
"); if(defined($maps{$x}{$y}{'density'})) { my $c = 255 - (15 * $maps{$x}{$y}{'density'}); - printf(OUT "", - $c, $c, $maps{$x}{$y}{'id'}, $x, $y, $maps{$x}{$y}{'density'}, $x, $y); + printf(OUT "", + $c, $c, $::server, $maps{$x}{$y}{'id'}, $x, $y, $maps{$x}{$y}{'density'}, $x, $y); } else { printf(OUT "", $x, $y); }
[%d,%d][%d,%d][%d,%d]