Evaluated proc hex2rgb hex { list [hex2dec [string range $hex 0 1]] [hex2dec [string range $hex 2 3]] [hex2dec [string range $hex 4 5]]}