1 files changed, 0 insertions, 67 deletions
diff --git a/otherlibs/labltk/examples_camltk/eyes.ml b/otherlibs/labltk/examples_camltk/eyes.ml
deleted file mode 100644
index 5666c69c55..0000000000
--- a/otherlibs/labltk/examples_camltk/eyes.ml
+++ /dev/null
@@ -1,67 +0,0 @@
-(***********************************************************************)
-(*                                                                     *)
-(*                 MLTk, Tcl/Tk interface of Objective Caml            *)
-(*                                                                     *)
-(*    Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis    *)
-(*               projet Cristal, INRIA Rocquencourt                    *)
-(*            Jacques Garrigue, Kyoto University RIMS                  *)
-(*                                                                     *)
-(*  Copyright 2002 Institut National de Recherche en Informatique et   *)
-(*  en Automatique and Kyoto University.  All rights reserved.         *)
-(*  This file is distributed under the terms of the GNU Library        *)
-(*  General Public License, with the special exception on linking      *)
-(*  described in file LICENSE found in the Objective Caml source tree. *)
-(*                                                                     *)
-(***********************************************************************)
-
-(* The eyes of Caml (CamlTk) *)
-
-open Camltk;;
-
-let _ =
-  let top = opentk () in
-
-  let fw = Frame.create top [] in
-  pack [fw] [];
-  let c = Canvas.create fw [Width (Pixels 200); Height (Pixels 200)] in
-  let create_eye cx cy wx wy ewx ewy bnd =
-    let o2 =
-       Canvas.create_oval c
-        (Pixels (cx - wx)) (Pixels (cy - wy))
-        (Pixels (cx + wx)) (Pixels (cy + wy))
-        [Outline (NamedColor "black"); Width (Pixels 7);
-         FillColor (NamedColor "white")]
-    and o =
-      Canvas.create_oval c
-       (Pixels (cx - ewx)) (Pixels (cy - ewy))
-       (Pixels (cx + ewx)) (Pixels (cy + ewy))
-       [FillColor (NamedColor "black")] in
-    let curx = ref cx
-    and cury = ref cy in
-    bind c [[], Motion]
-      (BindExtend ([Ev_MouseX; Ev_MouseY],
-        (fun e ->
-          let nx, ny =
-            let xdiff = e.ev_MouseX - cx 
-            and ydiff = e.ev_MouseY - cy in
-            let diff = sqrt ((float xdiff /. (float wx *. bnd)) ** 2.0 +. 
-                               (float ydiff /. (float wy *. bnd)) ** 2.0) in
-            if diff > 1.0 then
-              truncate ((float xdiff) *. (1.0 /. diff)) + cx,
-              truncate ((float ydiff) *. (1.0 /. diff)) + cy
-            else
-              e.ev_MouseX, e.ev_MouseY
-          in
-          Canvas.move c o (Pixels (nx - !curx)) (Pixels (ny - !cury));
-          curx := nx;
-          cury := ny)))
-  in
-  create_eye 60 100 30 40 5 6 0.6;
-  create_eye 140 100 30 40 5 6 0.6;
-  pack [c] []
-
-let _ = Printexc.print mainLoop ()
-
-
-
-