http://www.purl.org/tcl/home/man/tcl8.4/TkCmd/image.htm
Someone want to mention the Img extension and why it is so useful?
See also Buttons with image and text - Images With Transparency and Plain Images - Reading GIF image dimensions - Reading JPEG image dimensions - Reading PNG image dimensions - Tk image Dos and Don'ts -
I (FW) wrote this code in a couple minutes the other day to occupy myself, which generates a 500x500 image of randomly-colored pixels and displays it in a window. I think this summarizes Tcl's image generation capabilities well (and the images it makes are pretty mesmerising, too). Might as well put it up here:
proc generate_data {} { set data [list] for {set x 0} {$x < 500} {incr x} { set row [list] for {set y 0} {$y < 500} {incr y} { lappend row [format "#%02x%02x%02x" [random_byte] [random_byte] [random_byte]] } lappend data $row } return $data } proc random_byte {} { return [expr {int(rand() * 256)}] } set image [image create photo] $image put [generate_data] label .l -image $image pack .l
RS: Cool! In my copy I just added the line
bind . <Return> {$image put [generate_data]}
to let the CPU work more ;-)
Tk syntax help - Arts and crafts of Tcl-Tk programming - Category Command - Category Graphics