Add libglade2 needed for virt-viewer
[fedora-mingw.git] / ocaml / test3.ml
1 (* From: http://www.ocaml-tutorial.org/the_structure_of_ocaml_programs *)
2
3 open Graphics;;
4
5 let () =
6   open_graph " 640x480";
7   for i = 12 downto 1 do
8     let radius = i * 20 in
9     set_color (if (i mod 2) = 0 then red else yellow);
10     fill_circle 320 240 radius
11   done;
12   ignore (read_line ())