Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-06 16:58:48 +08:00
Code Issues Actions 24 Packages Projects Releases Wiki Activity

name zoom max

Browse Source
This commit is contained in:
Pascal Brisset
2010-03-29 15:57:49 +00:00
parent 6b2c24625a
commit 0e004d202c
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/gm.ml
+3 -2
View File
@@ -30,6 +30,7 @@ open Latlong
open Printf
let tile_size = 256, 256
let zoom_max = 18
let cache_path = ref "/var/tmp"
@@ -59,7 +60,7 @@ let inv_norm_lat = fun l -> Latlong.inv_mercator_lat (l *. pi)
let norm_lat = fun l -> Latlong.mercator_lat l /. pi
let tile_coverage = fun lat zoom ->
let normed_size = 2. /. (2. ** (float (18-zoom))) in
let normed_size = 2. /. (2. ** (float (zoom_max-zoom))) in
let normed_lat = norm_lat lat in
let normed_lat' = normed_lat +. normed_size in
let lat' = inv_norm_lat normed_lat' in
@@ -79,7 +80,7 @@ let gm_pos_and_scale = fun keyholeString tLat latHeight tLon lonWidth ->
(** Returns a keyhole string for a longitude (x), latitude (y), and zoom
for Google Maps (http://www.ponies.me.uk/maps/GoogleTileUtils.java) *)
let tile_of_geo = fun wgs84 zoom ->
let zoom = 18 - zoom in
let zoom = zoom_max - zoom in
(* first convert the lat lon to transverse mercator coordintes.*)
let lon = (Rad>>Deg)wgs84.posn_long in