% Roy test

path(path,'/home/S00/schestr0/');
path(path,'/home/S00/schestr0/NRR_Smith');

%% Section 1

[a,bump_images,c]=make_synthetic_object(2,60,0.8,0.1,0.4);

figure(1);
hold on;
title('Sythetic shapes');
for i=1:2,
  plot(bump_images(:,i),'R');
end

[a,bump_images,c]=make_synthetic_object(2,60,0.3,0.1,0.4);

for i=1:2,
  plot(bump_images(:,i),'B');
end

[a,bump_images,c]=make_synthetic_object(2,60,0.5,0.5,0.4);

for i=1:2,
  plot(bump_images(:,i),'G');
end
hold off;


average_smoothed_bump_images = average_smooth(bump_images, 9);

figure(3);
hold on;
title('Average smooth effect');
for i=1:2,
  plot(average_smoothed_bump_images(:,i),'R');
end
hold off;
average_smoothed_bump_images = average_smooth(average_smoothed_bump_images, 9);

figure(4);
hold on;
title('Average smooth of order 2 effect');
for i=1:2,
  plot(average_smoothed_bump_images(:,i),'R');
end
hold off;
