animate1.m

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

% animate1.m
% modified by D. G. Childers 8/18/98


% close and clear the animation window each time it is called, so
% that multiple animation windows do not build up, all of which
% would have to be closed.  This keeps things neater.
if exist('animate_h')==1    % animation window
	eval('close(animate_h);',catch1);
	clear animate_h;
end

animate_h=figure('Position',[414 319 300 247], 'Resize', 'on',...
   		'Name','Animation Window',...
        'NumberTitle','off','MenuBar','none','color',BACK_COLOR);
  
wh=1.34651;
hk1=1.3431;
g1k=0.82081;

for ana=1:totfno
%animate(artset(ana,1:9),artset(ana,10),artset(ana,11),artset(ana,12),ana,form_tar(ana,:),animate_h)
animate(artset(ana,:),wh,hk1,g1k,ana,form_tar(ana,:),animate_h)

M(:,ana) = getframe(animate_h);
end
movie(animate_h,M)
movie(animate_h,M)
movie(animate_h,M)