SYNOPSIS

#!/usr/bin/perl -w # Test Program:

# Google Tile Calculator Test Program... # Author. John D. Coryat 01/2008 USNaviguide LLC

use strict; use USNaviguide_Google_Tiles ;

my $latS = 34.177442 ; my $lngW = -91.318359 ; my $latN = 35.797300 ; my $lngE = -88.681641 ; my $zoom = 8 ; my $x = '' ; my %tile = ( ) ; my $i = 0 ;

my @d = &Google_Tiles($latS, $lngW, $latN, $lngE, $zoom,0,'Whole');

print "Total: " . scalar(@d) . "\n" ;

for ( $i = 0; $i <= $#d; $i++ ) { print "Tile # $i Y: $d[$i]{'NAMEY'} X: $d[$i]{'NAMEX'}\n" ;

%tile = %{$d[$i]} ;

foreach $x (sort keys %tile)
{
 print "\t$x: $tile{$x}\n" ;
}
}