demo/munselltest.R

In munsellinterpol: Interpolate Munsell Renotation Data from Hue/Chroma to CIE/sRGB

# basic functions
# Munsell color space to xyY
MunsellToxyY('7.6P 8.9/2.2')

# xyY to Munsell color space
xyYtoMunsell(c(0.310897, 0.306510, 74.613450))

# Munsell color space to sRGB
MunsellTosRGB('1YR 5/5')

# sRGB to Munsell color space
sRGBtoMunsell(c(165, 108, 95))


# other useful functions
luvtoMunsell(c(89.21162, 8.694958, -14.89948))
labtoMunsell(c(89.21162, 9.934549, -8.451661))
xyYtoMunsell(c(0.3108972, 0.3065102, 74.61345))
XYZtoMunsell(c(75.68137, 74.61345, 93.13411))

MunsellToxyY('7.6P 8.9/2.2')
MunsellToXYZ('7.6P 8.9/2.2')
MunsellToLab('7.6P 8.9/2.2')
MunsellToLuv('7.6P 8.9/2.2')

luv2xyz(c(89.21162, 8.694958, -14.89948))
xyz2luv(c( 75.68137, 74.61345, 93.13411))
xyz2lab(c( 75.68137, 74.61345, 93.13411))
xyY2XYZ(c(0.3108972, 0.3065102, 74.61345))
XYZ2xyY(c( 75.68137, 74.61345, 93.13411))


# create a simple conversion table
m<-c('1YR 5/5','1YR 5/4','N5','7.6P 8.9/2.2','6.2P 8.6/2.8','5.6P 8.2/3.4','5.7P 7.3/4.7','5.2P 6.4/5.6','4.6P 5.2/5.9','4.8P 3.8/4.7')
for (n in m) { xy <- MunsellToxyY(n);  cat(n,'\t',xy$x,xy$y,xy$Y,xyYtoMunsell(c(xy$x,xy$y,xy$Y)),'\n')}