Plus besoin des graphismes pour les automates eux mêmes

Bien sûr, les graphismes restent nécessaires pour l'affichage.

diff --git a/automata/automata.ml b/automata/automata.ml
index 847918c1cac272771721460b55b651399a9dcfc8..639bcee1d86973e842699ce14c4f3b8b36966482 100644 (file)
--- a/automata/automata.ml
+++ b/automata/automata.ml
@@ -28,7 +28,7 @@ module type Automaton = sig
 
   val next : t -> t
 
-  val color : t -> Graphics.color
+  val color : t -> char * char * char
 end
 
 let automata = [(module Life : Automaton); (module Wireworld : Automaton)]

diff --git a/automata/automata.mli b/automata/automata.mli
index 59a2c624b73ecba496889db2386f629092c0abcf..40a67b384c128adc36e18f525fd9b4468fa51ec1 100644 (file)
--- a/automata/automata.mli
+++ b/automata/automata.mli
@@ -28,7 +28,7 @@ module type Automaton = sig
 
   val next : t -> t
 
-  val color : t -> Graphics.color
+  val color : t -> char * char * char
 end
 
 val automata : (module Automaton) list

diff --git a/automata/automata/life.ml b/automata/automata/life.ml
index 0ee74721e0fef2c4dcf2451261f807d9eebadf1f..570ca4b851d3d6f5a771355e009e30a29609b395 100644 (file)
--- a/automata/automata/life.ml
+++ b/automata/automata/life.ml
@@ -34,5 +34,5 @@ let next = function
         | Alive -> Dead
 
 let color = function
-        | Dead -> Graphics.rgb 0 0 31
-        | Alive -> Graphics.rgb 255 255 255
+        | Dead -> ('\x00', '\x00', '\x1F')
+        | Alive -> ('\xFF', '\xFF', '\xFF')

diff --git a/automata/automata/wireworld.ml b/automata/automata/wireworld.ml
index 023751c04ccf595f599df377da04e599a54601c7..9ca34515f49742fb5d78e130cd3951eb3bccd734 100644 (file)
--- a/automata/automata/wireworld.ml
+++ b/automata/automata/wireworld.ml
@@ -42,7 +42,7 @@ let next = function
         | Tail -> Empty
 
 let color = function
-        | Empty -> Graphics.rgb 0 0 31
-        | Conductor -> Graphics.rgb 191 191 0
-        | Head -> Graphics.rgb 191 0 0
-        | Tail -> Graphics.rgb 0 0 191
+        | Empty -> ('\x00', '\x00', '\x1F')
+        | Conductor -> ('\xBF', '\xBF', '\x00')
+        | Head -> ('\xBF', '\x00', '\x00')
+        | Tail -> ('\x00', '\x00', '\xBF')

diff --git a/automata/dune b/automata/dune
index c503e3a1950079c7beaa902ebbad497b145841a9..d1805a679caf3536a3fbb44cd97473c75f1308f9 100644 (file)
--- a/automata/dune
+++ b/automata/dune
@@ -1,5 +1,4 @@
 (include_subdirs unqualified)
 
 (library
- (name automata)
- (libraries graphics))
+ (name automata))