Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-31 03:57:45 +08:00
Code Issues Actions 29 Packages Projects Releases Wiki Activity

flight_time

Browse Source
This commit is contained in:
Pascal Brisset
2005-08-18 06:01:28 +00:00
parent 51cb0b052e
commit 0ca3a0147a
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/tmtc/receive.ml
+6 -2
View File
@@ -116,7 +116,8 @@ type aircraft = {
inflight_calib : inflight_calib;
infrared : infrared;
fbw : fbw;
svinfo : svinfo array
svinfo : svinfo array;
mutable flight_time : int
}
(** The aircrafts store *)
@@ -187,6 +188,7 @@ let log_and_parse = fun log ac_name a msg values ->
a.cur_stage <- ivalue "cur_stage"
| "BAT" ->
a.throttle <- fvalue "desired_gaz" /. 9600. *. 100.;
a.flight_time <- ivalue "flight_time";
a.rpm <- a.throttle *. 100.;
a.bat <- fvalue "voltage" /. 10.
| "PPRZ_MODE" ->
@@ -318,6 +320,7 @@ let send_aircraft_msg = fun ac ->
Ground_Pprz.message_send my_id "FLIGHT_PARAM" values;
let values = ["ac_id", Pprz.String ac;
"flight_time", Pprz.Int a.flight_time;
"cur_block", Pprz.Int a.cur_block;
"cur_stage", Pprz.Int a.cur_stage;
"target_east", f (a.nav_ref_east+.a.desired_east);
@@ -357,7 +360,8 @@ let new_aircraft = fun id ->
inflight_calib = { if_mode = 1 ; if_val1 = 0.; if_val2 = 0.};
infrared = infrared_init;
fbw = { rc_status = "???"; rc_mode = "???" };
svinfo = Array.create gps_nb_channels svinfo_init
svinfo = Array.create gps_nb_channels svinfo_init;
flight_time = 0;
}
let register_aircraft = fun name a ->