%
% plotReflectedLightSPD.m
%
% plot the spd of the filtered ligth sources reflected by the white patch
%

load reflected_light_spd;

figure;
hold on;

% control
for i=1:1
 plot(wavelength, spd(i,:), 'k');
end

% Blue
for i=2:6
 plot(wavelength, spd(i,:), 'b');
end

% Amber
for i=7:11
 plot(wavelength, spd(i,:), 'r');
end

% Green
for i=12:15
 plot(wavelength, spd(i,:), 'g');
end

% Magenta
for i=16:18
 plot(wavelength, spd(i,:), 'm');
end

title('Filtered Light SPD from Macbeth White Patch');
xlabel('Wavelength nm');
ylabel('Power');
