# HG changeset patch # User "Rex Tsai " # Date 1225563665 -28800 # Node ID a60cf4d1a6ddfc4f4a1a7bec70beb903cfe7e616 # Parent 4b5e1d3a5198e276d780e26273410def409e3f67 fixed url and axis diff -r 4b5e1d3a5198 -r a60cf4d1a6dd ally.pl --- a/ally.pl Sat Nov 01 05:16:27 2008 +0800 +++ b/ally.pl Sun Nov 02 02:21:05 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]