function value = points_avoid_point_naive_2d ( n, p_set, p )

%*****************************************************************************80
%
%% points_avoid_point_naive_2d(): is a point "far" from a set of points in 2D?
%
%  Discussion:
%
%    The routine discards points that are too close to other points.
%    The method used to check this is quadratic in the number of points,
%    and may take an inordinate amount of time if there are a large
%    number of points.  But in that case, what do you want?  If you want
%    lots of points, you don't want to delete any because it won't matter.
%
%    The test point is "far enough" from an accepted point if
%    the Euclidean distance is at least 100 times EPSILON.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    18 February 2005
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer N, the number of accepted points.
%
%    real P_SET(2,N), the accepted points.
%
%    real P(2), a point to be tested.
%
%  Output:
%
%    logical VALUE, is TRUE if XY_TEST is
%    "far enough" from all the accepted points.
%
  dim_num = 2;

  tol = 100.0 * eps;

  value = true;

  for j = 1 : n

    if ( sqrt ( sum ( ( p_set(1:dim_num,j) - p(1:dim_num) ).^2 ) ) < tol )
      value = false;
      return
    end

  end

  return
end
