1package require QuickTimeTcl 3.0 2 3set dir [tk_chooseDirectory -title "Pick dir with TIFFs" -mustexist 1] 4set lfile [ glob -type f [file join $dir *.tiff] ] 5foreach f $lfile { 6 lappend imageList [image create photo -file $f] 7} 8 9movie .m 10.m new zzz.mov 11.m tracks new video 360 288 12pack .m 13update 14set frameDuration [expr 600 / 25] 15.m tracks add picture 1 0 $frameDuration $imageList -dialog 0 -keyframerate 25 16.m save 17