Changement des couleurs de l'automate continu

diff --git a/automata/automata/cont.ml b/automata/automata/cont.ml
index 194b0346a0878f538dabc3da3f429b685d4a3bb0..459ae58d2a81b34dd5fb5123818a21a8e73d36d4 100644 (file)
--- a/automata/automata/cont.ml
+++ b/automata/automata/cont.ml
@@ -28,5 +28,9 @@ let prev c = c -. 1.
 let next c = c +. 1.
 
 let color c =
-        let v = 256. /. (1. +. Float.exp (-.c)) |> int_of_float |> char_of_int in
-        (v, v, v)
+        let v =
+                (if c > 0. then (512. /. (1. +. Float.exp (-.c))) -. 256. else (512. /. (1. +. Float.exp c)) -. 256.)
+                |> int_of_float
+                |> char_of_int
+        in
+        if c > 0. then (v, '\x00', '\x00') else ('\x00', '\x00', v)