Module:Sandbox/AlexNB/nmColor: Difference between revisions

Revision as of 19:08, 24 October 2013

Revision as of 19:18, 24 October 2013

Line 69:

local intensityfactor = 0

local numofitems = 400

local window = 25

for wlcycle = 380,780,1 do

nm2RGB(wlcycle, false)

-- if wlcycle < wavelength then

-- intensityfactor = (wlcycle - 380) / (wavelength - 380)

-- endelse

-- intensityfactor = (wlcycle - wavelength) / (380 - wavelength) + 1

-- end

-- if intensityfactor < 0 then

-- intensityfactor = 0

-- numofitems = numofitems - 1

if (wlcycle >= (wavelength - window)) and (wlcycle <= (wavelength + window)) then

intensityfactor = 0

else

intensityfactor = (wlcycle - wavelength) / (380 - wavelength) + 1

end

if intensityfactor < 0 then

intensityfactor = 0

numofitems = numofitems - 1

end

redsum = redsum + redvalue*(intensityfactor/0.3)

greensum = greensum + greenvalue*(intensityfactor/0.59)

bluesum = bluesum + bluevalue*(intensityfactor/0.11)

end

local result='#' .. string.format("%.2X%.2X%.2X", 255*(1-redsum/numofitems), 255*(1-greensum/numofitems), 255*(1-bluesum/numofitems))