Divide RGB colors by 255, not 256. Fixes #32

r-lib · Jan 31, 2013 · 399f8fa · 399f8fa
1 parent 8af3e4f
commit 399f8fa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/colour-manip.r b/R/colour-manip.r
@@ -13,7 +13,7 @@
 #' col2hcl(colors())
 col2hcl <- function(colour, h, c, l, alpha = 1) {
 
-  rgb <- t(col2rgb(colour)) / 256
+  rgb <- t(col2rgb(colour)) / 255
   coords <- convertColor(rgb, "sRGB", "Luv")
 
   # Check for correctness