% interpol.m
% area or articulatory vector interpolated by linear or arctan function
% interpolation(timex, vtf1, vtfo, vtf2)

%	if (Interpolation == 0 && !animateflag)   % linear area
	d1 = (timeproc - tartime(vfno)) / (tartime(vfno+1) - tartime(vfno));
	nt1atemp = nt1a(vfno) + (nt1a(vfno+1) - nt1a(vfno)) * d1;
	for k=1:NING,
	   areatemp(k) = area(vfno,k) + (area(vfno+1,k) - area(vfno,k)) * d1;
	   lengtemp(k) = leng(vfno,k) + (leng(vfno+1,k) - leng(vfno,k)) * d1;
	end