diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-07 18:41:30 +0100 |
---|---|---|
committer | Sébastien Dailly <sebastien@chimrod.com> | 2021-01-07 18:48:28 +0100 |
commit | 6e5c6bf7beadc72e64e5d929e301b473b01c9303 (patch) | |
tree | 02919ca31644a58d8b12e35c0072b38e8fab335a /script.it/selection.ml | |
parent | 21c386fee208adb7b494d2677d9f49ed49a1c1ce (diff) |
Update
Diffstat (limited to 'script.it/selection.ml')
-rwxr-xr-x | script.it/selection.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/script.it/selection.ml b/script.it/selection.ml index c0360fb..591ea38 100755 --- a/script.it/selection.ml +++ b/script.it/selection.ml @@ -15,8 +15,8 @@ let get_from_paths ~init:(threshold, None) ~f:(fun (dist, selection) path -> match Path.Fixed.distance point path with - | Some (point', p, p0, p1) when p < dist -> - dist, Some (point', path, p0, p1) + | Some { closest_point ; distance; p0; p1 ; ratio} when distance < dist -> + ratio, Some (closest_point, path, p0, p1) | _ -> dist, selection ) |