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