Module:Sandbox/AlexNB/nmColor: Difference between revisions

Content deleted Content added
AlexNB (talk | contribs)
No edit summary
AlexNB (talk | contribs)
No edit summary
Line 69:
local intensityfactor = 0
local numofitems = 400
-- localfor windowwlcycle = 150380,780,1 do
-- for wlcycle = 380,780 nm2RGB(wlcycle,1 dofalse)
nm2RGB(wlcycle, false)
-- if wlcycle < wavelength then
-- intensityfactor = (wlcycle - 380) / (wavelength - 380)
Line 79 ⟶ 78:
-- if intensityfactor < 0 then
-- intensityfactor = 0
-- numofitems = numofitems - 1
-- end
if (wlcycle >= (wavelength - window)) and (wlcycle <= (wavelength + window)) then
-- redsum = redsum + redvalue*intensityfactor = 0*1.8
-- greensum = greensum + greenvalue*intensityfactor*1.5
else
-- bluesum = bluesum + bluevalue*intensityfactor*1
intensityfactor = 1
-- end
-- local result='#' .. string.format("%.2X%.2X%.2X", 255*(redsum/numofitems), 255*(greensum/numofitems), 255*(bluesum/numofitems))
redsum = redsum + redvalue*intensityfactor*1.8
nm2RGB(wlcycle1200-wavelength, false)
greensum = greensum + greenvalue*intensityfactor*1.5
local result='#' .. string.format("%.2X%.2X%.2X", 255*redvalue, 255*greenvalue, 255*bluevalue)
bluesum = bluesum + bluevalue*intensityfactor*1
end
local result='#' .. string.format("%.2X%.2X%.2X", 255*(redsum/numofitems), 255*(greensum/numofitems), 255*(bluesum/numofitems))
return result
end