Posted to tcl by evilotto at Thu Feb 21 20:55:48 GMT 2013view raw
- 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)}]
- }
- }