Moyen plus facile de dessiner des lignes

diff --git a/bin/main.ml b/bin/main.ml
index dee50bd6092e0b4b5f4eefbd61c744a24bdc8465..9169e02250bf9810b419c4d59b8a77d1e19ff08d 100644 (file)
--- 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