display_zoom.m

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

%Callback function for the zoom button  
%To zoom a segment of speech, click the left mouse button on the  beginning and end points
%To zoom out, click the left and right mouse buttons in any order(but not together)
%To exit the zooming function, click the right mouse button twice
%
%Modified by D. G. Childers, October 15, 1997
%

global BACK_COLOR TEXT_COLOR LINE_COLOR;	

   BACK_COLOR=[1 1 1]; %white
	TEXT_COLOR=[0 0 0]; %black
   LINE_COLOR=[0 0 1]; %blue


AXIS = axis;
button = [1 1];
while button(1)~=3 | button(2)~=3
   [xx,yy,button] = ginput(2);
   xx=round(xx);
   if button(1)== 1 & button(2) ==1
      LEFT1(zoom_level) = LEFT;
      RIGHT1(zoom_level) = RIGHT;
      zoom_level = zoom_level + 1;
      if (xx(2)>xx(1))
         LEFT = round(xx(1));
         RIGHT = round(xx(2));
      else
         LEFT = round(xx(2));
         RIGHT = round(xx(1));
      end
      axis1 = LEFT:RIGHT;
      axes(ax2);
      plot(axis1,signal2(LEFT:RIGHT),'color',LINE_COLOR);
      title('Speech signal - zoom');
      axes(ax3);
      plot(axis1,signal3(LEFT:RIGHT),'color',LINE_COLOR);
      title('EGG signal - zoom');
      axes(ax4);
      plot(axis1,signal4(LEFT:RIGHT),'color',LINE_COLOR);
      title('DEGG signal - zoom');
            
      elseif (button(1)==1 & button(2) ==3)|(button(1) == 3 & button(2) ==1)
      zoom_level = zoom_level -1;
      if zoom_level <=0
         zoom_level = 1;
      end;
      LEFT = LEFT1(zoom_level);
      RIGHT = RIGHT1(zoom_level);
      axis1 = LEFT:RIGHT;
      
     axes(ax2);
     plot(axis1,signal2(LEFT:RIGHT),'color',LINE_COLOR);
     title('Speech signal - zoom');
     axes(ax3);
     plot(axis1,signal3(LEFT:RIGHT),'color',LINE_COLOR);
     title('EGG signal - zoom');
     axes(ax4);
     plot(axis1,signal4(LEFT:RIGHT),'color',LINE_COLOR);
     title('DEGG signal - zoom');


      
   elseif button(1) ==3 & button(2) ==3
      if zoom_level==1
          axes(ax2);
          plot(signal2,'color',LINE_COLOR);
          title('Speech signal - zoom');
          axes(ax3);
          plot(signal3,'color',LINE_COLOR);
          title('EGG signal - zoom');
          axes(ax4);
          plot(signal4,'color',LINE_COLOR);
          title('DEGG signal - zoom');
          LEFT=1;
          LENS=length(signal1);
          RIGHT=LENS;
      end;
      break;
   end
end;
clc;
disp('Exiting the zooming function');
clear xx 

% set the shift-button on
set(shift_right,'Visible','on');
set(shift_left,'Visible','on');

%return;