Select Code to Download

#! perl -slw
use strict;
...
print IMG $map->png;
close IMG;

#! perl -slw
use strict;
...
open POINTS, '>', '569929.points' or die $!;
printf POINTS "%d:%d\n", int( rand 5000 ), int( rand 5000 ) for 1 .. 5
+.25e6;
close POINTS;

#! perl -slw
use strict;
...
$T->report;

close POINTS;

c:\test>569929-b
1 trial of 5,25e6 points in 2.5e5 polys (33.094s total)
...
c:\test>569929-b
1 trial of 5.25e6 points in 2.5e5 polys (33.734s total)