Skip to content
R package for turning black-body radiation temperatures into RGB values
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
R
data
.DS_Store
.Rbuildignore
.gitignore
DESCRIPTION
NAMESPACE
README.md
commit.command
data.R
documenting.R
kelvincol.Rproj

README.md

kelvincol

Utilities for converting colour temperatures to displayable rgb values.

Various algorithms and methods are available

install_github("AkselA/R-kelvincol")
library(kelvincol)

kel <- c(1000, 1200, 1500, 2000, 4000, 10000, 20000)

K2XYZ(kel)
K2RGB(kel)
K2hex(kel)

K2hex(kel, method="kim")
K2hex(kel, method="krystek")


As there is no 'right' way to decide luminance, various methods that aim to give pleasing and functional results are supplied.

opar <- par(no.readonly = TRUE)
par(mfrow=c(4, 1), mar=c(2, 2, 0.5, 1))

k <- seq(900, 15000, 400)

plot(k, pch=21, cex=6, lwd=0.5, bg=K2hex(k, Y=0.8, alpha=0.9))
plot(k, pch=21, cex=6, lwd=0.5, bg=K2hex(k, Y=K2Y(k), alpha=0.9))
plot(k, pch=21, cex=6, lwd=0.5, bg=K2hex(k, Y=satval(k), alpha=0.9))
plot(k, pch=21, cex=6, lwd=0.5, bg=K2hex(k, Y=splval(k), alpha=0.9))

par(old.par)


Other ancillary functions are also included, like a couple of 'heat-style' palettes.

opar <- par(no.readonly = TRUE)
par(mar=c(2, 2, 0.5, 0.5), mfrow=c(2, 2))

image(matrix(1:(16*5), ncol=16), col=kelvin.colors(10^4))
image(matrix(1:(16*5), ncol=16), col=kelvinlog.colors(10^4))

image(jitter(volcano, 2), col=kelvin.colors(10^4))
image(jitter(volcano, 2), col=kelvinlog.colors(10^4))

par(old.par)
You can’t perform that action at this time.
You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session.