AppleScript: rotate mov file in QuickTime Pro

Some kind of life hack: it’s very easy to make mov file with digital camera, rotating it 90 degrees. However, it’s not so easy to convert the result file to the ‘visible’ form.

QuickTime Pro(the native product from Apple) could do this, and I found the AppleScript script, which could make it even more easy.

tell application "QuickTime Player"
set m to (get movie 1)
rotate m by -90
save self contained m in (choose file name with prompt "save self contained movie")
end tell

The script is mentioned here