source: issm/trunk-jpl/src/m/Geometry/find_point.m@ 12996

function f=find_point(tabx,taby,pointx,pointy)
%FIND_POINT - find closest point
%
%   find which point of the list (tabx,taby) is
%   the closest to (poinx,pointy)
%
%   Usage:
%      f=find_point(tabx,taby,pointx,pointy)

%Compute distance between point and cloud of points
distance=sqrt((tabx-pointx).^2+(taby-pointy).^2);

%find index of the minimum distance and return the first one only
f=find(distance==min(min(distance)),1);