Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-30 11:37:06 +08:00
Code Issues Actions 29 Packages Projects Releases Wiki Activity

Fix bug in of_utm (invalid_arg interval not large enough)

Browse Source
This commit is contained in:
Pascal Brisset
2008-01-27 21:48:08 +00:00
parent dcb8f3ad37
commit 0803357d41
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/lib/ocaml/latlong.ml
+1 -1
View File
@@ -304,7 +304,7 @@ let of_utm' geo =
let c = serie5 coeff_proj_mercator_inverse e in let c = serie5 coeff_proj_mercator_inverse e in
fun { utm_zone = f; utm_x = x; utm_y = y } -> fun { utm_zone = f; utm_x = x; utm_y = y } ->
if x < 0. || x > 1e6 || y < -10e6 || y > 10e6 || f < 0 || f > 60 then if x < 0. || x > 1e7 || y < -1e7 || y > 1e7 || f < 0 || f > 60 then
invalid_arg "Latlong.of_utm"; invalid_arg "Latlong.of_utm";
let lambda_c = (Deg>>Rad) (float (6 * f - 183)) in let lambda_c = (Deg>>Rad) (float (6 * f - 183)) in