function [iPoints, aObj] = selectpoints(aObj, X,Y, pointX, pointY);
%EDITLINE/SELECTPOINTS Select points for editline object
%   This file is an internal helper function for plot annotation.

%   pick points to move for dragging.

%   Copyright 1984-2004 The MathWorks, Inc. 
%   $Revision: 1.8.4.1 $  $Date: 2004/01/15 21:12:22 $


% get nearest points
dx = X-pointX;
dy = Y-pointY;

dm = abs(dx)+abs(dy);

[sortedList, indices] = sort(dm);

if sortedList(1) < 0.02
   iPoints = indices(1);
else
   iPoints = indices;
end