Posted to tcl by ro at Tue Sep 15 23:12:06 GMT 2009view raw
- proc lpick L {lindex $L [expr {int(rand()*[llength $L])}]}
- proc colorize {} {
- global im ; set data {} ; set color [lpick {purple blue yellow}]
- for {set i 0} {$i < 240} {incr i} {
- set line {}
- for {set j 0} {$j < 320} {incr j} {
- lappend line $color
- }
- lappend data $line
- }
- time {$im put $data -to 0 0} 1
- } ;# colorize
- $im blank
- bind . <Return> colorize