
B = zeros(100,100,3);
imshow(B)
%disp('zero')
%W = 255*ones(100,100,3);
%imshow(W)
%disp('255')

Z = ones(100,100);

Color{1} = [255 128 0];
Color{2} = [51 153 255];
Color{3} = [255 255 102];
Color{4} = [153 0 153]; 

Color{5} = [255 0 0]; 		% Red
Color{6} = [0 255 255];		% Cyan
Color{7} = [127.5 255 0];		% Spring Green
Color{8} = [127.5 0 255];		% Violet


Image = Z;
Strip = ones(100,25);


% Build BarTone
for j = 4:7
	jj = mod(j,4);
	for i = 1:3
		Image(:,jj*25+1:25*jj+25,i) = Color{j+1}(i)*Strip;
		V(:,:,i) = uint8(Color{j+1}(i)*Z);
	end
	%imshow(uint8(V))
	imshow(uint8(Image));
end

V = uint8(V);
Image = uint8(Image);

Green = [102 255 102];
for i = 1:3
	G(:,:,i) = uint8(Green(i)*Z);
end
 

% CheckerBoard
% By clipping, multiplying and dividing will eventually map to "basic colors" , (1,1,0, (1,1,1), etc
	k = .5;
	j = .5;
	for i = 1:3
		C(:,:,i) = k* double(Image(:,:,i))' .* j*double(Image(:,:,i));
	end
	%imshow(Image)

% Appended Image
% 
% Neat to see that the sum of complemntary colors is grey
% Also! Two complemnentary color vectors are orthogonal

	App = 1;
	clear K
	I = Image;
	J = C;
	if App 
		% Append
		for i = 1:3
			K(:,:,i) = [I(:,:,i) I(:,:,i)' J(:,:,i)];
		end
		imshow(K)
	end

