interleave

objarray interleave <obj> <num_components>

Reorder the array of $num_components blocks interleaving items of each component

<obj> the objarray to be modified

<num_components> integer>0 , the amount of blocks

Warning: the values of <obj> itself are modified, without creating another copy of the object

e.g.

set obj [objarray concat [objarray new intarray 3 1] [objarray new intarray 3 5]]
-> 1 1 1 5 5 5
objarray interleave $obj 2
->1 5 1 5 1 5