function [x,y]=myginput(n,type)
if nargin<2, type='ko'; end
x=zeros(n,1); y=x;
for k=1:n,
    [xp,yp]=ginput(1);
    plot(xp,yp,type);
    x(k,1)=xp;
    y(k,1)=yp;
end