gcshf.m

这是一个用于语音信号处理的工具箱

% Script : shift to the left or right on the gain envelope of the GCI 
%          display using the mouse.
%
%    gcsht.m is a call_function executed by "env_shl" or "env_shr" on 
%    figure(Gcset_f).

 figure(Gcdis_f);

 range=fix( (Rite-Left+1)/2 );

 if LEFT==1  % shift to left

    Left=max(1,Left-range );
    Rite=min(Left+2*range,nframe);

    v=axis;
    axis([Left-1 Rite v(3) v(4)]);

 else  % shift to right
    
    Rite=min(nframe,Rite+range );
    Left=max(1,Rite-2*range);

    v=axis;
    axis([Left-1 Rite v(3) v(4)]);

 end

 clear LEFT range;