[paparazzi-commits] [4504] fix bug in average and stdev display

[Pascal Brisset]

Revision: 4504
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4504
Author:   hecto
Date:     2010-01-26 18:25:55 +0000 (Tue, 26 Jan 2010)
Log Message:
-----------
 fix bug in average and stdev display

Modified Paths:
--------------
    paparazzi3/trunk/sw/logalizer/plotter.ml

Modified: paparazzi3/trunk/sw/logalizer/plotter.ml
===================================================================
--- paparazzi3/trunk/sw/logalizer/plotter.ml    2010-01-26 17:31:50 UTC (rev 
4503)
+++ paparazzi3/trunk/sw/logalizer/plotter.ml    2010-01-26 18:25:55 UTC (rev 
4504)
@@ -31,7 +31,7 @@
 (* Fixme: find something more basic than adjustment *)
 let set_float_value = fun (a:GData.adjustment) v ->
   let lower = Pervasives.min a#lower v
-  and upper = Pervasives.max a#upper v in
+  and upper = Pervasives.max a#upper v +. a#step_increment in
   a#set_bounds ~lower ~upper ();
   a#set_value v
 
@@ -124,6 +124,8 @@
       end;
       Hashtbl.iter (fun _ a ->
        a.index <- 0;
+       a.average#set_value 0.;
+       a.stdev#set_value 0.;
        for i = 0 to Array.length a.array - 1 do a.array.(i) <- None done)
        curves