From 5d7bb17003834cc07dafc75023f279f3cd583212 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Am=C3=A9lia=20Coutard-Sander?= <git@ameliathe1st.gay>
Date: Mon, 6 Jan 2025 00:19:40 +0100
Subject: [PATCH] =?utf8?q?Suppression=20de=20l'automate=20continu,=20il=20?=
 =?utf8?q?n'=C3=A9tait=20pas=20fun?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 automata/automata.ml      |  1 -
 automata/automata/cont.ml | 48 ---------------------------------------
 2 files changed, 49 deletions(-)
 delete mode 100644 automata/automata/cont.ml

diff --git a/automata/automata.ml b/automata/automata.ml
index eaa8467..2d4dcb9 100644
--- a/automata/automata.ml
+++ b/automata/automata.ml
@@ -160,6 +160,5 @@ let automata =
           (module Life : Automaton);
           (module Wireworld : Automaton);
           (module Brain : Automaton);
-          (module Cont : Automaton);
           (module Maze : Automaton);
         ]
diff --git a/automata/automata/cont.ml b/automata/automata/cont.ml
deleted file mode 100644
index 0d0ec9e..0000000
--- a/automata/automata/cont.ml
+++ /dev/null
@@ -1,48 +0,0 @@
-(* Copyright 2024 Amélia COUTARD <https://www.ameliathe1st.gay>.
- *
- * This file from the program cells is free software: you can redistribute it and/or
- * modify it under the terms of the GNU Affero General Public License as published by
- * the Free Software Foundation, either version 3 of the License, or (at your option)
- * any later version.
- *
- * This program is distributed in the hope that it will be useful, but WITHOUT ANY
- * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
- * PARTICULAR PURPOSE. See the GNU Affero General Public License for more details.
- *
- * You should have received a copy of the GNU Affero General Public License along
- * with this program. If not, see <https://www.gnu.org/licenses/>.
- *)
-
-let name = "Automate continu random"
-
-type t = float
-
-type 'a neighbours = 'a list
-
-let neighbours = [(0, 0); (-1, 0); (0, -1); (0, 1); (1, 0)]
-
-let map = List.map
-
-let fold_left = List.fold_left
-
-let iter = List.iter
-
-let transition l = List.fold_left ( +. ) 0. l /. 5.
-
-let default = 0.
-
-let prev c = c -. 1.
-
-let next c = c +. 1.
-
-let color c =
-        let v =
-                (if c > 0. then (512. /. (1. +. Float.exp (-.c))) -. 256. else (512. /. (1. +. Float.exp c)) -. 256.)
-                |> int_of_float
-                |> char_of_int
-        in
-        if c > 0. then (v, '\x00', '\x00') else ('\x00', '\x00', v)
-
-let of_string = float_of_string
-
-let to_string = string_of_float
-- 
2.46.0