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 }