From 941a5888c1c4bbc3cea28d063896750a3e20218e Mon Sep 17 00:00:00 2001 From: =?utf8?q?Am=C3=A9lia=20Coutard-Sander?= Date: Fri, 13 Dec 2024 11:42:32 +0100 Subject: [PATCH] Moyen plus facile de dessiner des lignes --- bin/main.ml | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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 -- 2.46.0