Posted to tcl by egavilan at Fri Apr 04 23:27:20 GMT 2008view raw
- This version copies the next index over the previous.
- image source at http://www.eats-edu.com.ar/sva/modulo_1_archivos/4-Stroke-Engine.gif
- if {![file exists [set imgfile [lindex $argv 0]]]} {
- print "Uso: $argv0 filename.gif"
- exit
- }
- proc animate {img nimg ms} {
- scan [$nimg cget -format] "GIF -index %d" index
- puts $index
- incr index
- if [catch {
- $nimg configure -format "GIF -index $index"
- }] {
- $nimg configure -format "GIF -index 0"
- }
- $img copy $nimg
- after $ms [info level 0]
- }
- set img [image create photo -file $imgfile -format "GIF -index 0"]
- set nimg [image create photo -file $imgfile -format "GIF -index 1"]
- pack [label .l -image $img -padx 20 -pady 20 -bg white] -side left
- after 2000 animate $img $nimg 20