samer@4: function y=shrink(th,x)
samer@4: % shrink - Shrink values towards zero
samer@4: %
samer@4: % shrink :: nonneg~'threshold', [Size] -> [Size].
samer@4: 
samer@4: y=max(0,x-th);