From 90f1f73f08b2d9231b2ee029b9e39dd570e36f36 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Mon, 24 May 2021 22:56:16 +0200
Subject: Update

---
 script.it/script_event/mouse_down.ml | 84 ++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100755 script.it/script_event/mouse_down.ml

(limited to 'script.it/script_event/mouse_down.ml')

diff --git a/script.it/script_event/mouse_down.ml b/script.it/script_event/mouse_down.ml
new file mode 100755
index 0000000..04ea2fd
--- /dev/null
+++ b/script.it/script_event/mouse_down.ml
@@ -0,0 +1,84 @@
+module State = Script_state.State
+module Selection = Script_state.Selection
+
+type t = { position : float * float
+         ; timer  : Elements.Timer.t }
+
+let apply { position; timer } state =
+  match state.State.mode with
+
+  | Out ->
+    let x, y = position in
+    Elements.Timer.start timer 0.3;
+
+    let width = state.width
+    and angle = state.angle in
+
+    let stamp = 0. in
+    let point =
+      match Selection.get_from_paths position state.paths with
+      | _, None ->
+        (* Start a new path with the point clicked *)
+        Path.Point.create ~x ~y ~angle ~width ~stamp
+      | _, Some (p, _, _, _) ->
+        (* If the point is close to an existing path, we use the closest
+           point in the path instead *)
+        let x, y = Gg.V2.to_tuple p in
+        Path.Point.create ~x ~y ~angle ~width ~stamp
+    in
+
+    let current = Path.Path_Builder.add_point
+        point
+        state.current in
+    { state with
+      current
+    ; mode = Edit
+    ; mouse_down_position = Gg.V2.of_tuple (x, y)}
+
+  | (Selection (Path id))
+  | (Selection (Point (id, _))) ->
+
+    let get_any () =
+      begin match Selection.get_from_paths position state.paths with
+        | _, None ->
+          { state with
+            mode = Out
+          ; mouse_down_position = Gg.V2.of_tuple position }
+        | dist, Some selection ->
+          let _, outline, _, _ = selection in
+          if outline.Outline.id != id then (
+            let mouse_down_position = Gg.V2.of_tuple position in
+            State.select_segment position selection { state with mouse_down_position } dist
+          ) else
+            (* On the same segment, check for a point *)
+            let selection = Selection.select_point outline (Gg.V2.of_tuple position) in
+            match selection with
+            | Path _ ->
+              { state with
+                mode = Selection selection
+              ; mouse_down_position = Gg.V2.of_tuple position }
+            | Point (_, pt) ->
+              (* In order to handle the point move, start the timer *)
+              Elements.Timer.start timer 0.3;
+              { state with
+                mode = Selection selection
+              ; angle = Path.Point.get_angle pt
+              ; width = Path.Point.get_width pt
+              ; mouse_down_position = Gg.V2.of_tuple position }
+      end
+    in
+    (* First, check for a point in the selected path. If any of them in
+       found, check anything to select in all the elements *)
+    begin match Outline.find state.paths id with
+      | None -> get_any ()
+      | Some outline ->
+        begin match Selection.select_point outline (Gg.V2.of_tuple position) with
+          | Path _ -> get_any ()
+          | other ->
+            Elements.Timer.start timer 0.3;
+            {state with
+             mode = Selection other
+           ; mouse_down_position = Gg.V2.of_tuple position }
+        end
+    end
+  | Edit -> state
-- 
cgit v1.2.3