% formant_synth - synthesise audio from format-based description
function Y=formant_synth(block_size,q,amp,f0,fx)
Y = amp*dynfilter( ...
		map(@f2tf, fx), ...
		blockdata(blit,block_size,0,0.45,f0) ...
	);

	function tf=f2tf(f)
		zf=zeros(size(f));
		[tf{1},tf{2}]=zp2tf([zf;zf],fq2poles(0.5*f,q),min(f));
	end
end

