Mirrors_Framework/paparazzi
1
0
Fork 0
mirror of https://github.com/paparazzi/paparazzi.git synced 2026-05-31 20:38:27 +08:00
Code Issues Actions 26 Packages Projects Releases Wiki Activity

[plotter] add a range of curves to plotter if value is an array

Browse Source
This commit is contained in:
Gautier Hattenberger
2014-12-09 14:12:24 +01:00
parent 587cba0b83
commit f0306374a7
2 changed files with 32 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
sw/logalizer/plotter.ml
+22 -1
View File
@@ -517,7 +517,28 @@ let rec plot_window = fun window ->
let factor = Ocaml_tools.affine_transform factor#text in
try
let name = data#data in
add_curve ~factor name
let (sender, class_name, msg_name, field_descr, (a',b')) = parse_dnd name in
(* test if several curves need to be added with x[min-max] format *)
if Str.string_match (Str.regexp "\\([^\\.]+\\)\\[\\([0-9]+\\)-\\([0-9]+\\)\\]") field_descr 0 then
begin
(* get name and range in correct order *)
let field_name = Str.matched_group 1 field_descr
and min_range = int_of_string (Str.matched_group 2 field_descr)
and max_range = int_of_string (Str.matched_group 3 field_descr) in
let min_range, max_range = if min_range > max_range then
max_range, min_range
else
min_range, max_range
in
(* add all curves *)
for i = min_range to max_range do
let offset = if a' <> 0. then sprintf "+%.2f" b' else "" in
let name = (sprintf "%s:%s:%s:%s[%d]:%f%s" sender class_name msg_name field_name i a' offset) in
add_curve ~factor name
done
end
else
add_curve ~factor name
with
exc -> prerr_endline (Printexc.to_string exc)
in