samer@34: function X=playfirspec(A,h)
samer@34: % PLAYFIRSPEC - Synthesis spectrum using FIR filters
samer@34: %
samer@34: % playfirspec :: [[N,M]], [[L]] -> [[T]].
samer@34: 
samer@34: x=fir2snd(spec2fir(A),h.*randn(size(h)));
samer@34: if nargout<1, sound(flatten(x),11025); else X=x; end