annotate arrows/adata.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

% aseq - Arrow to generate stream from lazy sequence object
%
% aseq :: seq(A) -> arrow( {}, {A}, seq(A)).
function a=aseq(X)
	a=unfolder(@decons1,X);
end

function [h,t]=decons1(x)
	if isempty(x), error('ARROW:EOF','End of sequence'); end
	[h,t]=decons(x);
end