gif_p_ok.m

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

%
% Callback function for 'OK' button of gif_property window
% 
% Purpose : Store the various properties.
%  
% Author : Minkyu Lee
% Date : 6-Mar-1995
% Modified by Karthik on May 29 1997

if exist('gif_pr_win_h')
	gif_num_poles=round(get(gif_pr_np_h,'Value'));
	gif_num_zeros=round(get(gif_pr_nz_h,'Value'));
	num_poles=gif_num_poles;
   num_zeros=gif_num_zeros;
   gif_frame_len = round(get(gif_pr_fl_h,'Value'));
   gif_frame_len = 2^gif_frame_len;
   gif_overlap = round(get(gif_pr_ov_h,'Value'));
   
   val=get(gif_pr_sel_h,'Value');
   if val == 1
      gif_mark_flag = 1;
   else
      gif_mark_flag = 0;
   end
   close(gif_pr_win_h);
	clear gif_pr_win_h;
end

if gif_mark_flag == 1;
   repeat = 1;
   while repeat == 1
      figure(ana_wav_win_h);
      [xx1,yy1] = ginput(2);
      xx1 = round(xx1);
      if xx1(1)<LEFT | xx1(2)>RIGHT |(xx1(2)-xx1(1)<gif_frame_len)
         disp('Select frame correctly!!');
      else
         repeat = 0;
         break;
      end;
   end;
   SPEECH_OLD_A = SPEECH;
   SPEECH = SPEECH_OLD(xx1(1):xx1(2));
   NEW_LEFT = 1;
   NEW_RIGHT = length(SPEECH);
   NEW_LEN = length(SPEECH);
end;