Changement des couleurs de l'automate continu

diff --git a/automata/automata/cont.ml b/automata/automata/cont.ml
index 88496ec739285261aa6053cadfd0990e87bad0ae..64c33088e36ff1f998188663a8d8c955b13fbc7b 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)