From 05008c81a9652472a454f47940a6d8aa9a228538 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Mon, 24 May 2021 22:19:43 +0200
Subject: Update

---
 script.it/script_event/dune   |  8 +++++
 script.it/script_event/out.ml | 69 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 77 insertions(+)
 create mode 100755 script.it/script_event/dune
 create mode 100755 script.it/script_event/out.ml

(limited to 'script.it/script_event')

diff --git a/script.it/script_event/dune b/script.it/script_event/dune
new file mode 100755
index 0000000..2271b0a
--- /dev/null
+++ b/script.it/script_event/dune
@@ -0,0 +1,8 @@
+(library
+ (name script_event)
+ (libraries 
+   brr
+   script_state
+   )
+ )
+
diff --git a/script.it/script_event/out.ml b/script.it/script_event/out.ml
new file mode 100755
index 0000000..45f05d3
--- /dev/null
+++ b/script.it/script_event/out.ml
@@ -0,0 +1,69 @@
+module State = Script_state.State
+module Selection = Script_state.Selection
+
+(** Handle a click outside of the selection *)
+
+type t = { point  : float * float
+         ; timer  : Elements.Timer.t
+         ; worker : Brr_webworkers.Worker.t
+         }
+
+let apply {point; timer ; worker} state =
+  match state.State.mode with
+
+  | Edit ->
+    let stamp = Elements.Timer.delay timer in
+    Elements.Timer.stop timer;
+    begin match Path.Path_Builder.peek2 state.current with
+      (* If there is at last two points selected, handle this as a curve
+          creation. And we add the new point in the current path *)
+      | Some _ ->
+
+        let current = State.insert_or_replace state point stamp state.current in
+        let path = Path.Fixed.to_fixed
+            (module Path.Path_Builder)
+            current in
+
+        (* Create a copy from the path with all the interior points *)
+        let back = Path.Fixed.map
+            path
+            (fun pt -> Path.Point.copy pt @@ Path.Point.get_coord' pt) in
+
+        let last =
+          Outline.{ path
+                  ; back
+                  ; id = Outline.get_id ()
+                  }
+        in
+
+        (* Send to the worker for a full review *)
+        let () = State.post worker (`Complete last) in
+
+        let state =
+          { state with
+            mode = Out
+          ; paths = last::state.paths
+          ; current = Path.Path_Builder.empty } in
+        state
+
+      (* Else, check if there is a curve under the cursor, and remove it *)
+      | None ->
+        let current = Path.Path_Builder.empty in
+        begin match Selection.get_from_paths point state.paths with
+          | _, None ->
+            { state with
+              mode = Out
+            ; current
+            }
+          | dist, Some selection ->
+            State.select_segment point selection { state with current } dist
+
+        end
+    end
+
+  | mode when Elements.Timer.delay timer < 0.3 ->
+    State.click state mode
+
+  | _ ->
+    State.longClick point state worker state.mode
+
-- 
cgit v1.2.3