Vision du monde "infini"

Un mensonge pour l'instant, le monde fait toujours 64×64 cellules, mais
j'adapte l'interface graphique pour qu'elle marche sans changements
quand j'étendrai le système à un monde infini.

diff --git a/bin/main.ml b/bin/main.ml
index a8060eb340390602e4f595eb8e29a5fa49be9513..dee50bd6092e0b4b5f4eefbd61c744a24bdc8465 100644 (file)
--- a/bin/main.ml
+++ b/bin/main.ml
@@ -21,8 +21,8 @@ let render
     (board : t Automata.board)
     (inter : t interface_state) =
         let module M = (val m) in
-        for x = 0 to 63 do
-          for y = 0 to 63 do
+        for x = 0 to (Graphics.size_x () / 16) + 1 do
+          for y = 0 to (Graphics.size_y () / 16) + 1 do
             Graphics.set_color
               (let r, g, b = M.color (Automata.get x y board) in
                Graphics.rgb (int_of_char r) (int_of_char g) (int_of_char b));