pi_zoom_slider.m

Univ. of Calgary CREWS的免费地震研究软件

function PI_zoom_slider(hObject, eventdata, handles)
haxs=findobj(gcf,'type','axes','tag','MAINAXES');
h=get(gcf,'userdata');
hi=h(5);
hvertscrol=h(16);
hhorscrol=h(17);

xdat=sort(get(hi,'xdata'));
ydat=sort(get(hi,'ydata'));

xlim=get(haxs,'xlim');
ylim=get(haxs,'ylim');

verval=get(hvertscrol,'value');
horval=get(hhorscrol,'value');
udat=get(gcbo,'userdata');
ckslide=udat{1};
switch ckslide
    case 1  % Vertical Slider
        dy=verval-udat{2};
        newylim=ylim-dy;
        if(newylim(1)<=ydat(1))
            dlim=ylim(2)-ylim(1);
            newylim=[ydat(1) ydat(1)+dlim];
            y1=ydat(end)-(newylim(1)-ydat(1));
            y2=ydat(1)+(ydat(end)-newylim(2));
            udat{2}=y2+(y1-y2)/2;
        elseif(newylim(2)>=ydat(end))
            dlim=ylim(2)-ylim(1);
            newylim=[ydat(end)-dlim ydat(end)];
            y1=ydat(end)-(newylim(1)-ydat(1));
            y2=ydat(1)+(ydat(end)-newylim(2));
            udat{2}=y2+(y1-y2)/2;
        else
            udat{2}=udat{2}+dy;
        end
        set(haxs,'ylim',newylim);
        set(hvertscrol,'value',udat{2},'userdata',udat);
    case 2  % Horizontal Slider
        dx=horval-udat{2};
        newxlim=xlim+dx;
        if(newxlim(1)<=xdat(1))
            dlim=xlim(2)-xlim(1);
            newxlim=[xdat(1) xdat(1)+dlim];
        elseif(newxlim(2)>=xdat(end))
            dlim=xlim(2)-xlim(1);
            newxlim=[xdat(end)-dlim xdat(end)];
        else        
        end
        udat{2}=(newxlim(2)-newxlim(1))/2+newxlim(1);
        set(haxs,'xlim',newxlim);
        set(hhorscrol,'value',udat{2},'userdata',udat);
end
PI_positionaxes_lineposition;
global ZOOM_LOCKS
xdat=get(gca,'xlim');
ydat=get(gca,'ylim');
PI_zoomlock;