Evaluated proc hexdist {h1 h2} { set rgb1 [hex2rgb $h1]; set rgb2 [hex2rgb $h2]; . $rgb1 | $rgb2 }