Merge pull request #2 from TomMD/master

Fix some tile bounding.
robstewart57 · Sep 3, 2011 · 5b7dd46 · 5b7dd46
2 parents c45e1f8 + 62d20b5
commit 5b7dd46
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Data/GPS/Gps2HtmlReport/DrawOsm.hs b/Data/GPS/Gps2HtmlReport/DrawOsm.hs
@@ -33,7 +33,7 @@ tileNumber latitude longitude =
 
 secant a = 1 / cos a
 
-initCoords = TileCoords {minX = 1000000, maxX = 0, minY = 1000000, maxY = 0}
+initCoords = TileCoords {minX = 1000000, maxX = -1000, minY = 1000000, maxY = -1000}
 
 determineTiles :: [WptType] -> TileCoords -> TileCoords
 determineTiles [] _ = initCoords