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