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