loadarar.m

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

% load articulatory vector and area info
% modified by D. G. Childers 7/7/98

cwd=pwd;
cd data;
[fname pathname]=uigetfile('*.art','Load arti_area file');

if fname ~= 0
   S=sprintf('Loading data into %s%s',pathname,fname);
   disp(S);
	s=sprintf('load %s%s',pathname,fname);
	eval(s);
   o_fname=fname;
   o_pname=pathname;
   %fname=basename(fname);
   
else
   fname=o_fname;
   pathname=o_pname;
end
% If an Input file is not specified ( fname ), return to main menu
if exist('fname') ~= 1 | length(fname) == 0
   disp('Input file is not specified. Returning to main menu.');
   cd ..;
   return;
end

fid = fopen(eval('fname'), 'r');
totfno=fscanf(fid, '%d', 1);
for k=1:totfno,
	tartime(k)=fscanf(fid, '%f', 1);
	tdur(k)=fscanf(fid, '%f', 1);
	nt1a(k)=fscanf(fid, '%f', 1);
	pharyflag(k)=fscanf(fid, '%d', 1);
	for j=1:60,
		area(k,j)=fscanf(fid, '%f', 1);
	end
	for j=1:60,
		leng(k,j)=fscanf(fid, '%f', 1);
	end
	artset(k,1)=fscanf(fid, '%f\n', 1);
	artset(k,2)=fscanf(fid, '%f\n', 1);
	artset(k,3)=fscanf(fid, '%f\n', 1);
	artset(k,4)=fscanf(fid, '%f\n', 1);
	artset(k,5)=fscanf(fid, '%f\n', 1);
	artset(k,6)=fscanf(fid, '%f\n', 1);
	artset(k,7)=fscanf(fid, '%f\n', 1);
	artset(k,8)=fscanf(fid, '%f\n', 1);
	artset(k,9)=fscanf(fid, '%f\n', 1);
	form_tar(k,1)=fscanf(fid, '%f\n', 1);
	form_tar(k,2)=fscanf(fid, '%f\n', 1);
	form_tar(k,3)=fscanf(fid, '%f\n', 1);
	form_tar(k,4)=fscanf(fid, '%f\n', 1);
	if (pharyflag(k))
	artset(k,10)=fscanf(fid, '%f\n', 1);
	artset(k,11)=fscanf(fid, '%f\n', 1);
	artset(k,12)=fscanf(fid, '%f\n', 1);
	end
end
fclose(fid);
%set(m1_2_h,'Enable','off');
%set(m1_3_h,'Enable','off');

%  create message window and write message in that window also
   message_window=figure('Unit','normalized',...
           'Position',[0.05 0.2 0.9 0.2],...
           'Resize','off',...
           'Color',BACK_COLOR,...
           'Numbertitle','off',...
           'Name','Message');
axis('off');        
ss=sprintf('You have loaded an articulatory parameter file.');
text(-0.05,5/6,ss,'color',[0 0 1],'FontSize',10);
ss=sprintf('Do not press the Shape Settings button.  Do not press the Optimize button.');
text(-0.05,4/6,ss,'color',[0 0 1],'FontSize',10);
ss=sprintf('This window will close in 10 seconds.  After the window closes, then');
text(-0.05,3/6,ss,'color',[0 0 1],'FontSize',10);
ss=sprintf('Press the Excitation button.');
text(-0.05,2/6,ss,'color',[0 0 1],'FontSize',10);
pause(10.0);
close(message_window);
clear message window;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


close(file_load_sv_win_h);
clear file_load_sv_win_h;

cd ..;