# Color table list 
# Michael Minn
# 27 June 2021

col = as.data.frame(t(col2rgb(colors())))

rownames(col) = colors()

print.colors = function(x) {
	# x = x[order(sapply(1:nrow(x), function(z) max(x[z,]))), ]
	v = rgb2hsv(x$red, x$green, x$blue)
	x = x[order(v[2,], v[3,]),]

	cat("<div class=\"colortable\">\n")

	for (z in 1:nrow(x)) {
		text.color = ifelse(sum(x[z,]) > 384, "black", "white")

		hex = sprintf("#%02x%02x%02x", x$red[z], x$green[z], x$blue[z])

		cat(sprintf("<div style=\"background-color: %s; color: %s\">%s (%s)</div>\n",
			hex, text.color, rownames(x)[z], hex))
	}

	cat("</div>\n")
}

cat("<h3>Grays (R == G == B)</h3>\n")

print.colors(col[(col$red == col$blue) & (col$blue == col$green),])

cat("<h3>Reds (R &gt; G &amp; R &gt; B)</h3>\n")

print.colors(col[(col$red > col$green) & (col$red > col$blue),])

cat("<h3>Blues (B &gt; R &amp; B &gt; G)</h3>\n")

print.colors(col[(col$blue > col$red) & (col$blue > col$green),])

cat("<h3>Greens (G &gt; R &amp; G &gt; B)</h3>\n")

print.colors(col[(col$green > col$red) & (col$green > col$blue),])

cat("<h3>Yellows (R == G &amp; R &gt; B)</h3>\n")

print.colors(col[(col$red == col$green) & (col$red > col$blue),])

cat("<h3>Cyans (G == B &amp; G &gt; R)</h3>\n")

print.colors(col[(col$green == col$blue) & (col$green > col$red),])

cat("<h3>Magentas (R == B &amp; R &gt; G)</h3>\n")

print.colors(col[(col$red == col$blue) & (col$red > col$green),])