Discussion :

[Fractal LLG]

Bonjour
J'aimerais faire le jeu de la vie en OCaml.
Pour ça j'ai fait le bête programme suivant, le plus simple qui me soit venu à l'esprit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#load "graphics.cma";;
Graphics.open_graph "";;
Graphics.auto_synchronize false;;
 
let vie col = (col = Graphics.black) || (col = Graphics.red);; (* Renvoie true si la cellule était vivante à ce tour *)
let mort col = (col = Graphics.white) || (col = Graphics.green);; (* Renvoie true si la cellule était morte à ce tour *)
 
Graphics.set_color Graphics.black;;
Graphics.plot 3 15;;
Graphics.plot 4 14;;
Graphics.plot 4 13;;             (* dessine un vaisseau *)
Graphics.plot 3 13;;
Graphics.plot 2 13;;
for k = 2 to 100 do
  for i = 2 to 40 do
    for j = 2 to 40 do
      let nb = ref 0 in
      if vie (Graphics.point_color (i-1) j) then incr nb;
      if vie (Graphics.point_color (i+1) j) then incr nb;
      if vie (Graphics.point_color (i-1) (j-1)) then incr nb;
      if vie (Graphics.point_color (i-1) (j+1)) then incr nb;
      if vie (Graphics.point_color (i+1) (j-1)) then incr nb;
      if vie (Graphics.point_color (i+1) (j+1)) then incr nb;
      if vie (Graphics.point_color i (j+1)) then incr nb;
      if vie (Graphics.point_color i (j-1)) then incr nb;
 
      if Graphics.point_color i j = Graphics.black then
	if !nb < 2 || !nb > 3 then (Graphics.set_color Graphics.red; Graphics.plot i j) else ()
      else
	if !nb = 3 then (Graphics.set_color Graphics.green; Graphics.plot i j) else ();
    done;
  done;
  for i = 2 to 40 do
    for j = 2 to 40 do
      if Graphics.point_color i j = Graphics.red then (Graphics.set_color Graphics.white; Graphics.plot i j);
      if Graphics.point_color i j = Graphics.green then (Graphics.set_color Graphics.black; Graphics.plot i j);
    done;
  done;
  Graphics.synchronize();
done;;
 
Graphics.close_graph();;

Mais le problème que je rencontre est celui de la rapidité.
En effet, là je travaille sur un carré de 40 pixels de côté, et il met déjà quasiment une seconde pour calculer une génération de plus, ce qui est un peu embêtant.
Auriez-vous quelque chose à me proposer pour en améliorer la rapidité? C'est sans doute possible de le faire aller bien plus vite.
Est-ce que travailler sur des tableaux plutôt que directement avec des Graphics.plot permettrait d'augmenter la vitesse?

EDIT : Et d'autre part, y a-t-il moyen de se débarrasser de ces "Graphics." qui traînent dans toutes les fonctions? J'ai essayé #use à toutes les sauces, mais impossible d'obtenir quelque chose.

Merci d'avance

Fractal

[gorgonite]

es-tu en mode compilé ou interactif ? si compilé, bytecode ou binaire ?

EDIT : Et d'autre part, y a-t-il moyen de se débarrasser de ces "Graphics." qui traînent dans toutes les fonctions? J'ai essayé #use à toutes les sauces, mais impossible d'obtenir quelque chose.

open Graphics ?

[Fractal LLG]

Je suis en mode interactif.

open Graphics ?

Ahh, oui, j'avais oublié, je croyais que c'était #use qu'il fallait utiliser

Fractal

[gasche]

À première vue, il y a une réponse simple à ton problème : découple ton problème (l'évolution d'un automate cellulaire) de sa représentation graphique.

Actuellement tu utilises un même élément (un tableau de couleurs) pour représenter les deux à la fois. C'est très mal. En effet, ton choix n'est pas du tout adapté pour les manipulations "métiers" (la gestion effective de l'automate) : pour savoir si une case est vivante, tu veux savoir si elle est vivante, et pas la couleur du pixel correspondant.

Fait une matrice de booléens (ou d'entiers si tu veux avoir plus de deux états, mais à première vue des booléens suffisent), manipule la comme une matrice de booléens (sans fonctions Graphics. toutes laides), et code indépendamment une fonction qui prend ta matrice et affiche à l'écran la représentation graphique correspondante.

Ainsi, tu auras découplé le problème et sa représentation graphique. Tu gagneras en simplicité du code, mais aussi en flexibilité (et si tu veux pouvoir changer de représentation ? de l'ASCII art en console, ou du postscript généré, ou un .gif ?), et probablement en performances (mais dans l'immédiat, avoir un code "simple et clair" est la priorité, les performances viendront ensuite).


PS : je ne voulais pas émettre un avis sur le sujet, mais maintenant que je suis dans la discussion je me permet de faire une remarque hors sujet (et caustique) : ton pseudo pue.

[Fractal LLG]

Oki, je vais faire ça pour voir si ça améliore la rapidité.
Je sais que les fonctions d'affichage prennent énormément de temps mais je pensais que travailler en double buffering serait aussi efficace qu'avec un tableau d'entiers.
Je regarde ce que ça donne

Merci

Fractal

[Garulfo]

Oki, je vais faire ça pour voir si ça améliore la rapidité.

Si jamais tu n'avais pas compris la remarque sous-entendue de Gorgonite : la compilation améliorera tes performances.

[Fractal LLG]

Si jamais tu n'avais pas compris la remarque sous-entendue de Gorgonite : la compilation améliorera tes performances.

Voui mais je sais pas comment il faut configurer Emacs pour qu'il compile et exécute au lieu de lancer l'interpréteur

Fractal

[gasche]

Tu peux le faire en ligne de commande à côté :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
ocamlc graphics.cma tonfichier.ml -o test_bytecode
ocamlopt graphics.cmxa tonfichier.ml -o test_natif

[Fractal LLG]

En effet, ça va nettement plus vite quand c'est compilé
(le fait de séparer le calcul de l'affichage avait déjà bien fait augmenter la rapidité)
Bon, maintenant vu que je suis flemmard, je vais essayer de configurer Emacs pour qu'il le fasse tout seul ^^

Merci à tous

Fractal