spmotion.m

来自「有关matlab的电子书籍有一定的帮助希望有用」· M 代码 · 共 61 行

function spmotion(varargin)
%spMOTION Windowbuttonmotionfcn for spectrum viewer
%   Inputs:
%      scalar  - figure handle of browser (if not an integer)
%
 
%   Copyright (c) 1988-98 by The MathWorks, Inc.
% $Revision: 1.4 $

if nargin == 1
% pass a figure handle if you want to quickly update the pointer
    fig = varargin{1};
else  
    fig = findobj(get(0,'children'), 'flat','tag','spectview');
    if isempty(fig)
        return
    end
end

ud = get(fig,'userdata');
flag = ud.pointer;
switch flag
case -1,  % wait mode
    setptr(fig,'watch'),
case 0,  % pointer mode
    if ud.prefs.tool.ruler
        ruler_curs = ruler('motion',fig);
        if ruler_curs == 1
            setptr(fig,'hand1')
            return
        elseif ruler_curs == 2
            setptr(fig,'hand2')
            return
        end
    end

    set(fig,'pointer','arrow')

case 1,  % zoom mode
    fp = get(fig,'position');   % in pixels already
    p = get(fig,'currentpoint');  p = p(1,1:2);
    sz = ud.sz;
    toolbar_ht = sz.ih;
    left_width = ud.left_width;
    mp = [left_width 0 ...
                     fp(3)-(left_width+sz.rw*ud.prefs.tool.ruler) ...
                     fp(4)-toolbar_ht];
    %mouse is in main panel:
    if pinrect(p,[mp(1) mp(1)+mp(3) mp(2) mp(2)+mp(4)])
        setptr(fig,'cross')
        return
    end
    setptr(fig,'arrow')

case 2,  % help mode 
    setptr(fig,'help'),
end