No BSD License
function [c] = cs(c1) l0=line ([0 2],[0 2]); set(l0,'color',c1);
Contact us at files@mathworks.com