Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-06-07 00:53:41 +08:00
Code Issues Actions 25 Packages Projects Releases Wiki Activity

taking into account lat0 and lon0 in deg mis sec

Browse Source
This commit is contained in:
Pascal Brisset
2008-08-31 14:32:03 +00:00
parent 7993ce825c
commit 674164fd02
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/tmtc/kml.ml
+7 -3
View File
@@ -86,11 +86,15 @@ let horiz_mode =
[ data "altitudeMode" "absolute";
data "coordinates" ""]]
let georef_of_xml = fun xml ->
let lat0 = Latlong.deg_of_string (ExtXml.attrib xml "lat0")
and lon0 = Latlong.deg_of_string (ExtXml.attrib xml "lon0") in
{ posn_lat = (Deg>>Rad)lat0; posn_long = (Deg>>Rad)lon0 }
let flight_plan = fun ac_name fp ->
let lat0 = ExtXml.float_attrib fp "lat0"
and lon0 = ExtXml.float_attrib fp "lon0"
let geo0 = georef_of_xml fp
and alt0 = ExtXml.attrib fp "alt" in
let utm0 = utm_of WGS84 {posn_lat=(Deg>>Rad)lat0; posn_long=(Deg>>Rad)lon0} in
let utm0 = utm_of WGS84 geo0 in
let xml_waypoints = Xml.children (ExtXml.child fp "waypoints") in
let array_waypoints = Array.of_list xml_waypoints in
(* Index the waypoints for further access *)