例7-14.m

来自「MATLAB 7基础与提高书的配套源程序」· M 代码 · 共 14 行

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