[paparazzi-commits] [4030] fix bug (min_float <> -max_float)

[Pascal Brisset]

Revision: 4030
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4030
Author:   hecto
Date:     2009-08-31 16:22:14 +0000 (Mon, 31 Aug 2009)
Log Message:
-----------
 fix bug (min_float <> -max_float)

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

Modified: paparazzi3/trunk/sw/logalizer/plot.ml
===================================================================
--- paparazzi3/trunk/sw/logalizer/plot.ml       2009-08-30 19:39:14 UTC (rev 
4029)
+++ paparazzi3/trunk/sw/logalizer/plot.ml       2009-08-31 16:22:14 UTC (rev 
4030)
@@ -273,8 +273,8 @@
   let l = ref [] in
   let t_min = plot#min_x ()
   and t_max = plot#max_x () in
-  let t_min = if t_min = max_float then min_float else t_min in
-  let t_max = if t_max = min_float then max_float else t_max in
+  let t_min = if t_min = max_float then -. max_float else t_min in
+  let t_max = if t_max = -. max_float then max_float else t_max in
   for i = 0 to Array.length xs - 1 do
     let t = fst xs.(i) in
     if t_min <= t && t < t_max then

Modified: paparazzi3/trunk/sw/logalizer/plotter.ml
===================================================================
--- paparazzi3/trunk/sw/logalizer/plotter.ml    2009-08-30 19:39:14 UTC (rev 
4029)
+++ paparazzi3/trunk/sw/logalizer/plotter.ml    2009-08-31 16:22:14 UTC (rev 
4030)
@@ -120,7 +120,7 @@
     method reset () =
       if auto_scale then begin
        min <- max_float;
-       max <- min_float
+       max <- -. max_float
       end;
       Hashtbl.iter (fun _ a ->
        a.index <- 0;