連番画像をQuickTimeに

MacWikiにあるものを少し修正. Snow LeopardではQuicktime PlayerではなくQuickTime Player 7とする.

tell application "QuickTime Player"
 activate
 set firstFile to choose file with prompt "連番の最初のファイルを選択"
 display dialog "1秒あたりのフレーム数" buttons {"OK"} default answer "2" default button 1 with icon 1
 -- open image sequence firstFile seconds per frame 2
 open image sequence firstFile frames per second text returned of result
 save document 1 as self contained
end tell

2011/1/17追記. Snow Leopardでは上記スクリプトはコンパイルできず．Leopardで書いたスクリプトをSnow Leopardで開いたら，以下のようになっていた．

tell application "QuickTime Player"
 activate
 set firstFile to choose file with prompt "連番の最初のファイルを選択"
 display dialog "1秒あたりのフレーム数" buttons {"OK"} default answer "2" default button 1 with icon 1
 -- open image sequence firstFile seconds per frame 2
 «event MVWRopis» firstFile given «class fpsc»:text returned of result
 save document 1 as «constant savkflat»
end tell