red.m

hi i have a huge collection are you interested

function b = red(m)
 
if nargin < 1, m = size(get(gcf,'colormap'),1); end
b = [linspace(0,1,m)' zeros(m,2)];