From 38cf58ac5e1adb38a1b99ea7cdda19ef7b5e12bf Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Mon, 24 May 2021 22:13:19 +0200
Subject: Refactor

---
 script.it/state/selection.ml | 71 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 71 insertions(+)
 create mode 100755 script.it/state/selection.ml

(limited to 'script.it/state/selection.ml')

diff --git a/script.it/state/selection.ml b/script.it/state/selection.ml
new file mode 100755
index 0000000..f5f135a
--- /dev/null
+++ b/script.it/state/selection.ml
@@ -0,0 +1,71 @@
+open StdLabels
+
+type 'a selection =
+  | Path of 'a
+  | Point of ('a * Path.Point.t)
+
+type t = int selection
+
+let find_selection
+  : int selection -> Outline.t list -> Outline.t selection option
+  = fun selection paths ->
+    match selection with
+    | Path id -> Option.map (fun p -> Path p) (Outline.find paths id)
+    | Point (id, pt) -> Option.map (fun p -> Point (p, pt)) (Outline.find paths id)
+
+let threshold = 20.
+
+let get_from_paths
+  : (float * float) -> Outline.t list -> float * (Gg.v2 * Outline.t * Path.Point.t * Path.Point.t) option
+  = fun position outlines ->
+    let point = Gg.V2.of_tuple position in
+    (* If the user click on a curve, select it *)
+    List.fold_left outlines
+      ~init:(threshold, None)
+      ~f:(fun (dist, selection) outline ->
+          match Path.Fixed.distance point outline.Outline.path with
+          | Some { closest_point ; distance; p0; p1 ; ratio} when distance < dist ->
+            ratio, Some (closest_point, outline, p0, p1)
+          | _ -> dist, selection
+        )
+
+let select_path
+  : Outline.t -> t
+  = fun outline -> Path outline.Outline.id
+
+let select_point
+  : Outline.t -> Gg.v2 -> t
+  = fun outline v2_point ->
+
+    let point' = ref None in
+    let dist = ref threshold in
+
+    Path.Fixed.iter
+      outline.Outline.path
+      ~f:(fun p ->
+          let open Gg.V2 in
+          let new_dist = norm ((Path.Point.get_coord p) - v2_point) in
+          match (new_dist < !dist) with
+          | false -> ()
+          | true ->
+            dist:= new_dist;
+            point' := Some p
+        );
+
+    match !point' with
+    | Some point ->
+      Point (outline.Outline.id, point)
+    | None ->
+      Path (outline.Outline.id)
+
+            (*
+      (* If the point does not exists, find the exact point on the curve *)
+      let coord = Gg.V2.to_tuple v2_point in
+      begin match get_from_paths coord [path] with
+        | _, None -> Path (Path.Fixed.id path)
+        | f, Some (point, path, p0, p1) ->
+
+          let point' = Path.Point.mix f point p0 p1 in
+          Point (Path.Fixed.id path, point')
+      end
+      *)
-- 
cgit v1.2.3