Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-30 19:47:50 +08:00
Code Issues Actions 27 Packages Projects Releases Wiki Activity

SET mode more calib contrast

Browse Source
This commit is contained in:
Pascal Brisset
2005-08-20 19:30:31 +00:00
parent 102873b7de
commit 205f39369f
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/ground_segment/tmtc/receive.ml
+3 -2
View File
@@ -197,7 +197,7 @@ let logger = fun () ->
let basename = sprintf "%02d_%02d_%02d__%02d_%02d_%02d" (d.U.tm_year mod 100) (d.U.tm_mon+1) (d.U.tm_mday) (d.U.tm_hour) (d.U.tm_min) (d.U.tm_sec) in let basename = sprintf "%02d_%02d_%02d__%02d_%02d_%02d" (d.U.tm_year mod 100) (d.U.tm_mon+1) (d.U.tm_mday) (d.U.tm_hour) (d.U.tm_min) (d.U.tm_sec) in
if not (Sys.file_exists logs_path) then begin if not (Sys.file_exists logs_path) then begin
printf "Creating '%s'\n" logs_path; flush stdout; printf "Creating '%s'\n" logs_path; flush stdout;
Unix.mkdir logs_path 0o640 Unix.mkdir logs_path 0o755
end; end;
let log_name = sprintf "%s.log" basename let log_name = sprintf "%s.log" basename
and data_name = sprintf "%s.data" basename in and data_name = sprintf "%s.data" basename in
@@ -286,7 +286,8 @@ let log_and_parse = fun log ac_name a msg values ->
| "CALIB_START" -> | "CALIB_START" ->
a.infrared.contrast_status <- "WAITING" a.infrared.contrast_status <- "WAITING"
| "CALIB_CONTRAST" -> | "CALIB_CONTRAST" ->
a.infrared.contrast_value <- ivalue "adc" a.infrared.contrast_value <- ivalue "adc";
a.infrared.contrast_status <- "SET"
| "SETTINGS" -> | "SETTINGS" ->
a.inflight_calib.if_val1 <- fvalue "slider_1_val"; a.inflight_calib.if_val1 <- fvalue "slider_1_val";
a.inflight_calib.if_val2 <- fvalue "slider_2_val"; a.inflight_calib.if_val2 <- fvalue "slider_2_val";