deinterleave: reorder the array to separate each component in consecutive blocks. The array size must be multiple of num_components
objarray deinterleave <obj> <num_components>
e.g.
set obj {x0 y0 x1 y1 x2 y2}
set num_components 2
objarray deinterleave $obj $num_components
-> x0 x1 x2 y0 y1 y2