Quantum Forest

I had a few short (under 30 seconds) movies taken in portrait mode, which means that they looked sideways when played. I could not see the point on forking out US$30 to upgrade quicktime to activate that function. A quick search showed that opening ‘Script Editor’, pasting the following code and running it is a simple solution:


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


This rotates 90 degrees the video that is currently open in Quicktime and asks for a name for the new file. The file looks with strange proportions, but if you close it and open it again it looks perfectly OK.