From 228eceeed40b0f86e75a394fe8d65e6e93ca2370 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Tue, 12 Jan 2021 13:41:00 +0100 Subject: Move path, some refactoring --- script.it/selection.mli | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) (limited to 'script.it/selection.mli') diff --git a/script.it/selection.mli b/script.it/selection.mli index 984eae6..9792a2d 100755 --- a/script.it/selection.mli +++ b/script.it/selection.mli @@ -1,6 +1,8 @@ -type t = - | Path of int - | Point of (int * Path.Point.t) +type 'a selection = + | Path of 'a + | Point of ('a * Path.Point.t) + +type t = int selection val threshold : float @@ -19,5 +21,13 @@ val get_from_paths val select_path : Outline.t -> t +(** Check for selecting a point on the given outline. + + If no point is available, select the path. + +*) val select_point : Outline.t -> Gg.v2 -> t + +val find_selection + : int selection -> Outline.t list -> Outline.t selection option -- cgit v1.2.3