Posted to tcl by kbk at Wed Jan 09 22:37:24 GMT 2019view pretty

package require Tk
image create photo scene -width 300 -height 200
grid [label .l -image scene]

scene put white -to 0 0 300 200

for {set i 100} {$i < 200} {incr i} {
    scene put blue -to $i 100 [expr {$i + 1}] 101
}