samer@32: % specfilt
samer@32: function Y=specfilt(X,S,varargin)
samer@32: 	args=varargin;
samer@32: 	Y=zipwith(@specfiltf,S,X);
samer@32: 
samer@32: 	function Y=specfiltf(x,s), 
samer@32: 		Y=unbuffer(ipowspec(s,phasespec(x)),args{:}); end
samer@32: 	end
samer@32: end