Module:Sandbox/AlexNB/nmColor: Difference between revisions

Revision as of 22:29, 27 September 2014

Latest revision as of 23:15, 27 September 2014

(36 intermediate revisions by the same user not shown)

Line 89:

wavelength_vis = (wavelength_abs - minOrange)*widthBlue/widthOrange + minBlue

elseif (wavelength_abs>minRed) and (wavelength_abs<=maxRed) then

wavelength_vis = (wavelength_abs - minRed)*widthGreen/(widthRed + 20) + minGreen

-- one of the "corrected" versions: wavelength_vis = (wavelength_abs - minRed - 30)*widthGreen/widthRed + minGreen

end

Line 95:

end

local minAntiMagenta = 540550

local maxAntiMagenta = 570

Line 106:

local greenvalue_BLUE

local widthAntiMagenta = maxAntiMagenta - minAntiMagenta

local bias_REDbias_BLUE = (wavelength_abs - minAntiMagenta)/widthAntiMagenta

local bias_BLUEbias_RED = (maxAntiMagenta - wavelength_abs)/widthAntiMagenta

nm2RGB(absorption_to_visible(minAntiMagenta)700, false)

redvalue_RED = redvalue*bias_RED

bluevalue_RED = bluevalue*bias_RED

greenvalue_RED = greenvalue*bias_RED

nm2RGB(absorption_to_visible(maxAntiMagenta)400, false)

redvalue_BLUE = redvalue*bias_BLUE

bluevalue_BLUE = bluevalue*bias_BLUE

greenvalue_BLUE = greenvalue*bias_BLUE

redvalue = 0.6+ 0.4*(redvalue_RED + redvalue_BLUE)

bluevalue = 0.7 + 0.3*(bluevalue_RED + bluevalue_BLUE)

greenvalue = greenvalue_RED + greenvalue_BLUE

end