bonsoir,
j'ai un petit pbm, j'ouvre le module graphics:
et voici ma fonction d'affichage:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 open Graphics;; open_graph " 800x600";; set_window_title "Quadtrees";;
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!!!
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) ;;
si vous avez une suggestion...
Merci.
Partager