Discussion :

[RosaliRosali]

Bonjour,

avec l'aide du module Graphics, je voudrais faire le suivant:

Pendant que le programme s'exécute (c'est une fonction récursive), si l'utilisateur appuie sur une touche, j'ajoute qqc au graphique sur l'écran. Lorsqu'il appuie une deuxième fois, cet affichage supplémentaire s'arrête.

Malheureusement, je ne comprends pas du tout comment utiliser les fonctions read_key, key_pressed et wait_next_event et les types event et status.
La documentation : http://caml.inria.fr/pub/docs/manual...tml#TYPEstatus

Avez-vous un exemple du code qui fait qqc pareil, ou pourriez-vous esquisser ce qu'il faut faire?

Merci.
Rosali

[turnoom]

Voici comment faire exactement ce que tu désires non pas avec le module Graphics, mais avec la Xlib, juste pour le plaisir de montrer que faire du X n'est pas si difficile ;-)

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
43
44
45
46
47
48
49
 
#load "unix.cma"
#load "Xlib.cma"
#load "keysym_match.cma"
open Keysym_match
open Xlib
 
let f v = if v > 10 then 1 else succ v
 
let () =
  let d = xOpenDisplay "" in
  let s = xDefaultScreen d in
  let w = xCreateSimpleWindow d (xRootWindow d s) 10 10 100 100 1
                                (xBlackPixel d s) (xWhitePixel d s) in
  xSelectInput d w [ExposureMask; KeyPressMask];
  xMapWindow d w;
 
  let draw_it v =
    xDrawString d w (xDefaultGC d s) 20 20 (string_of_int v)
  in
 
  let rec main_fold f v p =
    if xPending d = 0
    then begin
      Unix.sleep 1;
      xClearWindow d w;
      if p then draw_it v;
      main_fold f (f v) p
    end
    else
      match xEventKind(xNextEventFun d) with
      | XExposeEvent _ ->
          if p then draw_it v;
          main_fold f v p
      | XKeyPressedEvent event ->
          begin match keysym_var(xLookupKeysym event 0) with
          (* exit if q or escape are pressed *)
          | XK_q | XK_Q | XK_Escape -> ()  (* exit main loop *)
          | XK_p | XK_P ->  (* Key 'P' pressed *)
              main_fold f v (not p)
          | _ ->
              main_fold f v p
          end
 
      | _ -> main_fold f v p
  in
  main_fold f 1 true;
  xCloseDisplay d;
;;

voici l'explication du code:
- la fonction "recursive" est la fonction "f" qui incrémente juste sa valeur d'entrée et la remet a zéro si elle dépasse une certaine valeur.
- xPending regarde le nombre d'évenements pour la fenêtre dans la queue et si il n'y en a aucun, execute (f v), le résultat de (f v) est passé comme prochaine valeur de v, en ce sens la récursion est faite à l'extérieur de la fonction (f)
- la variable (p) indique si on doit afficher quelquechose ou pas, si la touche 'P' est enfoncée, ce booléen est inversé.
- XExposeEvent c'est si la fenêtre a été reduite puis resortie
- avec 'Q' ou escape on sort de la boucle principale "main_fold"
- le (Unix.sleep 1) c'est pour ralentir ma boucle, mais tu voudras surement l'enlever.

Pour l'adapter à tes besoins si tu souhaites dessiner un graphique, c'est très simple il suffit d'utiliser les foncitons pour dessiner des traits ou des
rectangles:
http://www.linux-nantes.org/~fmonnie...html#3_Drawing

et pour changer la couleur ou le style comme dessiner en pointillé:
http://www.linux-nantes.org/~fmonnie...raphicsContext

le module Xlib est ici:
http://www.linux-nantes.org/~fmonnier/OCaml/Xlib/
il fonctionne sous Unix (Linux, BSD, MacOSX)