Discussion :

[camlienne]

bonsoir,

j'ai un petit pbm, j'ouvre le module graphics:

Code :

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

1
2
3
4
 
open Graphics;;
open_graph " 800x600";;
set_window_title "Quadtrees";;

et voici ma fonction d'affichage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
let rec affichage q x y h l = match q with
	Vide -> ()
	|Feuille((a,b),l) -> plot a b
	|Noeud(q1,q2,q3,q4) ->
		moveto (x+h/2) y; lineto (x+h/2) (y+l);
		moveto x (y+l/2); lineto (x+h) (y+l/2);
		affichage q1 (x+h/2) y (h/2) (l/2);
		affichage q2 (x+h/2) (y+l/2) (h/2) (l/2);
		affichage q3 x (y+l/2) (h/2) (l/2);
		affichage q4 x y (h/2) (l/2)
;;

je ne fais donc que des plot et je ne comprends pas pqoi ma fenêtre se referme sitôt ouvert, je n'ai pas fait de close_graph!!!
si vous avez une suggestion...

Merci.

[gasche]

Quand le programme est terminé (ie. il a finit de faire tous les calculs que tu lui as demandé, affichage compris), il s'arrête. Si tu n'as pas fait close_graph à ce moment là, il le fait automatiquement.

Il faut lui dire "hé quand t'as fini, je veux que tu attendes sans rien faire". Par exemple, rajoute tout à la fin de ton programme :

Code :

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

ignore (Graphics.read_key ())

Il se terminera dès que read_key sera terminé, c'est à dire quand tu auras appuyé sur une touche.

[camlienne]

merci beaucoup, ça commençait à me rendre folle! ^^