fix bug (min_float <> -max_float)

This commit is contained in:
Pascal Brisset
2009-08-31 16:22:14 +00:00
parent a9d144d583
commit b8b0d30029
2 changed files with 3 additions and 3 deletions
+2 -2
View File
@@ -273,8 +273,8 @@ let write_kml = fun plot log_name values ->
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
+1 -1
View File
@@ -120,7 +120,7 @@ class plot = fun ~size ~width ~height ~packing () ->
method reset () =
if auto_scale then begin
min <- max_float;
max <- min_float
max <- -. max_float
end;
Hashtbl.iter (fun _ a ->
a.index <- 0;