例7-14.m

matlab基础与提高

function dirmov(direction);
switch direction
   case  ’start’
     set(gcbf,’WindowButtonMotionFcn’,’dirmov move’);
     set(gcbf,’WinowButtonUpFcn’,’dirmov stop’)
   case  ’move’
     c_p=get(gca,’currentpoint’);
     line(c_p(:,1),c_p(:,2),’Marker’,’*’,’clipping’,’on’,…
         ’erasemode’,’background’)
   case  ’stop’
     set(gcbf,’WindowButtonMotionFcn’,);
     set(gcbf,’WindowButtonUpFcn’,)
end