Posted to tcl by evilotto at Thu Feb 21 20:55:48 GMT 2013view raw

  1. canvas .c -width 500 -height 500
  2. pack .c
  3.  
  4. for {set i 1} {$i < 20} {incr i} {
  5. for {set j 1} {$j < 20} {incr j} {
  6. set x [expr {$j * 21}]
  7. set y [expr {$i * 21}]
  8. .c create line $x $y $x $y -capstyle round -width [expr {$i+($j/20.0)}]
  9. }
  10. }