Bonjour ! Voici ma fonction :
Fonction faisant clignoter une petite balle rose ^^
(Passionnant les premiers de graphique a la fac :p)
Le soucis que j'ai est que lors du premier appel cela fonctionne parfaitement
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 let rec Clignote_Key (x,y) = begin set_color white; fill_circle x y 10; delay(38); set_color rose; fill_circle x y 10; delay(38); let a= wait_next_event [Key_pressed;Poll] in if a.keypressed then () else Clignote_Key(x,y) end;;
Mais lorsque j'essai de le faire une nouvelle fois (sans fermer caml) caml me renvoi comme réplique directement unit() ... je crois savoir que cela vien du fait qu'il prend toujours en compte mon key_pressed comme une touche enfoncé mais je ne sais pas comment y remédié.
Merci de m'aider ^^
Partager