From: Amélia Coutard-Sander <git@ameliathe1st.gay>
Date: Fri, 13 Dec 2024 10:42:32 +0000 (+0100)
Subject: Moyen plus facile de dessiner des lignes
X-Git-Url: https://git.ameliathe1st.gay/?a=commitdiff_plain;h=941a5888c1c4bbc3cea28d063896750a3e20218e;p=cells.git

Moyen plus facile de dessiner des lignes
---

diff --git a/bin/main.ml b/bin/main.ml
index dee50bd..9169e02 100644
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -56,6 +56,18 @@ let inputs
           | 'q' -> { inter with x = inter.x - 1 }
           | 's' -> { inter with y = inter.y - 1 }
           | 'd' -> { inter with x = inter.x + 1 }
+          | 'Z' ->
+                  Automata.set inter.x inter.y inter.current board;
+                  { inter with y = inter.y + 1 }
+          | 'Q' ->
+                  Automata.set inter.x inter.y inter.current board;
+                  { inter with x = inter.x - 1 }
+          | 'S' ->
+                  Automata.set inter.x inter.y inter.current board;
+                  { inter with y = inter.y - 1 }
+          | 'D' ->
+                  Automata.set inter.x inter.y inter.current board;
+                  { inter with x = inter.x + 1 }
           | '\t' -> { inter with running = true }
           | _ -> inter
         else inter