Moyen plus facile de dessiner des lignes

diff --git a/bin/main.ml b/bin/main.ml
index 9510f086b9ccfa4de8cf156e5b4097817758192f..8c026443cd4f9c8b1d2780be2e6bef1c9c028856 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