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