4
puts [clock format [clock seconds]]
6
for {set j 0} {$j < 100} {incr j} {
14
for {set i 0} {$i < 100} {incr i} {
15
# .a create line $i 0 0 [expr 500 - $i] -fill $c
19
puts [clock format [clock seconds]]
21
for {set j 0} {$j < 100} {incr j} {
29
for {set i 0} {$i < 100} {incr i} {
30
.a create line $i 0 0 [expr 500 - $i] -fill $c
34
puts [clock format [clock seconds]]
38
canvas .a -height 500 -width 500
39
button .b -text draw -command drawlines