Kelvin light color value that indicates the temperature icon (K), for example, 6500K pure white light.
Correlated Color Temperature (CCT)
command /K2 3000
info: https://en.wikipedia.org/wiki/Color_temperature
alias K2 {
var %t $1 / 100
if (%t <= 66 ) {
var %R 255, %G %t,%G $calc(99.4708025861 * $log(%G) - 161.1195681661)
if ( %t <= 19) { var %B 0 }
else { var %B %t - 10, %B $calc(138.5177312231 * $log(%B)), %B $calc(%B - 305.0447927307) }
}
else { var %R %t - 60,%R $clalc(329.698727446 * %R ^ -0.1332047592)
var %G %t - 60, %G $calc(288.1221695283 * %G ^ -0.0755148492),%B 255 }
;RBG
echo 4 R : $round(%R,0)
echo 9 G : $round(%G,0)
echo 12 B : $round(%B,0)
echo ALFA: 50%
;°C Deg.
echo $+($chr(176),C) : $calc($1 - 273.15)
;F° Fahren.
var %dC $calc($1 - 273.15)
echo $+($chr(176),F) : $calc(%dC * 1.8 + 32 )
;HEX
echo HEX : $+($chr(35),$base($round(%R,0),10,16,2),$base($round(%G,0),10,16,2),$base($round(%B,0),10,16,2))
;CMYK
;K = 1-max(R', G', B'),C = (1-R'-K) / (1-K),M = (1-G'-K) / (1-K),Y = (1-B'-K) / (1-K)
var %R' $calc($round(%R,0) / 255),%G' $calc($round(%G,0) / 255),%B' $calc($round(%B,0) / 255)
var %K $calc(1 - $gettok($sorttok((%R', %G', %B'),32,nr),1,32))
var %C $calc(1 - %R' - %K) / $calc(1- %K)
var %M $calc(1 - %G' - %K),%M $calc(%mm / 1 - %K)
var %Y $calc(1 -%B' - %K ) / $calc(1 - %K)
echo 11 C : $round(%C,4)
echo 13 M : $round(%M,4)
echo 8 Y : $round(%Y,4)
echo 1 K : $round(%K,4)
}