Image with wavelength < 780nm

[giakoumoglou]

I found a bug, where the HSI2RGB throws an error if the image has wavelengths less than 780nm. In that case in the code, when you try to truncate at 780nm, i=find(wY>780);, the variable i is empty and error occurs. That can be fixed with an if statement:

% Truncate at 780nm
i=find(wY>780);
if ~isempty(i)
    i=i(1);
    Y=Y(:,1:i);
    wY=wY(1:i);
    I=I(1:i);
    x=x(1:i);
    y=y(1:i);
    z=z(1:i);
end