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 -spatialquality max 15.m tracks add picture 1 600 600 $firstImage -compressor jpeg -spatialquality high 16.m tracks add picture 1 1200 600 $firstImage -compressor jpeg -spatialquality normal 17.m tracks add picture 1 1800 600 $firstImage -compressor jpeg -spatialquality low 18.m tracks add picture 1 2400 600 $firstImage -compressor jpeg -spatialquality min 19.m tracks add picture 1 3000 600 $firstImage -compressor jpeg -colordepth 40 -spatialquality max 20.m tracks add picture 1 3600 600 $firstImage -compressor jpeg -colordepth 40 -spatialquality high 21.m tracks add picture 1 4200 600 $firstImage -compressor jpeg -colordepth 40 -spatialquality normal 22.m tracks add picture 1 4800 600 $firstImage -compressor jpeg -colordepth 40 -spatialquality low 23.m tracks add picture 1 5400 600 $firstImage -compressor jpeg -colordepth 40 -spatialquality min 24.m tracks add picture 1 6000 600 $firstImage -compressor jpeg -colordepth 16 -spatialquality normal 25.m tracks add picture 1 6600 600 $firstImage -compressor jpeg -colordepth 8 -spatialquality normal 26.m tracks add picture 1 7200 600 $firstImage -compressor jpeg -colordepth 4 -spatialquality normal 27.m tracks add picture 1 7800 600 $firstImage -compressor jpeg -colordepth 2 -spatialquality normal 28.m save 29