Posted to tcl by ro at Tue Sep 15 23:12:06 GMT 2009view raw

  1. proc lpick L {lindex $L [expr {int(rand()*[llength $L])}]}
  2.  
  3. proc colorize {} {
  4. global im ; set data {} ; set color [lpick {purple blue yellow}]
  5. for {set i 0} {$i < 240} {incr i} {
  6. set line {}
  7. for {set j 0} {$j < 320} {incr j} {
  8. lappend line $color
  9. }
  10. lappend data $line
  11. }
  12.  
  13. time {$im put $data -to 0 0} 1
  14.  
  15.  
  16. } ;# colorize
  17.  
  18. $im blank
  19. bind . <Return> colorize