1
2package require QuickTimeTcl
3set firstImage [image create photo -file [tk_getOpenFile -title {Pick Image}]]
4set width [image width $firstImage]
5set height [image height $firstImage]
6
7set theFile [tk_getSaveFile -title {Save File}  \
8  -initialfile slask.mov]
9movie .m
10.m new $theFile
11.m tracks new video $width $height
12pack .m
13update
14.m tracks add picture 1 0 600 $firstImage -compressor jpeg -dialog 0 \
15  -colordepth 0
16.m save
17