From 4bb07ffa50c4e888aaef68d58d0563a6a006c836 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Am=C3=A9lia=20Coutard-Sander?= <git@ameliathe1st.gay>
Date: Sun, 12 Jan 2025 03:34:58 +0100
Subject: [PATCH] Lettres plus pratiques en mode insertion

---
 automata/automata/brain.ml     | 12 ++++++------
 automata/automata/life.ml      |  8 ++++----
 automata/automata/maze.ml      |  8 ++++----
 automata/automata/wireworld.ml | 16 ++++++++--------
 4 files changed, 22 insertions(+), 22 deletions(-)

diff --git a/automata/automata/brain.ml b/automata/automata/brain.ml
index 10e0d44..8683b58 100644
--- 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 85d6451..acd0926 100644
--- 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 69f2af1..9bbb0d4 100644
--- 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 fdd5f70..e45d357 100644
--- 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'
-- 
2.46.0