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

canvas .c -width 500 -height 500
pack .c

for {set i 1} {$i < 20} {incr i} {
  for {set j 1} {$j < 20} {incr j} {
    set x [expr {$j * 21}]
    set y [expr {$i * 21}]
    .c create line $x $y $x $y -capstyle round -width [expr {$i+($j/20.0)}]
  }
}