% Skript provede libovolny vyrez cernobileho obrazku obsahujici
% 512x512 pixelu a ulozi tento oriznuty obrazek. Dale zobrazi histogram
% tohoto obrazku pomoci funkce imhist

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

% Libolne oriznuti velikosti 512x512 - napriklad stred obrazku
rozmery = size(obrazek);

vyska = rozmery(1);
sirka = rozmery(2);

x1 = floor(vyska/2) - 255;
x2 = x1 + 511;

y1 = floor(sirka/2) - 255;
y2 = y1 + 511;

vyrez = obrazek(x1:x2, y1:y2);
imwrite(vyrez, 'vyrez.jpg');

% Zobrazeni histogramu
figure; imhist(vyrez);

% konec