annotate arrows/@asampler/asampler.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

% asampler - random sampling arrow
%
% asampler ::
%    (E -> [E->A])  ~'function to generate sample array of given size',
%    E:[[D,1]]      ~'size of arrays to generate'
% -> arrow({},{[E->A]},empty).
%
% This is intended to make it easy to generate sequences of random data
% using a function which relies on Matlab's random number generators.

function o=asampler(fn,sz)
	s.fn=fn; s.sz=sz;
	o=class(s,'asampler',arrow(0,1));
end