annotate dsp/synth/poly2snd.m @ 34:c75bb62b90a9

Imported audio synthesis tools.

function X=poly2snd(A,u)
% POLY2SND  - Convert array of filter polynomial coeffs to one long sound by filtering noise
% Filter state is preserved as the function processes a number of filters
%
% poly2snd :: 
% 	(A:array 1..N of Poly, signal~'noise to filter')
%	->signal~'N concatentated sounds'
%
% Each ROW of A contains coefficients for one filter

Z=[];
for k=1:size(A,1)
	[x,Z]=filter(1,A(k,:),u,Z);
	if any(isnan(Z)), Z=[]; end;
	X(:,k)=0.999*x/max(abs(x));
end