[AppleScript]ムービートラックの回転

ムービートラックを回転させるだけの
単機能スクリプト

set FileAlias to choose file "変更するファイルを選択"

set ObjInfo to info for FileAlias

display dialog "回転方向を指定" buttons {"右90時計回り", "左90反時計回り", "180上下反転"} with icon 1 default button 1

if button returned of the result is "右90時計回り" then

set MovR to 1 as Unicode text

else if button returned of the result is "左90反時計回り" then

set MovR to 2 as Unicode text

else if button returned of the result is "180上下反転" then

set MovR to 3 as Unicode text

end if

if MovR is "1" then

tell application "QuickTime Player 7"

activate

open FileAlias

tell document 1

rotate right track "ビデオトラック"

save

close

end tell

end tell

else if MovR is "2" then

tell application "QuickTime Player 7"

activate

open FileAlias

tell document 1

rotate left track "ビデオトラック"

save

close

end tell

end tell

else if MovR is "3" then

tell application "QuickTime Player 7"

activate

open FileAlias

tell document 1

rotate track "ビデオトラック" by 180

save

close

end tell

end tell

end if

10.6x用

「quicktime__rotate.scpt.zip」をダウンロード[Download]

「quicktime__rotate.scpt.rtf」をダウンロード[LINK]

上記の方法で
トラックの削除は

tell application "QuickTime Player 7"

activate

tell document 1

delete track "ビデオトラック"

save

close

end tell

end tell

こんな感じ