Posted to tcl by ahype18 at Wed Dec 17 15:57:13 GMT 2014view pretty
#Generate arrays for lists
for {set p 0} {$p == $laycnt} {incr p} {
set outputlist($p) {}
}
#Generate arrays for lists
for {set p 0} {$p == $laycnt} {incr p} {
set outputlist($p) {}
}