Generate better KML when crossing the date line from west to east
authorTom Hughes <tom@compton.nu>
Tue, 2 Oct 2012 09:18:03 +0000 (10:18 +0100)
committerTom Hughes <tom@compton.nu>
Tue, 2 Oct 2012 09:18:47 +0000 (10:18 +0100)
bin/mkgeo

index aa79f7b75f9fa256e03a3a6b2aa2319fff5e714f..6474a76fe705dbd36d5cc0eed587b8491393eb9e 100755 (executable)
--- a/bin/mkgeo
+++ b/bin/mkgeo
@@ -109,6 +109,10 @@ foreach my $country (values %countries)
     {
         $clon = $clon - 360;
     }
+    elsif ($slon > 0 && $clon < 0 && 360 + $clon - $slon < $slon - $clon)
+    {
+        $slon = $slon - 360;
+    }
 
     $zonefile->print("C\L$country->{code}\E.${zone}:$servers[0]->{name}.${zone}:600\n");