% phasedata - Spectral data from buffered frames
%
% phasedata ::
%    seq([[N,L]])  		~'source data',
%    (N:natural->[[N]])	~'function to compute window, eg hanning'
% -> seq([[M,L]]).

function a=phasedata(x,windowfn)
	H=spdiag(feval(windowfn,size(source,1)));
	a=map(@(x)phasespec(H*x),source);
end


