function [mycol]=mycolorbar1();

% Function to get my own comtomized color scheme

mycol=[];
colinter=.12;
colr=[1,0,0];
colo=[1,.5,0];
colg=[0,1,0];
colb=[0,0,1];
colp=[1,0,1];
for ii=1:6
  mycol=[mycol;colr+[0,(7-ii)*colinter,(7-ii)*colinter]];
end
for ii=1:6
  mycol=[mycol;colr-[(ii-1)*colinter,0,0]];
end
for ii=1:6
%  mycol=[mycol;colo+[0,(7-ii)*colinter,(7-ii)*colinter]];
  mycol=[mycol;colo+[0,(7-ii)*colinter*.5,(7-ii)*colinter]];
end
for ii=1:6
%  mycol=[mycol;colo-[(ii-1)*colinter,0,0]];
  mycol=[mycol;colo-[(ii-1)*colinter,0,0]];
end
for ii=1:6
  mycol=[mycol;colg+[(7-ii)*colinter,0,(7-ii)*colinter]];
end
for ii=1:6
  mycol=[mycol;colg-[0,(ii-1)*colinter,0]];
end
for ii=1:6
  mycol=[mycol;colb+[(7-ii)*colinter,(7-ii)*colinter,0]];
end
for ii=1:6
  mycol=[mycol;colb-[0,0,(ii-1)*colinter]];
end
for ii=1:6
  mycol=[mycol;colp+[0,(7-ii)*colinter,0]];
end
for ii=1:6
  mycol=[mycol;colp-[(ii-1)*colinter,0,(ii-1)*colinter]];
end
mycol=flipud(mycol);
