This commit was manufactured by cvs2svn to create branch

[helm.git] / helm / DEVEL / lablgtk / lablgtk_20000829-0.1.0 / examples / GL / simple.ml

diff --git a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/simple.ml b/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/simple.ml
deleted file mode 100644 (file)
index ea6ebde..0000000
--- a/helm/DEVEL/lablgtk/lablgtk_20000829-0.1.0/examples/GL/simple.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(* $Id$ *)
-
-open GMain
-
-let main () =
-  let w = GWindow.window ~title:"LablGL/Gtk" () in
-  w#connect#destroy ~callback:Main.quit;
-  let area =
-    GlGtk.area [`RGBA;`DEPTH_SIZE 1] ~width:500 ~height:500 ~packing:w#add () in
-  area#connect#realize ~callback:
-    begin fun () ->
-      GlMat.mode `projection;
-      GlMat.load_identity ();
-      GlMat.ortho ~x:(-1.0,1.0) ~y:(-1.0,1.0) ~z:(-1.0,1.0);
-    end;
-  area#connect#display ~callback:
-    begin fun () ->
-      GlClear.color (0.0, 0.0, 0.0);
-      GlClear.clear [`color];
-      GlDraw.color (1.0, 1.0, 1.0);
-      GlDraw.begins `polygon;
-      GlDraw.vertex ~x:(-0.5) ~y:(-0.5) ();
-      GlDraw.vertex ~x:(-0.5) ~y:(0.5) ();
-      GlDraw.vertex ~x:(0.5) ~y:(0.5) ();
-      GlDraw.vertex ~x:(0.5) ~y:(-0.5) ();
-      GlDraw.ends ();
-      Gl.flush ()
-    end;
-  Timeout.add ~ms:10000 ~callback:(fun () -> w#destroy ();false);
-  w#show ();
-  Main.main ()
-
-let _ = main ()