view arrows/@arrow/mpower.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

% mpower - Arrow with state initialiser
%
% mpower :: arrow(A,B,S), S -> arrow(A,B,S).
%
% The resulting arrow is the same as the supplied arrow
% except that its accessible state is explicitly initialised.
function o=mpower(a,state), o=ainitstate(a,state);