https://baripedia.org/index.php?action=history&feed=atom&title=Module%3ALambdacolor
Module:Lambdacolor - Historique des versions
2026-06-20T08:44:44Z
Historique des versions pour cette page sur le wiki
MediaWiki 1.38.6
https://baripedia.org/index.php?title=Module:Lambdacolor&diff=7553&oldid=prev
Arthur : 1 version
2014-01-13T22:01:21Z
<p>1 version</p>
<p><b>Nouvelle page</b></p><div>-- Donne la couleur approximative d'une longueur d'onde : lambda_nm -> "rgb(r,g,b)"<br />
-- Les valeurs proviennent de http://commons.wikimedia.org/wiki/File:Spectrum-sRGB-low.svg<br />
-- [381 nm .. 709 nm] par pas de 2<br />
-- usage {{#invoque:lambdacolor|lambdacolor|longueur_d_onde_en_nanometres}}<br />
local c = {}<br />
c.reds = {0,0,0,0,0,0,36,36,31,25,51,44,36,31,44,54,57,76,85,82,97,107,110,112,110,108,110,112,111,108,106,103,103,97,92,87,89,84,78,67,51,31,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,57,89,115,138,157,171,187,199,213,223,234,243,253,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,247,243,232,224,215,207,201,191,181,175,169,157,151,143,136,128,118,110,100,98,98,87,74,85,70,70,51,51,51,51,48,48,48,48,48,48,48} --<br />
c.greens = {18,18,18,18,25,25,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,25,60,80,97,112,127,141,157,163,177,182,187,196,205,214,223,227,235,246,253,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,250,246,241,236,230,225,218,206,192,179,168,156,145,135,124,112,106,94,85,72,65,51,44,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0} --<br />
c.blues = {31,31,31,31,48,48,54,62,67,72,82,89,97,106,120,135,150,168,188,205,226,248,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,250,245,237,230,225,221,218,216,213,212,213,212,207,202,196,191,186,181,178,173,170,166,164,160,156,151,148,142,139,130,126,118,106,92,70,36,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,18,40,44,54,60,65,65,67,67,76,72,74,74,78,70,70,67,62,67,62,57,57,60,54,48,48,48,40,40,31,25,36,36,25,0,36,25,25,0,0,0,0,25,25,25,25,25,25,25} --<br />
-- fonction exportée<br />
function c.lambdacolor(frame)<br />
local lambda = tonumber(frame.args[1])<br />
if ((lambda < 381) or (lambda > 709)) then<br />
return("rgb(0,0,0)")<br />
end -- invisible<br />
local idx = math.floor((lambda - 381)/2)+1<br />
local r = c.reds[idx]<br />
local g = c.greens[idx]<br />
local b = c.blues[idx]<br />
return ("rgb("..r..","..g..","..b..")") -- pas d'interpolation<br />
end<br />
<br />
--[[ -----------------------<br />
-- TEST -- Décommenter pour tester en 'standalone'; génère une page .html avec dégrade<br />
-- <br />
c.frame = {}<br />
c.frame.args = {}<br />
function plcolor(lambda)<br />
c.frame.args[1] = lambda<br />
print('<span style="background-color:'..c.lambdacolor(c.frame)..'">'..lambda..'</span><br/>')<br />
end<br />
print('<html><head></head><body>')<br />
for wl = 381, 713, 2 do plcolor(wl) end<br />
print('</body></html>')<br />
---------------------- --]]<br />
return c</div>
Arthur