From 6a75fb043ed30389fff1ce97fe20ee56b1c95066 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 25 May 2021 11:08:00 +0200
Subject: Update script.it project

---
 script.it/script_event/out.ml | 88 -------------------------------------------
 1 file changed, 88 deletions(-)
 delete mode 100755 script.it/script_event/out.ml

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

diff --git a/script.it/script_event/out.ml b/script.it/script_event/out.ml
deleted file mode 100755
index b8b8599..0000000
--- a/script.it/script_event/out.ml
+++ /dev/null
@@ -1,88 +0,0 @@
-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
-         }
-
-(** Long click, move the selected element if any *)
-let longClick mouse_coord state worker = function
-  | State.Selection t ->
-    let mouse_v2 = Gg.V2.of_tuple mouse_coord in
-    begin match Selection.find_selection t state.State.paths with
-      | None -> state
-      | Some (Point (path, point)) ->
-        let point' = Path.Point.copy point mouse_v2 in
-        State.post worker (`TranslatePoint (point', path));
-        (* Just replace the position of the selected point *)
-        { state with mode = Selection (Point (path.id, point')) }
-      | Some (Path path) ->
-        let delta = Gg.V2.(mouse_v2 - state.State.mouse_down_position) in
-        State.post worker (`TranslatePath (path, delta));
-        state
-    end
-  (*  TODO Long click in out mode should translate the slate *)
-  | _ -> state
-
-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
-
-  | _ when Elements.Timer.delay timer < 0.3 ->
-    state
-
-  | _ ->
-    longClick point state worker state.mode
-
-- 
cgit v1.2.3