diff options
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 ) |