gczom.m

来自「这是一个用于语音信号处理的工具箱」· M 代码 · 共 28 行

% Script : zoom-in or zoom-out on the gain envelope of the GCI display using the mouse.
%
%    gczoom.m is a call_function executed by "env_in" or "env_out" on 
%    figure(Gcset_f).

 figure(Gcdis_f);

 range=Rite-Left+1;

 ZOOMIN=get(env_zoom,'value');
 if ZOOMIN==1  % zoom-in
    range=max(2,range/2);
    Left=min(nframe-2,Left+1);
    Rite=min(nframe,Left+range);
    v=axis;
    axis([Left Rite v(3) v(4)]);

 else  % zoom-out
    range=min(nframe, range*2);
    Left=max(1,Left-1);
    Rite=min(nframe+2, Left+range);
    v=axis;
    axis([Left Rite v(3) v(4)]);
    
 end

 clear ZOOMIN range;