addpoint.m

来自「改进等高线拟合代码」· M 代码 · 共 37 行

function addpoint(x, y)
%addpoint Adds points to the list.

global FITHANDLES
global UICTRHANDLES
global XSIZE
global YSIZE
global IMAGENAME
global NEWIMAGENAME
global MAINFIG
global VIEWSIZE
global NUMBER   % only in this m-file

maxnrofpoints = 12;
nrofpoints = get(FITHANDLES(1,12), 'value');

[x_size,y_size]=size(get(MAINFIG,'userdata')); 
xl = get(gca,'xlim'); yl = get(gca,'ylim');
% range for pixels from 1 to 128 e.g pixels 64 lies just befor the index 64  
if ((x >= xl(1)) & (x<= xl(2)) & (y >= yl(1)) & (y <= yl(2))),
   nrofpoints = nrofpoints + 1;
   set(FITHANDLES(2,nrofpoints),'enable','off');
   set(FITHANDLES(1,12),'value',nrofpoints);
   x=x-0.5; y=y-0.5;
   set(FITHANDLES(2,nrofpoints),'enable','off');
   set(FITHANDLES(3,nrofpoints),'string',num2str(x),'value',x);
   set(FITHANDLES(4,nrofpoints),'string',num2str(y),'value',y);
   routine('plotpunten');
   if (nrofpoints < maxnrofpoints), 
     set(FITHANDLES(2,nrofpoints+1),'enable','on');
   else
     routine('stopadding');
     seterror(' Maximum number of points reached.');
   end
   FILECHANGED = 1;
end