X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=ocaml%2Ftest3.ml;fp=ocaml%2Ftest3.ml;h=4d8b5e8664db7ed628d7a81dd473f90438e29abd;hb=beae95b189cffa0bf08ae4a3b6734ea639ae5297;hp=0000000000000000000000000000000000000000;hpb=1961efbf933f1e50a2b386c3668097b7a79be157;p=fedora-mingw.git

diff --git a/ocaml/test3.ml b/ocaml/test3.ml
new file mode 100644
index 0000000..4d8b5e8
--- /dev/null
+++ b/ocaml/test3.ml
@@ -0,0 +1,12 @@
+(* From: http://www.ocaml-tutorial.org/the_structure_of_ocaml_programs *)
+
+open Graphics;;
+
+let () =
+  open_graph " 640x480";
+  for i = 12 downto 1 do
+    let radius = i * 20 in
+    set_color (if (i mod 2) = 0 then red else yellow);
+    fill_circle 320 240 radius
+  done;
+  ignore (read_line ())