Discussion :

[Looki89]

Bonjour,

J'ai déjà utilisé Graphics (pour Ocaml) plusieurs fois sans soucis. Mais lorsque je veux juste tester un petit truc, il ne lance pas l'exécutable (je suis sous Windows XP). Voici donc l'erreur obtenue :

Code :

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

1
2
3
ocamlc graphics.cma foo.ml -o bar.exe
bar
Fatal error: exception Graphics.Graphic_failure("graphic screen not opened")

Pour ce code :

Code :

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

1
2
3
4
5
6
7
8
9
open Graphics
 
 
let draw = moveto 0 600;
           lineto 600 700 
 
let () = open_graph "700x700"; 
         draw;
         ignore(read_key())

Si vous avez la solution du problème, cela m'intéresse .

Merci.

[InOCamlWeTrust]

De mémoire, il faut impérativement sous Windows rajouter un espace au début de la chaîne " 700x700". Sinon, ça ne marche pas.

http://caml.inria.fr/pub/docs/manual...manual039.html

[Cacophrene]

Bonjour,

De mémoire, il faut impérativement sous Windows rajouter un espace au début de la chaîne " 700x700". Sinon, ça ne marche pas.

Chez moi, sous Win XP lancé avec VirtualBox et OCaml 3.11, open_graph marche sans l'espace. En revanche, dans le code donné par Looki89, draw n'est pas une fonction, donc il y a un lineto/moveto avant l'ouverture de la fenêtre graphique, et c'est cela qui entraîne une erreur. Ça devrait marcher ainsi (en rouge les modifications à apporter) :

Code :

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

1
2
3
4
5
6
7
8
9
let draw () =
  moveto 0 600;
  lineto 600 700 

let () =
  open_graph "700x700"; 
  draw ();
  ignore (read_key())

Cordialement,
Cacophrène

[Looki89]

En effet, cela ne venait pas de l'espace dans la chaîne de caractère mais bien du fait que draw n'était pas une fonction, c'est donc corriger, merci beaucoup.