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