e_move.m

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

%
% Callback function for "Move" (scroll) button in main_edit window
% Author : Minkyu Lee
% Date : 2-FEB-1995
% Modified by D. G. Childers
%

if exist('left_line_h') == 1
   clear left_line_h  right_line_h
end
figure(ana_wav_win_h);
AXIS = axis;
button=1;
flen=RIGHT-LEFT;


while button ~= 2 
   [xx,yy,button]=ginput(1);
   if button == 1 		% Move to the left
      LEFT=LEFT-flen;
		RIGHT=RIGHT-flen;
		if LEFT < 1;
         LEFT = 1;
         RIGHT=flen;
		end
      axis1=LEFT:RIGHT;
      plot(axis1,SPEECH_OLD(LEFT:RIGHT));
      axis([LEFT RIGHT AXIS(3) AXIS(4)]);
                
    elseif button == 3 	% Move to the right
		LEFT=LEFT+flen;
		RIGHT=RIGHT+flen;
		if RIGHT > LEN-1;
         RIGHT = LEN;
         LEFT=LEN-flen;
		end
		axis1=LEFT:RIGHT;
      plot(axis1,SPEECH_OLD(LEFT:RIGHT));
      axis([LEFT RIGHT AXIS(3) AXIS(4)]);
   elseif button==2 
      break;
   end
end;
		
	clc
   disp(' Exit scrolling function ! ')