%
% plot the gray level patches for the Macbeth color checker
%
% Li-Yi Wei
% 3/3/98
%

load macbethChart; comment
graySeries = 19:24;

figure
grid on
xlabel('Wavelength (nm)');
ylabel('Surface Reflectance');
title('Reflectance of Macbeth Surface Gray Series');

hold on
for i=1:6
 plot(wavelength, macbethChart(:,graySeries(i))); 
end
hold off

%show the values at 600nm

entry = 600 - wavelength(1) + 1;

for i=1:6
 macbethChart(entry, graySeries(i))
end
