% Skript nacte obrazek do Matlabu pomoci prikazu imread, zobrazi
% tento obrazek pomoci funkce imshow a zobrazi jeho jednotlive slozky R,
% G a B. Dale prevede tento obrazek do stupnu sede pomoci funkce rgb2gray a
% ulozi jej pomoci funkce imwrite.

% Nacteni obrazku
obrazek = imread('muj_obrazek.jpg');

% Zobrazeni
figure; imshow(obrazek);

% Jednotlive R, G, B slozky
R = obrazek;
R(:,:,[2,3]) = 0;

G = obrazek;
G(:,:,[1,3]) = 0;

B = obrazek;
B(:,:,[1,2]) = 0;

figure; imshow(R);
figure; imshow(G);
figure; imshow(B);

% Prevedeni do stupnu sede
obrazek_sedy = rgb2gray(obrazek);

% Ulozeni obrazku
imwrite(obrazek_sedy, 'sedy.jpg');

% konec
