From 9c28ad98e4b09cd6883e839d81e641b8b673a397 Mon Sep 17 00:00:00 2001 From: Pascal Brisset Date: Fri, 15 Jan 2010 17:41:40 +0000 Subject: [PATCH] change version for Google tiles (should be a parameter somewhere ?) --- sw/lib/ocaml/gm.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/sw/lib/ocaml/gm.ml b/sw/lib/ocaml/gm.ml index 69dc39568c..f704d70712 100644 --- a/sw/lib/ocaml/gm.ml +++ b/sw/lib/ocaml/gm.ml @@ -199,11 +199,12 @@ let ms_key = fun key -> done; ms_key +let google_version = 51 let url_of_tile_key = fun maps_source s -> let (x, y, z) = xyz_of_qsrt s in match maps_source with - Google -> sprintf "http://khm0.google.com/kh/v=45&x=%d&s=&y=%d&z=%d" x y z + Google -> sprintf "http://khm0.google.com/kh/v=%d&x=%d&s=&y=%d&z=%d" google_version x y z | OSM -> sprintf "http://tile.openstreetmap.org/%d/%d/%d.png" z x y | MS -> sprintf "http://a0.ortho.tiles.virtualearth.net/tiles/a%s.jpeg?g=%d" (ms_key s) (z+32)