view release on metacpan or  search on metacpan

gentest/gentest_ellipsoid.pl  view on Meta::CPAN

my $e_meter = Geo::Ellipsoid->new(angle_unit => 'degrees');
my $e_kilo = Geo::Ellipsoid->new(angle_unit => 'degrees',distance => 'kilo');
my $e_mile = Geo::Ellipsoid->new(angle_unit => 'degrees',distance => 'mile');
my $e_foot = Geo::Ellipsoid->new(angle_unit => 'degrees',distance => 'foot');
my $e_nm = Geo::Ellipsoid->new(angle_unit => 'degrees',distance => 'nm');
my( $r1,$r2,$r3,$r4,$r5);
EOS
  $tests{range}{code} = [ $code ];
  ${$tests{range}}{count} = 0;

  # test endpoints: poles and equator
  for( my $lat1 = $lat0; $lat1 <= 90; $lat1 += $latinc ) {
    for( my $lon1 = $lon0; $lon1 <= 270; $lon1 += $loninc ) {
      next if abs($lat1) == 90 and $lon1 > 0;
      print "  loc1 = ($lat1,$lon1)\n" if $debug;
      for( my $lat2 = $lat0; $lat2 <= 90; $lat2 += $latinc ) {
        for( my $lon2 = $lon0; $lon2 <= 270; $lon2 += $loninc ) {
          print "  loc2 = ($lat2,$lon2)\n" if $debug;

          # skip tests where points are anti-podal
          next if $lat2 == -$lat1 and abs($lon1-$lon2) == 180;