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