samer@32: % phasedata - Spectral data from buffered frames
samer@32: %
samer@32: % phasedata ::
samer@32: %    seq([[N,L]])  		~'source data',
samer@32: %    (N:natural->[[N]])	~'function to compute window, eg hanning'
samer@32: % -> seq([[M,L]]).
samer@32: 
samer@32: function a=phasedata(x,windowfn)
samer@32: 	H=spdiag(feval(windowfn,size(source,1)));
samer@32: 	a=map(@(x)phasespec(H*x),source);
samer@32: end
samer@32: 
samer@32: