animation_go.m

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

%Callback function for the Animation menu of the Ribbon Model I
%Author Karthik
%Actual functions for animation were written by Wu

clc;

val = get(rbn1_con_animation_popup,'Value');

if val == 1
   make_go;
end;

if val == 2
   PV = [221 45 472 505];
   s2 = 'Animation Window';
   % Open analysis window
   while exist('anim_display_window')==1
      try1 = 'get(anim_display_window,''position'');';
      eval(try1,catch2);
      if check ==0
         clear anim_display_window;
         check = 1;
         break;
      end
      s1 = get(anim_display_window,'Name');
      if ~strcmp(s1,s2)
         clear anim_display_window;
         break;
      end
      figure(anim_display_window);
      break;
   end;
   
   if exist('anim_display_window')~=1;
      anim_display_window=figure('Position',PV,...
         'Resize','on',...
         'Numbertitle','off',...
         'Color',[0 0 0],...
         'Name',s2 );
   end;
   
   clf;
   
   fps = round(10000/MODEL_PARAMETERS(7));
   movie(anim_display_window,MM,20,fps);
   clear MM
end;