Evaluated proc test s {set ok [chunk [nsplit [magic:getpixel hi 0 0 $s $s RGB] 6] $s]; join [map $ok {y { join [map $y {x { set c [ansi:hex2irc $x]; . [^C]$c,${c}XX }}] "" }}] \n}