Lettres plus pratiques en mode insertion

diff --git a/automata/automata/brain.ml b/automata/automata/brain.ml
index acbe0ca0cf3f5017cbd0ce57c12177fc34307d90..cce8858049720277584a48e40c89166f2eed21f6 100644 (file)
--- a/automata/automata/brain.ml
+++ b/automata/automata/brain.ml
@@ -45,12 +45,12 @@ let color = function
 let default = Off
 
 let of_char = function
-        | 'D' -> Some Off
-        | 'A' -> Some On
-        | 'Y' -> Some Dying
+        | 'd' -> Some Off
+        | 'b' -> Some On
+        | 'a' -> Some Dying
         | _ -> None
 
 let to_char = function
-        | Off -> 'D'
-        | On -> 'A'
-        | Dying -> 'Y'
+        | Off -> 'd'
+        | On -> 'b'
+        | Dying -> 'a'

diff --git a/automata/automata/life.ml b/automata/automata/life.ml
index 3f39d56d0c75c67be1fe780cf69fc92435564baa..2aa7e1a03ace4b7c6868829b1343c5efeeec2228 100644 (file)
--- a/automata/automata/life.ml
+++ b/automata/automata/life.ml
@@ -40,10 +40,10 @@ let color = function
 let default = Dead
 
 let of_char = function
-        | 'D' -> Some Dead
-        | 'A' -> Some Alive
+        | 'd' -> Some Dead
+        | 'a' -> Some Alive
         | _ -> None
 
 let to_char = function
-        | Dead -> 'D'
-        | Alive -> 'A'
+        | Dead -> 'd'
+        | Alive -> 'a'

diff --git a/automata/automata/maze.ml b/automata/automata/maze.ml
index 35c0d86c08e25fa49ab0b37038392cea9eb39356..f10864f8822c529b0ee7a6cae2ba39f1c463bb98 100644 (file)
--- a/automata/automata/maze.ml
+++ b/automata/automata/maze.ml
@@ -40,10 +40,10 @@ let color = function
 let default = Sol
 
 let of_char = function
-        | 'S' -> Some Sol
-        | 'M' -> Some Mur
+        | 's' -> Some Sol
+        | 'm' -> Some Mur
         | _ -> None
 
 let to_char = function
-        | Sol -> 'S'
-        | Mur -> 'M'
+        | Sol -> 's'
+        | Mur -> 'm'

diff --git a/automata/automata/wireworld.ml b/automata/automata/wireworld.ml
index f8c64ae255a4333092d0a3f3ecc3cb57419ec6be..d4e972803557eac0a4dcd626dd4ad64e0ed574fa 100644 (file)
--- a/automata/automata/wireworld.ml
+++ b/automata/automata/wireworld.ml
@@ -47,14 +47,14 @@ let color = function
 let default = Empty
 
 let of_char = function
-        | '0' -> Some Empty
-        | 'C' -> Some Conductor
-        | 'H' -> Some Head
-        | 'T' -> Some Tail
+        | 'v' -> Some Empty
+        | 'c' -> Some Conductor
+        | 'h' -> Some Head
+        | 't' -> Some Tail
         | _ -> None
 
 let to_char = function
-        | Empty -> '0'
-        | Conductor -> 'C'
-        | Head -> 'H'
-        | Tail -> 'T'
+        | Empty -> 'v'
+        | Conductor -> 'c'
+        | Head -> 'h'
+        | Tail -> 't'