view general/arrutils/strip1.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

function sz=strip1(sz)
% strip1 - strip trailing ones from an array size specification
%
% strip1 :: [[1,E]] -> [[1,F]].
e=length(sz);
while e>0 && sz(e)==1, e=e-1; end
if e>0, sz=sz(1:e); else sz=[]; end