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)}] } }