% data in    /mas/vision/bigu/steve/barrel_distortion/campbell_camera_calibration/outside_ssc>


disp('fig_ssc_v010and016: loading original image data')
A = loadframe(010);
B = loadframe(016);

figwidth=1; % figure with sufficient resolution for 4-up in 1 column width
%figwidth=2; % figure with sufficient resolution for fullpage 4-up

if figwidth==1
  disp('fig_ssc_v010and016: downsampling for figure to be used in 1 column')
  A=undsamavg(A);
  B=undsamavg(B);
end%if

h=subplot(221)
tvs(A)
title('Frame 010')
xlabel('(a)')
set(h,'xticklabels','')
set(h,'yticklabels','')
set(h,'ticklength',[0 0])

h=subplot(222)
tvs(sqrt(B))
title('Frame 016')
xlabel('(b)')
set(h,'xticklabels','')
set(h,'yticklabels','')
set(h,'ticklength',[0 0])

h=subplot(224) % put them that looks alike one above the other
A_lightened=darken_or_lighten(150,A);
tvs(sqrt(A_lightened))
title('010 lightened to match 016')
xlabel('(d)')
set(h,'xticklabels','')
set(h,'yticklabels','')
set(h,'ticklength',[0 0])

h=subplot(223)
A_darkened=darken_or_lighten(-90,B);
tvs(A_darkened)
title('016 darkened to match 010')
xlabel('(c)')
set(h,'xticklabels','')
set(h,'yticklabels','')
set(h,'ticklength',[0 0])

