ex_seam_carving.m

% (C) Copyright Kirill Lykov 2013.
%
% Distributed under the FreeBSD Software License (See accompanying file license.txt)

clearvars all;
close all;

% use small pictures because implementation is slow
initialData = imread('sasha.jpg');
image = double(initialData);

figure(1);
plot(1);
imshow(initialData);
title(['Original picture: ' int2str(size(image, 1)) 'x' int2str(size(image, 2))]);

newSize = [size(image, 1) - 60, size(image, 2) - 80];

image = seamCarving(newSize, image);

figure(2);
plot(2);

imshow(uint8(image));
title(['Modified picture: ' int2str(size(image, 1)) 'x' int2str(size(image, 2))]);

imwrite(uint8(image), 'sasha-reduced.jpg', 'jpg');