Generate better KML when crossing the date line from west to east

diff --git a/bin/mkgeo b/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;
     }
     {
         $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");
 
 
     $zonefile->print("C\L$country->{code}\E.${zone}:$servers[0]->{name}.${zone}:600\n");