Hi people,
I have an interesting one. I regularly use Quicktime to play accompaniments for my music students and use one of Doug's applescripts to speed up the accompaniment and slow it down depending on the ability of the student I am working with. The script is below.
I would like to be able to tune the music as well as some of my recordings are baroque and played a semitone lower than the modern instrument. Changing the pitch can also help a clarinettist play with an un-transposed accompaniment. Anyway, Quicktime has a slider in its AV controls called "Pitch shift" and I would like to be able to alter it in the same way as the script below works on the speed of the music. Is there anyone who can help me script the slider?
set myspeeds to {0.7, 0.8, 0.9, 1.0, 1.1, 1.2, 1.3, 0} set myChoice to (choose from list myspeeds)
tell application "iTunes" pause set my_track to location of current track set my_seconds to player position end tell
tell application "QuickTime Player"
open my_track set my_movie to first movie set ts to time scale of my_movie set current time of my_movie to my_seconds * ts set rate of my_movie to myChoice as integer -- starts playing
end tell
Peter Baxter
|