Posted to tcl by ahype18 at Wed Dec 17 15:57:13 GMT 2014view raw

  1. #Generate arrays for lists
  2. for {set p 0} {$p == $laycnt} {incr p} {
  3. set outputlist($p) {}
  4. }